Jaki jest algorytm hashowania w GG v6.0

Oto kod, który został podany przez użytkownika Piechnata hashujący hasło w popularnym komunikatorze Gadu-Gadu. Taka funkcja jest potrzebna aby połączyć się z serwerem GG.

function GGLoginHash(Pass: string; Seed: Cardinal): Cardinal;
var
   x, y, z, i : Cardinal;
begin
   y := Seed;
   x := 0;
   for i := 1 to Length(Pass) do begin
      x := (x and $ffffff00) or Ord(Pass[i]);
      y := y xor x;
      Inc(y, x);
      x := x shl 8;
      y := y xor x;
      x := x shl 8;
      Dec(y, x);
      x := x shl 8;
      y := y xor x;
      z := y and $1f;
      y := (y shl z) or (y shr (32 - z));
   end;
   Result := y;
end;