Gemeinsamer Vorfahre von DEC THash_XYZ gesucht (erledigt)

[a.def]

Delphi-Quellcode:

var
 aHashActive: TDECHashClass = THash_SHA256;

...

class function THashFunctions_Selftest.CalcHash(input: string): string;
var
 val: TStringStream;
 aHash: TDECHash;
 len: Int64;
begin
 val := TStringStream.Create;
 try
  len := Length(input);
  val.Write(AnsiString(input)[1], len);
  val.Position := 0;

  aHash := aHashActive.Create;
  try
   Result := string(aHash.CalcStream(val, len, TFormat_HEX));
  finally
   aHash.Free;
  end;
 finally
  val.Free;
 end;
end;

s := THashFunctions_Selftest.CalcHash(s);

Funktioniert ausgezeichnet, Danke!

Nur um den Grund mal genannt zu haben warum ich DEC verwende statt das mitgelieferte von Delphi:
die in Delphi integrierten Hash-Funktionen sind einfach viel zu lahm! Was DEC in 50ms macht dafür braucht der Delphi-eigene Code 200ms.