Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Passwort "endgültig" verschlüsseln

    Delphi
    by Sharky, 15. Aug 2005
  Und damit Du auch gleich etwas damit machen kannst ;-)
  
  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
• Forum: Sonstige Fragen zu Delphi

  Re: Passwort "endgültig" verschlüsseln

    Delphi
    by Sharky, 15. Aug 2005
  Anstelle des DEC kannst Du auch die MD5 Funktion aus diesem Beitrag in der Code-Library eines ominösen Users benutzten. :mrgreen:
  
  Wenn Du die Unit um diese Funktion erweiterst kannst Du auch den MD5-Hash eines Strings erzeugen:
  
  function MD5_HashForString(aValue: string): TMD5Digest;
  var
  Context: TMD5_CTX;
  begin
  MD5Init(Context);
  MD5Update(Context, PChar(aValue), Length(aValue));