Passwort "endgültig" verschlüsseln

[Sharky]

Und damit Du auch gleich etwas damit machen kannst

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  md5_digi: TMD5Digest;  // Ein 16 Byte grossen Array = 128 Bit;
  passwort: string;
  md5_hexstring: string;
begin
  passwort := 'blubb';
  md5_digi := MD5_HashForString(passwort); // Ereugt den Hash
  md5_hexstring := MD5_Hash2String(md5_digi); // Wandelt die 128 Bit ein einen HEX-String;
  ShowMessage(md5_hexstring);
end;