TSHA3

type TSHA3 = class(TBlockHash,ICryptoNotBuildIn,ITransformBlock)

default

type

  THashMode = (

  hmKeccak = $1,

  hmCShake = $4,

  hmSHA3 = $6,

  hmShake = $1F

);

protected

  FState: THashLibUInt64Array;

protected

const

  RC = array [0..23] of UInt64; = (UInt64($0000000000000001), UInt64($0000000000008082), UInt64($800000000000808A), UInt64($8000000080008000), UInt64($000000000000808B), UInt64($0000000080000001), UInt64($8000000080008081), UInt64($8000000000008009), UInt64($000000000000008A), UInt64($0000000000000088), UInt64($0000000080008009), UInt64($000000008000000A), UInt64($000000008000808B), UInt64($800000000000008B), UInt64($8000000000008089), UInt64($8000000000008003), UInt64($8000000000008002), UInt64($8000000000000080), UInt64($000000000000800A), UInt64($800000008000000A), UInt64($8000000080008081), UInt64($8000000000008080), UInt64($0000000080000001), UInt64($8000000080008008))

protected

  procedure KeccakF1600_StatePermute;

  function GetName; override;

  constructor Create();

  procedure Finish; override;

  function GetResult; override;

  procedure TransformBlock(); override;

  function GetHashMode; virtual;

public

  procedure Initialize; override;

end;

TSHA3

TBlockHash,ICryptoNotBuildIn,ITransformBlock

THash,IBlockHash

TObject,IHash