1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure Tf_scy.JvXPButton1Click(Sender: TObject);
var
  MD5: TDCP_md5;
  Digest: array [0..15] of Byte;  // MD5 produces a 128bit digest (16bytes)
  Reslt: String;
  Index: Integer;
begin
 MD5 := TDCP_md5.Create(Self);    // create the hash
  MD5.Init;                       // initialize it  
  MD5.UpdateStr(e_passwort.Text);      // hash the string  
  MD5.Final(Digest);              // produce the digest  
  MD5.Free;  
    
  Reslt := '';  
  for Index := 0 to 15 do
    Reslt := Reslt + IntToHex(Digest[Index], 2);
 //Ergebnis
 edit1.Text := reslt;
end;