THMac

type THMac = class(TInterfacedObject,IHMac,IMac)

public

  constructor Create();

  destructor Destroy; override;

  procedure Clear;

  function GetUnderlyingDigest;

  function GetMacSize;

  procedure Update();

  procedure BlockUpdate();

  procedure Init();

  function DoFinal();

  procedure Reset;

  property AlgorithmName: string; [r]

end;

THMac

TObject,IHMac,IMac