Ü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