Hash in Delphi und PHP

[H3llsing]

heya,
ich muss nochmal dieses alte Topic zum Leben erwecken.

Situation: Ich möchte einen String in Delphi mit der neusten DEC Unit SHA1 verschlüsseln, klappt auch ganz gut. Das ganze ist dann ein link der in einer Email als hash fungiert und soll mit der PHP-Funktion SHA1() verglichen werden.

Problem: DEC und PHP erzeugen einen unterschiedlichen HASHwert, bei exakt gleichem String.

Installiert ist DEC5.2 sowie PHP5 mit der integrierten SHA1-Funktion.

hier noch mein code

Code:

procedure TForm1.Button4Click(Sender: TObject);
var
  Digest: array[0..19] of byte;
  s : string;
  i : integer;
begin
  Hash.Init;
  hash.UpdateStr(Edit_sha1.Text);
  hash.Final(Digest);
  s:= '';

  for i:= 0 to 19 do
    s:= s + IntToHex(Digest[i],2);
    Edit_sha1.Text:= s;                         


end;

zum vergleichen für PHP gibts diese schöne Seite
Hash-Generator


MFG

H3llsing