Декриптор Crypt 32

Сейчас на форуме: Adler, Rio, vsv1, site-pro (+8 невидимых)

Посл.ответ	Сообщение
KARRAT Ранг: 4.9 (гость), 1thx Активность: 0.01↘0 Статус: Участник	Создано: 08 мая 2013 18:47 · Личное сообщение · #1 Прошу помочь сделать декриптор под Windows для расшифровки строк. Строки зашифрованы Crypt 32 Anatoly Podgoretsky (прилагается). 7cf0_08.05.2013_EXELAB.rU.tgz - crypt32.zip

Archer Ранг: 2014.5 (!!!!), 1278thx Активность: 1.34↘0.25 Статус: Модератор retired	Создано: 08 мая 2013 19:15 · Личное сообщение · #2 А сам ты что сделал?
DimitarSerg Ранг: 253.5 (наставник), 684thx Активность: 0.26↘0.25 Статус: Участник radical	Создано: 08 мая 2013 19:50 · Поправил: DimitarSerg · Личное сообщение · #3 KARRAT Предлагаешь, чтобы за тебя кинули в дельфе на форму пару едитов и кнопку и вызвать Енкрипт/Декрипт с соответствующими параметрами (типа Edit2.Text:=Decrypt(Edit1.Text,1,2,3);)? ----- ds \| Сообщение посчитали полезным: CyberGod, ZaZa, Abraham
ZaZa Ранг: 158.5 (ветеран), 219thx Активность: 0.12↘0.01 Статус: Участник	Создано: 08 мая 2013 20:49 · Поправил: ZaZa · Личное сообщение · #4 KARRAT пишет: Прошу помочь сделать декриптор под Windows для расшифровки строк. Давай-ка сам: --> Online Compiler PASCAL <-- А то сам вообще ничему не научишься ----- One death is a tragedy, one million is a statistic. \| Сообщение посчитали полезным: Abraham
Dart Sergius Ранг: 105.6 (ветеран), 36thx Активность: 0.1↘0 Статус: Участник	Создано: 09 мая 2013 01:34 · Личное сообщение · #5 KARRAT, блин, даже библиотек с криптованием и документацией куча сейчас... Неужто алго этого нету? Ну а если нету - то идем и сами делаем. \| Сообщение посчитали полезным: Abraham
KingSise Ранг: 469.0 (мудрец), 100thx Активность: 0.25↘0 Статус: Участник [www.AHTeam.org]	Создано: 10 мая 2013 12:34 · Поправил: KingSise · Личное сообщение · #6 DimitarSerg пишет: Предлагаешь, чтобы за тебя кинули в дельфе на форму пару едитов и кнопку и вызвать Енкрипт/Декрипт с соответствующими параметрами Предпологаю что у него со сдвигом вправо проблемы были. Поправил немного. так работает: Code: int I; string ret for (I = 0; I < lench(InString); I += 1) { StartKey >>= i (int) 20; ret = ret + Strings.ChrW(Convert.ToByte(InString(I)) ^ StartKey); StartKey = (Convert.ToSByte(ret(I)) + StartKey) * MultKey + AddKey; } e63b_10.05.2013_EXELAB.rU.tgz - Crypt32.exe ----- -=истина где-то рядом=-
Archer Ранг: 2014.5 (!!!!), 1278thx Активность: 1.34↘0.25 Статус: Модератор retired	Создано: 10 мая 2013 12:37 · Личное сообщение · #7 Ответа от ТС так и не получено, закрыто.

Для печати