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;