TSipHash

type TSipHash = class(THash,IHash64,IHashWithKey,ITransformBlock)

strict protected

  FV0: UInt64;

  FV1: UInt64;

  FV2: UInt64;

  FV3: UInt64;

  FKey0: UInt64;

  FKey1: UInt64;

  FTotalLength: UInt64;

  FPartA: UInt64;

  FPartB: UInt64;

  FCompressionRounds: Int32;

  FFinalizationRounds: Int32;

  FIdx: Int32;

  FBuffer: THashLibByteArray;

  function GetMagicXor; virtual;

public

  constructor Create();

  procedure Initialize; override;

  procedure TransformBytes(); override;

  function TransformFinal; override;

  property KeyLength: TNullableInteger; [r]

  property Key: THashLibByteArray; [rw]

end;

TSipHash

THash,IHash64,IHashWithKey,ITransformBlock

TObject,IHash