sha1 verschlüsslung und jedi ?

[agm65]

dachte ich könnte diese function irgendwie umschreiben , so dass ich diesen hash string bekomme ?

Delphi-Quellcode:

function SHA1SelfTest2(s:String): string;
const
  //s: string= 'abc';
  OutDigest: TSHA1Digest=
    ($a9,$99,$3e,$36,$47,$06,$81,$6a,$ba,$3e,$25,$71,$78,$50,$c2,$6c,$9c,$d0,$d8,$9d);
var
  Context: TSHA1Context;
  Digest: TSHA1Digest;
begin
  SHA1Init(Context);
  SHA1Update(Context,@s[1],length(s));
  SHA1Final(Context,Digest);
  if CompareMem(@Digest,@OutDigest,Sizeof(Digest)) then
    //Result:= true ;

  else
    //Result:= false;
end;

aber ich bekomme nichts zurück