Indy 10 Ersatz für TIdHash128.AsHex(HashValue(aPassword))

[QuickAndDirty]

Ich teste es jetzt mit
HashStringAsHex(aPassword) aus.
Leider lässt sich nicht feststellen wieviel Bit der Schlüssel misst...

Delphi-Quellcode:

Function EncodePassword(aPassword:string):String;
Begin
  with TIdHashMessageDigest5.Create do
  try
    Result := HashStringAsHex(aPassword);
    Result := HashStringAsHex(Result);
    Result := HashStringAsHex(Result);
    Result := HashStringAsHex(Result);
    Result := HashStringAsHex(Result);
    Result := HashStringAsHex(Result);
  finally
    Free;
  end;
End;

mal sehen was dabei rauskommt.