Цитата:
|
Сообщение от Shura1oplot
Kirpi4, то, что я нарыл: пакет инит зашифрован сначала xor, поверх blowfish. в нем приходит ключ xor для расшифрации, RSA ключ для расшифрации пакета RequestAuthLogin и блоуфиш ключ для расшифрации остальных пакетов.
З.Ы. у кого-нить есть исходник на делфи, реализующий дешифрацию rsa?
|
Стало интересно самому про RSA. Для дельфи практически все используют библиотеку FGInt от Walied Othman для работы с большими числами.
Вот пример
http://www.cracklab.ru/f/index.php?acti ... =1&page=-1
Цитата:
di-2 http://www.isyst.ru/download/rsa_demo.rar
Исходные тексты на Delphi по реализации алгоритма шифрования RSA как пособие для начинающих программистов. RSA алгоритм относится к ассиметричным алгоритмам шифрования, его главное достоинство - имея открытый ключ и зная алгоритм шифрования невозможно повторить закодированое сообщение, на базе алгоритма RSA работает шифрование PGP, реализуются хэш-функции (элетронно-цифровая подпись). Программа является лениво исполненным интерфейсом для модуля работы с большими числами от Walied Othman (также в этом архиве).
|
Применительно к Л2 вот исходник от Hint-а
http://www.postpacific.com/forums/showp ... stcount=20
[quote:7fa78]
Код:
function RSAEncrypt(a,p:string):string;
var
sD,sR,sM:string;
m,e,d,r:TFGInt;
begin
if length(a)>14 then setlength(a,14);
while length(a)<14 do a:=a+#0;
if length(p)>16 then setlength(p,16);
while length(p)<16 do p:=p+#0;
sD:=a+p+#0#0#0#0;
sM:=rsakey;
Base10StringToFGInt('65537',e);
Base256StringToFGInt(sD,d);
Base256StringToFGInt(sM,m);
FGIntMontgomeryModExp(d,e,m,r);
FGIntToBase256String(r,sR);
result:=sR;
end;
[/quote][/quote][/quote:7fa78]
Удачи