Hallo Zusammen,
ich hab hier ein kleines Problem und komme einfach nicht weiter:
Ich speichere die Hashwerte von Nutzername und Passwort in einer Datei. Bei Programmstart werden diese Daten eingelesen und mit den Hashwerten, gebildet von eingegebenem Nutzernamen und Kennwort verglichen. Und nun kommt das Prob: Es sind völlig andere Werte die gebildet werden obwohl die selbe Routine, wie beim Erstellen der Hashwerte, genutzt wird und die Daten 100%ig die selben sind.
Hier mal die Codeschnipsel:
Unit 1: Erzeugen der Daten zum Speichern
Delphi-Quellcode:
with Config do begin
LoginUser := Encode(edtCasimodoUser.Text);
LoginPW := Encode(edtCasimodoPwd.Text);
SaveToFile(IniFolder + IniName);
end;
Unit 2: Schreiben in's Ini-File
Delphi-Quellcode:
Ini.WriteString(cmIniLoginSection, cmIniLoginUser, FLoginUser);
Ini.WriteString(cmIniLoginSection, cmIniLoginPW, FLoginPW);
ebenfalls
Unit 2: Die Routine zum Erzeugen des Hash
Delphi-Quellcode:
function TIni.Encode(const TheData:string):string;
var
Salt: Binary;
begin
with THash_RipeMD256.Create do begin
Salt := RandomBinary(16);
Result := KDFx(TheData, Salt, 16, TFormat_HEX);
Free;
end;
ProtectBinary(Salt);
end;
Und nochmals
Unit 2: Lesen der Werte
Delphi-Quellcode:
FLoginUser := Ini.ReadString(cmIniLoginSection, cmIniLoginUser, '');
FLoginPW := Ini.ReadString(cmIniLoginSection, cmIniLoginPW, '');
Unit3: Vergleichswerte bilden und Vergleichen
Delphi-Quellcode:
u := Config.Encode(edtUserName.Text); // Hier
p := Config.Encode(edtPassword.Text); // und hier werden definitiv andere Werte gebildet! Warum ???
if (u = Config.LogInUser) and
(p = Config.LogInPw)then
ModalResult := mrOk;
Tja und nun sind die neugebildeten Hashwerte völlig anders und ich verstehe nicht warum
Das Erzeugen der ersten Werte habe ich mehrfach wiederholt und es werden definitiv immer die gleichen gebildet, warum nun aber nicht in
Unit 3 ???