Class tcustomopensslcryptohandler

Unit

msessl

Declaration

type tcustomopensslcryptohandler = class(tpaddedcryptohandler)

Description

Hierarchy

• TObject
• TPersistent
• tcomponent
• tmsecomponent
• tcustomcryptohandler
• tbasecryptohandler
• tpaddedcryptohandler
• tcustomopensslcryptohandler

Overview

Methods

	procedure clearerror;
	procedure checkerror(const err: cryptoerrorty = cerr_error); override;
	procedure cipherupdate(var aclient: cryptoclientinfoty; const source: pbyte; const sourcelen: integer; const dest: pbyte; out destlen: integer); override;
	procedure cipherfinal(var aclient: cryptoclientinfoty; const dest: pbyte; out destlen: integer); override;
	procedure initcipher(var aclient: cryptoclientinfoty); virtual; abstract;
	procedure restartcipher(var aclient: cryptoclientinfoty); override;
	procedure getkey(out akey: string; out asalt: string); virtual;
	procedure initializedata(var aclient: cryptoclientinfoty); override;
	procedure finalizedata(var aclient: cryptoclientinfoty); override;
	function padbufsize: integer; override;
	constructor create(aowner: tcomponent); override;

Properties

	property key: string read fkey write fkey;
	property options: opensslcryptooptionsty read foptions write foptions default defaultopensslcryptooptions;
	property ciphername: string read fciphername write fciphername;
	property keyphrase: msestring read fkeyphrase write setkeyphrase;
	property keylength: integer read fkeylength write fkeylength default 0;
	property ongetkey: getkeyeventty read fongetkey write fongetkey;

Description

Methods

	procedure clearerror;

	procedure checkerror(const err: cryptoerrorty = cerr_error); override;

	procedure cipherupdate(var aclient: cryptoclientinfoty; const source: pbyte; const sourcelen: integer; const dest: pbyte; out destlen: integer); override;

	procedure cipherfinal(var aclient: cryptoclientinfoty; const dest: pbyte; out destlen: integer); override;

	procedure initcipher(var aclient: cryptoclientinfoty); virtual; abstract;

	procedure restartcipher(var aclient: cryptoclientinfoty); override;

	procedure getkey(out akey: string; out asalt: string); virtual;

	procedure initializedata(var aclient: cryptoclientinfoty); override;

	procedure finalizedata(var aclient: cryptoclientinfoty); override;

	function padbufsize: integer; override;

	constructor create(aowner: tcomponent); override;

Properties

	property key: string read fkey write fkey;

	property options: opensslcryptooptionsty read foptions write foptions default defaultopensslcryptooptions;

	property ciphername: string read fciphername write fciphername;

	property keyphrase: msestring read fkeyphrase write setkeyphrase;

	property keylength: integer read fkeylength write fkeylength default 0;

	property ongetkey: getkeyeventty read fongetkey write fongetkey;