procedure LoginXORDecrypt - или как обратить функцию.

[Алёна]

Уважаемые форумчане. Приветствую всех, и прошу помоч тех что разбирается в программировании. Есть функция (взята с этого форума), нужно сделать обратную ей, кто может помогите- сколько билась - никак не получается

Собственно функция:

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 ...