Frage zu DEC Hash "Tiger"

[Schokohase]

Also ich würde es mal so probieren

Delphi-Quellcode:

var
  Tiger: THash_Tiger;
  aPlain: array[0..63] of byte;
  sTiger: string;
  
  
begin
  Tiger := THash_Tiger.Create;
  try
    Tiger.Rounds := 5;
    Tiger.Init;
    Tiger.Calc(aPlain, 64);
    Tiger.Done;
    sTiger := Tiger.DigestStr(TFormat_HEX);
  finally
    Tiger.Free;
  end;
end;

PS:

Wenn man sich fragt "Wie kommt der darauf?", na durch einfaches Abschreiben:

Delphi-Quellcode:

class function TDECHash.CalcBuffer(const Buffer; BufferSize: Integer; Format: TDECFormatClass): Binary;
begin
  with Create do
  try
    Init;
    Calc(Buffer, BufferSize);
    Done;
    Result := DigestStr(Format);
  finally
    Free;
  end;
end;