THash

type THash = class(TInterfacedObject,IHash)

protected

  function GetBlockSize; virtual;

  procedure SetBlockSize(); virtual;

  function GetHashSize; virtual;

  procedure SetHashSize(); virtual;

  function GetBufferSize;

  procedure SetBufferSize();

  function GetName; virtual;

public

  constructor Create();

  procedure Initialize; virtual; abstract;

  procedure TransformString();

  procedure TransformBytes();

  procedure TransformUntyped();

  procedure TransformStream();

  procedure TransformFile();

  function TransformFinal; virtual; abstract;

  function ComputeString(); virtual;

  function ComputeBytes(); virtual;

  function ComputeUntyped();

  function ComputeStream();

  function ComputeFile();

  function Clone; virtual;

  property Name: string; [r]

  property BlockSize: Int32; [rw]

  property HashSize: Int32; [rw]

  property BufferSize: Int32; [rw]

end;

THash

TObject,IHash