Mit LockBox10 für XE7 Hashstring erzeugen

[Uwe Raabe]

Zitat von Perlsau:

Hat denn wirklich noch niemand mit LockBox10 gearbeitet?

Wenn ich mich recht erinnere, hat Roman mir vor ein paar Wochen erzählt, daß LockBox10 auf dem TurboPower LockBox2 basiert. Vielleicht hilft dir dann ja das Manual für LockBox2 weiter.

[Perlsau]

Oh, danke, Uwe, das ist sehr freundlich von dir

Werde ich bestimmt noch brauchen können

[Union]

Alternativ zu der Schleife mit Result := Result + ...

Delphi-Quellcode:

Function GetHashedString(Const Awort : String) : String;
Var
  LBH  : TLbSHA1;
  LBD  : TSHA1Digest;
Begin
  Result := '';
  LBH    := TLbSHA1.Create(Nil);

  Try
    LBH.HashString(Awort);
    LBH.GetDigest(LBD);
    SetLength(Result, Length(LBH) * 2);
    BinToHex(LBH, PChar(Result), Length(LBH));
  Finally
    LBH.Free;
  End;
End;

[Sir Rufo]

Es ist hoffentlich bei aller Euphorie klar, dass dieser Hashwert auf einem UTF-16 string basiert?

Also nicht wundern wenn dieser Hashwert z.B. mit einem von einem Webservice ermittelten verglichen wird und man etwas völlig anderes herausbekommt.

mMn gehört zu so einer Funktion immer eine überladene dazu, wo man das Encoding angeben kann

Delphi-Quellcode:

function GetHashedString( const AWort : string ): string; overload;
function GetHashedString( const AWort : string; AEncoding : TEncoding ): string; overload;

[Perlsau]

Zitat von Union:

Alternativ zu der Schleife mit Result := Result + ...

Oh, danke, das ist natürlich viel eleganter. Wird allerdings in diesem Programm sowieso nur ein paarmal benötigt, kommt also nicht auf Effizienz an.

Zitat von Sir Rufo:

Es ist hoffentlich bei aller Euphorie klar, dass dieser Hashwert auf einem UTF-16 string basiert?

Danke, Euphorie habe ich nicht verspürt. Und ja, ist mir klar, in diesem speziellen Fall aber unerheblich.

Zitat von Sir Rufo:

Also nicht wundern wenn dieser Hashwert z.B. mit einem von einem Webservice ermittelten verglichen wird und man etwas völlig anderes herausbekommt.

Nein, da besteht keine Gefahr, ist nur für Passwort und Username in der Datenbank. Die beiden Felder der Benutzertabelle sind UTF8, und dennoch erhalte ich mittels Locate den richtigen Record beim Programm-Login:

Delphi-Quellcode:

Procedure TFormLogin.Auswerten;
Var
  HPass,HUser : String;

begin
  Case fLogMode Of
     0 : Begin // Login
           HUser := GetHashedString(Ed_User.Text);
           HPass := GetHashedString(Ed_Pass1.Text);
           If DataModul.Q_Benutzer.Locate('BNAME;BPASS',VarArrayOf([HUser,HPass]),[]) Then
              ModalResult := mrOk Else
           Begin
             Fehlertext := 'Falsche Angaben! Programm wird beendet.';
             ModalResult := mrClose;
           End;
         End;
  End;
end;

[Sir Rufo]

Das ist doch auch logisch.

Username und Passwort werden von Delphi erfasst (Edit) und damit UTF-16. Darauf werden dann die Hashwerte ermittelt und der Hexcodierte-Hashwert als string (UTF-16) an die Datenbank gegeben. Dabei erfolgt eine implizite Umwandlung von UTF-16 nach UTF-8 durch die Zugriffskomponente.

[Perlsau]

Danke, das wußte ich in dieser Ausführlichkeit noch nicht. Damit ist dann für mich alles soweit im grünen Bereich und ich kann weitermachen. Nochmals Danke