Mit LockBox10 für XE7 Hashstring erzeugen

[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

[Perlsau]

... oder vielleicht auch nicht?

TSHA1Digest ist ein Array[0..19] of byte. Wenn dort der Hashstring drin wäre, dann könnte der ja immer nur höchstens 20 Zeichen lang sein. Das erscheint mir fragwürdig. Soweit ich weiß, sind Hash-Strings gewöhnlich um einiges länger. Und wie sollte man aus diesem Array dann einen Hash-String erzeugen?

Hat denn wirklich noch niemand mit LockBox10 gearbeitet?

[Daniel]

Darüber bin ich kürzlich auch gestolpert.
Das, was wir im Allgemeinen als SHA1-Hash zu lesen bekommen, ist die hexcodierte Variante dieser 20 Bytes. Wenn Du Dein Byte-Buffer in Hex (z.B. IntToHex()) wandelst, sollte etwas herauskommen, das dem Auge vertraut ist.

[Sir Rufo]

Wenn man weiß, was ein Hashwert ist und woraus ein Hashwert ausschließlich gebildet werden kann, dann ist alles viel klarer:

Zitat:

Ein Hashwert wird ausschließlich aus Bytefolgen erzeugt und der Hashwert selber ist auch eine Bytefolge.

Was man dann aus dieser Bytefolge macht (Malen nach Zahlen, in einen HexString umwandeln, ...) ist dann reine Präsentation der Bytefolge. Nicht mehr, nicht weniger.

Ein Hauptgrund, warum die meisten beim Hashen auf die Nase fallen "Delphi-PHP", "Delphi-C#", .... liegt daran, dass man beim Hashen das Encoding (String -> Bytefolge) mal nicht beachtet und Delphi nimmt dann UTF-16 und der Rest (meistens) UTF-8 => Zonk.

Über diese Dinge sollte man sich im Klaren sein ... dann klappt es auch mit dem Hashen.

Also, was für eine Hashwert-String-Repräsentation soll den rauskommen?

[Perlsau]

@Daniel & @SirRufo & @Klaus01
Okay, das war's dann wohl

Delphi-Quellcode:

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

  Try
    LBH.HashString(Awort);
    LBH.GetDigest(LBD);
    For i := 0 To 19 Do
      Result := Result + IntToHex(LBD[i],2);
  Finally
    LBH.Free;
  End;
End;

Damit hab ich einen Hash-String, den ich verwenden kann: Bei gleichem Ausgangsstring wird jetzt immer derselbe Hashwert erzeugt. Prima und danke

[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