User Passwort in Delphi verschlüsseln und an DB schicken

[dedeur]

Hallo Ng,

ich möcht in meinem Delphi7 Programm ein neuen User anlegen und in der Interbase DB ablegen.
Das Passwort soll verschlüsselt werden mit MD5 od. ähnlichem.

Die andern Forum einträge haben mir irgendwie nicht so weitergeholfen...

hat jemand Tipp´s wie ich das angehen muss hab von verschlüsseln noch nicht so den Plan

[kiar]

wenn du ein neues passwort anlegst, brauchst du es nicht verschlüsseln, das übernimmt für dich die IB.


raik

[Lemmy]

Hi,

meinst Du jetzt IB oder FB???

Was für User willst Du überhaupt anlegen, IB/FB-User oder User für Dein Programm die in der Datenbank in einer eigenen Tabelle gespeichert werden?

Grüße
Lemmy

[dedeur]

Ja Richtig es sind User in meiem Programm in einer Tabelle deren PW´s sollen verschlüsselt werden.

[Lemmy]

Guten Morgen,

das PWD liegt ja im Client-Programm als String vor. Verschlüssle einfach den String und speichere den in der Datenbank. Ich verstehe Dein Problem daran nicht genau.

Grüße
Lemmy

[Sharky]

Zitat von dedeur:

...hat jemand Tipp´s wie ich das angehen muss hab von verschlüsseln noch nicht so den Plan

Hai dedeur,

in diesem Beitrag der Code-Library ist eine Function von Assarbard um einen MD5-Hash zu erzeugen. Diesen Speicherst Du dann einfach in deiner Tabelle. Wenn ein Anwender nun sein Passwort eingibt, erzeugst Du wieder den MD5-Hash und vergleichst ihn mit dem Eintrag in der Tabelle.

[dedeur]

genau das ist mein problem:

ich möchte mein PWD verschlüsselt in der DB speichern.

Also wenn ich sage PWD speichern, das er es dann Direkt verschlüsselt und in der Datenbank abspeichert.

[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;