Mit LockBox10 für XE7 Hashstring erzeugen

[Perlsau]

Moin allerseits,

ich muß für einen hiesigen Programmierer herausfinden, wie man einen Hash von einem String erzeugt. Er möchte dazu Lockbox verwenden, weil das bei Bedarf auch für IOS verfügbar sei. Nun habe ich in seiner XE7-IDE diese Version installiert, finde aber nirgendwo ein Manual oder sonstige Hinweise, wie die einzelnen Komponenten zu verwenden sind. Beispiele sind offenbar auch keine dabei. Leider kenne ich mich nur mit der DCPcrypt Cryptographic Component Library aus, die will mein Kunde jedoch nicht einsetzen.

Hat jemand für mich eine einfache Anleitung, wie man mit LockBox aus einem String einen Hashwert erzeugt?

[Union]

Dazu müsste erst einmal die Entscheidung getroffen werden, welcher Algorithmus verwendet werden soll. Dann sollte das mit TLbMD5.HashString oder TLbSHA1.HashString gehhen.

[Perlsau]

Danke für deine Antwort. Bislang hab ich mal folgenden Funktionsrumpf erstellt:

Delphi-Quellcode:

// ----- Liefert den Hashwert des übergebenen Strings zurück ---------------------------------------------------------------------
Function GetHashedString(Const Awort : String) : String;
Var
  LBH : TLbSHA1;

Begin
  LBH := TLbSHA1.Create(Nil);
  Try
    LBH.HashString(Awort);
    Result := '???';
  Finally
    LBH.Free;
  End;
End;

Wie geht's nun weiter?

[Klaus01]

.. der Hash liegt in LBH.HashOutputValue
Siehe auch: http://codeverge.com/embarcadero.del...-fails/1070398

Grüße
Klaus

[Perlsau]

Das mag vielleicht für LockBox3 zutreffen, in LockBox10 (der Version für XE7, die auch mit IOS und Android kompatibel ist), gibt es dieses Property leider nicht. Könnte der berechnete Hash vielleicht im HashBuffer liegen?

Übrigens hab ich einige Stunden lang all diese Hinweise, die Google liefert, bereits erfolglos abgegrast, bevor ich hier anfragte

[Klaus01]

.. dann vielleicht getDigest?

Delphi-Quellcode:

 TLbSHA1 = class(TLbHash)
  strict private
    FDigest : TSHA1Digest;
  public
    procedure GetDigest(var Digest : TSHA1Digest);

    procedure HashBuffer(const Buf; BufSize : Cardinal); override;
    procedure HashFile(const AFileName: string); override;
    procedure HashStream(AStream: TStream); override;
    procedure HashString(const AStr: string); override;
  end;

Grüße
Klaus