sjwrec
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Code]
procedure TForm1.btn9Click(Sender: TObject);
var
TableC, TableD: string;
IndexC, IndexD: Integer;
begin
TableC:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
TableD:='27122383464575266727818959959818727662575464383221729876543213';
IndexC:=0;
edt2.Text:='';
repeat
IndexC:= IndexC+1;
for IndexD:=1 to 62 do begin
if edt1.Text[IndexC] = TableC[IndexD] then begin
edt2.Text:= edt2.Text+TableD[IndexD];
end;
end;
until IndexC = Length(edt1.Text);
end;
// Пример писал в Delphi. Но общий смысл должен быть понятен.
// Код использовал для генерации SteamAID по никнейму
// Далее значение edt2.Text заносилось в INI файл таблетки (3DMGAME.ini) для игры 7DTD.
|
Всего записей: 473 | Зарегистр. 01-10-2010 | Отправлено: 09:20 07-02-2016 | Исправлено: sjwrec, 09:44 07-02-2016 |
|
