TIESEngine

type TIESEngine = class(TInterfacedObject,IIESEngine)

strict protected

  Fagree: IBasicAgreement;

  Fkdf: IDerivationFunction;

  Fmac: IMac;

  Fcipher: IBufferedBlockCipher;

  FV: TCryptoLibByteArray;

  FIV: TCryptoLibByteArray;

  FforEncryption: Boolean;

  FprivParam: ICipherParameters;

  FpubParam: ICipherParameters;

  FkeyPairGenerator: IEphemeralKeyPairGenerator;

  FkeyParser: IKeyParser;

  function GetCipher;

  function GetMac;

  procedure SetupBlockCipherAndMacKeyBytes();

  function EncryptBlock(); virtual;

  function DecryptBlock(); virtual;

public

  constructor Create();

  procedure Init();

  function ProcessBlock(); virtual;

  property cipher: IBufferedBlockCipher; [r]

  property mac: IMac; [r]

end;

TIESEngine

TObject,IIESEngine