Mit LockBox10 für XE7 Hashstring erzeugen

[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;