Wenn ich es richtig verstehe, müsste es so heißen:
Delphi-Quellcode:
function HttpHash(HashParams: array of string): Integer;
var
b, i, j: Integer;
a, c: cardinal;
begin
b := -1;
if Length(HashParams) = 0 then
begin
Result := -1;
Exit;
end;
for i := 0 to Length(HashParams) do
begin
for j := 1 to length(HashParams[i]) do
begin
c := ord(HashParams[i][j]);
a := cardinal((c xor b) + (c shl 8));
b := integer((a shr 24) or integer((a shl 8)));
end;
end;
result := abs(b);
end;