Thema: Delphi C# zu Pas

Einzelnen Beitrag anzeigen

Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#3

Re: C# zu Pas

  Alt 23. Jul 2009, 19:38
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;
  Mit Zitat antworten Zitat