TDsaSigner

type TDsaSigner = class(TInterfacedObject,IDsaExt,IDsaSigner)

strict protected

  FkCalculator: IDsaKCalculator;

  Fkey: IDsaKeyParameters;

  Frandom: ISecureRandom;

  function CalculateE(); virtual;

  function InitSecureRandom(); virtual;

public

  constructor Create();

  procedure Init();

  function GenerateSignature(); virtual;

  function VerifySignature(); virtual;

  property Order: TBigInteger; [r]

  property AlgorithmName: string; [r]

end;

TDsaSigner

TObject,IDsaExt,IDsaSigner