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

**QuickAndDirty**

Hallo,
leider dachte ich mir irgendwann mal Copy&Paste und läuft...
ohne je zu verstehen was der Code gemacht hat.
Konkret geht es um die indy 9 funktion
TIdHash128.AsHex(HashValue(aPassword)) habe das dann so wie unten zu sehen in mein Programm integriert...

zusammenfalten · markieren

Delphi-Quellcode:

			Function EncodePassword(aPassword:string):String;

Begin

  with TIdHashMessageDigest5.Create do

  try

    Result := TIdHash128.AsHex(HashValue(aPassword));

    Result := TIdHash128.AsHex(HashValue(Result));

    Result := TIdHash128.AsHex(HashValue(Result));

    Result := TIdHash128.AsHex(HashValue(Result));

    Result := TIdHash128.AsHex(HashValue(Result));

    Result := TIdHash128.AsHex(HashValue(Result));

  finally

    Free;

  end;

End;

Bin dann von Indy9 auf Indy10 in delphi2007
umgestiegen und vermisse einen Ersatz für die Funktion.

Wo finde ich den Ersatz in Indy 10 ?

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

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

Forumregeln