ну на вопрос то ответите ? есть предположение о назначении
function RSAEncrypt(a,p,rsakey:string):string;
var
zSt: string;
sD,sR,sM:string;
m,e,d,r:TFGInt;
begin
//это то что добавил без этого никак
SetLength(zSt, 98);
FillChar(zSt[1], Length(zSt), 0);
zSt[95]:= #$20;
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:=zSt+a+p+#0#0#0#0;// ну и сюда вначале добавляю свою строку
sM:=rsakey;
просто я непонимаю что предыдущий автор кода хотел этим всем сказать ((
/т.е. вначале мы задаем длинну строки, с первого символа заполняем нулями (или нулевыми анси), задаем 95й элемент строки(как массива) как $20. Далее проверяем длинну а и p, и соответсвенно убираем лишнее или дописываем нули.. только я не пойму нафиг все это ?
|