sha1 verschlüsslung und jedi ?

[agm65]

lol, klaus..ich benutze die jedis nicht..-.ich will genau das benutzen wie du an der unit die ich gepostet habe siehst..
aber jetzt hab ich halt das problem das ich keinen string in diesen hash kriege...

[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

[agm65]

sieht nicht schlecht aus werde ich mal abgleichen lassen !!! danke dir !
klaus, du bist der beste das geht 1a, noch nen lowercase davor und es ist mit den phpler kompatibel ! danke dir :)!