Уважаемые форумчане. Приветствую всех, и прошу помоч тех что разбирается в программировании. Есть функция (взята с этого форума), нужно сделать обратную ей, кто может помогите- сколько билась - никак не получается
Собственно функция:
Код:
procedure LoginXORDecrypt(var buff:array of char; size: integer);
var
i,k: Integer;
begin
i:=size-8;
k:=PInteger(@buff[i])^;
while i>=6 do begin
PInteger(@buff[i])^:=PInteger(@buff[i])^ xor k;
k:=k-PInteger(@buff[i])^;
i:=i-4;
end;
end;
собственно нужно сделать
LoginXOREncript ...