TBlake3

type TBlake3 = class(THash,ICryptoNotBuildIn,ITransformBlock)

strict protected

  FCS: TBlake3ChunkState;

  FOutputReader: TBlake3OutputReader;

  FKey: THashLibUInt32Array;

  FFlags: UInt32;

  FStack: THashLibMatrixUInt32Array;

  FUsed: UInt64;

  procedure Finish;

  function GetName; override;

  procedure InternalDoOutput();

  constructor Create();

  constructor CreateInternal();

public

  procedure Initialize; override;

  procedure TransformBytes(); override;

  function TransformFinal; override;

  function Clone; override;

  class procedure DeriveKey();

end;

TBlake3

THash,ICryptoNotBuildIn,ITransformBlock

TObject,IHash