Decode String - KeyGen

Сейчас на форуме: rmn (+1 невидимый пользователь)

Посл.ответ	Сообщение
Adonias Ранг: 2.4 (гость) Активность: 0=0 Статус: Участник	Создано: 11 сентября 2009 19:42 · Личное сообщение · #1 I Try to decode this encryptation SERIAL_DISK=000D6095BEA6 SERIAL_CPU=0000-0F29007B-70400000-0000 FECHA_EXPIRACION=20200101 NUM_AGENTS=2 LICENCIA=ÀÝ´ìÀ·´ëÀ·¸êÀ·µ¸ÁÝ´¨ÁÈ½¹ÄÇÌêÀ·´ê¿ÇµºÀÝÞêÀ·×¶¿ÇÖêÁ·´êÀ·´ê¿Ç´êÀ·´ì I Try to use a simple order: Code: for i:=0 to Memo1.Lines.Count-1 do begin a:=''; for j:=1 to length(Memo1.Lines[i])do begin a:=a+chr(ord(Memo1.Lines[i][j])-60); end; Memo2.Lines.Add(a); Any Orient me (told me the way) how to ? Thxx for you help... !!!!

Adonias Ранг: 2.4 (гость) Активность: 0=0 Статус: Участник	Создано: 11 сентября 2009 21:21 · Поправил: Adonias · Личное сообщение · #2 The software... www.4shared.com/file/131978828/8903a63b/ICM.html