sha1 verschlüsslung und jedi ?

[Klaus01]

Sollte in etwas so gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  context: TSha1Context;
   Digest: TSHA1Digest;
   i:byte;
begin
  edit2.text:='';
  sha1init(context);
  sha1Update(context,@edit1.text[1],length(edit1.Text));
  sha1Final(context,digest);

  // HexAusgabe:
  for i:=low(digest) to high(digest) do
    edit2.Text:=edit2.Text+IntToHex(digest[i],2);
end;

Grüße
Klaus