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

Du musst den Salt schon speichern und nicht mit RandomBinary immer einen anderen erzeugen.

So was blödes

Da hab' ich nun Stunden gesucht und woll't schon Teile des letzten HD'Backup's zurückspielen (Da müsste noch Code drin sein in dem es funktioniert hat, bevor ich die Routinen zusammengefaßt habe) und dabei war die Lösung so einfach...

Wie war das noch: Wald, Bäume und so...

Danke Philip