Verschlüssel, in einer .ini-Datei speichern später auflösen

[negaH]

Übrigens, deine "Verschlüsselung" ist ziemlich unsicher und könnte unter Umständen in neueren Delphi Versionen unterschiedliche Resultate erzeugen. Denn Borland hat schon immer proklamiert das der Zufallsgenerator in Random() sich von Version zu Version unterscheiden kann.

Wenn du es echt einfach haben willst das könntest du auch das DEC benutzen:

Delphi-Quellcode:

procedure SavePassword;
begin
  Ini.WriteString(,...., THash_MD5.CalcString('Secret Key' + EPassword.Text, nil, fmtMIME64));
end;

function CheckPassword: Boolean;
begin
  Result := Ini.ReadString(...., '') = THash_MD5.CalcString('Secret Key' + EPasword.Text, fmtMIME64);
end;

Auf alle Fälle wäre dies "sicherer" als deine Methode.

Was soll denn eigentlich passieren wenn der Benutzer so clever ist und in der INI Datei einfach verschiedene Passwörter austauscht ??


Gruß Hagen