DEC 5.1: Problem mit Hashvergleich

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

markieren

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

markieren

Delphi-Quellcode:

			Ini.WriteString(cmIniLoginSection, cmIniLoginUser, FLoginUser);

Ini.WriteString(cmIniLoginSection, cmIniLoginPW, FLoginPW);

ebenfalls Unit 2: Die Routine zum Erzeugen des Hash

zusammenfalten · markieren

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

markieren

Delphi-Quellcode:

			FLoginUser := Ini.ReadString(cmIniLoginSection, cmIniLoginUser, '');

FLoginPW := Ini.ReadString(cmIniLoginSection, cmIniLoginPW, '');

Unit3: Vergleichswerte bilden und Vergleichen

markieren

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 ???

DEC 5.1: Problem mit Hashvergleich

DEC 5.1: Problem mit Hashvergleich

Forumregeln