TSHA512Base

type TSHA512Base = record

public

  Context: array [0..7] of QWord;

  Buffer: THashBuffer;

  Index: UInt32;

  TotalLength: Int64;

  procedure Compress;

  procedure Final;

  procedure Init();

  procedure Update();

end;