Einzelnen Beitrag anzeigen

Perlsau
(Gast)

n/a Beiträge
 
#10

AW: Mit LockBox10 für XE7 Hashstring erzeugen

  Alt 23. Feb 2015, 11:55
@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
Miniaturansicht angehängter Grafiken
hashstringtest.jpg  

Geändert von Perlsau (23. Feb 2015 um 12:07 Uhr)
  Mit Zitat antworten Zitat