User Passwort in Delphi verschlüsseln und an DB schicken

[Sharky]

Ich verstehe das Problem noch immer nicht. Sorry.

Ich verwende die MD5 Unit von Assarbad.

So wird z.B. ein Benutzer in der Tabelle user mit einem Passwort angelegt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 md5_digi : TMD5digest;
begin
 md5_digi := MD5_Hash_OverBuffer(PChar(Edit2.Text),Length(Edit2.Text));
 with Query1 do
 begin
   Close;
   SQL.Clear;
   SQL.Add ('INSERT INTO user (name,passwort) VALUES (:name,:passwort)');
   ParamByName('name').AsString := Edit1.Text;
   ParamByName('passwort').AsString :=  MD5_Hash2String(md5_digi);
   ExecSQL;
   Close;
 end;
end;