TCustomSSL

type TCustomSSL = class(TObject)

protected

  FOnVerifyCert: THookVerifyCert;

  FSocket: TTCPBlockSocket;

  FSSLEnabled: Boolean;

  FLastError: Integer;

  FLastErrorDesc: string;

  FSSLType: TSSLType;

  FKeyPassword: string;

  FCiphers: string;

  FCertificateFile: string;

  FPrivateKeyFile: string;

  FCertificate: Ansistring;

  FPrivateKey: Ansistring;

  FPFX: Ansistring;

  FPFXfile: string;

  FCertCA: Ansistring;

  FCertCAFile: string;

  FTrustCertificate: Ansistring;

  FTrustCertificateFile: string;

  FVerifyCert: Boolean;

  FUsername: string;

  FPassword: string;

  FSSHChannelType: string;

  FSSHChannelArg1: string;

  FSSHChannelArg2: string;

  FCertComplianceLevel: Integer;

  FSNIHost: string;

  procedure ReturnError;

  procedure SetCertCAFile(); virtual;

  function DoVerifyCert;

  function CreateSelfSignedCert(); virtual;

public

  constructor Create(); virtual;

  procedure Assign(); virtual;

  function LibVersion; virtual;

  function LibName; virtual;

  function Connect; virtual;

  function Accept; virtual;

  function Shutdown; virtual;

  function BiShutdown; virtual;

  function SendBuffer(); virtual;

  function RecvBuffer(); virtual;

  function WaitingData; virtual;

  function GetSSLVersion; virtual;

  function GetPeerSubject; virtual;

  function GetPeerSerialNo; virtual;

  function GetPeerIssuer; virtual;

  function GetPeerName; virtual;

  function GetPeerNameHash; virtual;

  function GetPeerFingerprint; virtual;

  function GetCertInfo; virtual;

  function GetCipherName; virtual;

  function GetCipherBits; virtual;

  function GetCipherAlgBits; virtual;

  function GetVerifyCert; virtual;

  property SSLEnabled: Boolean; [r]

  property LastError: Integer; [r]

  property LastErrorDesc: string; [r]

published

  property SSLType: TSSLType; [rw]

  property KeyPassword: string; [rw]

  property Username: string; [rw]

  property Password: string; [rw]

  property Ciphers: string; [rw]

  property CertificateFile: string; [rw]

  property PrivateKeyFile: string; [rw]

  property Certificate: Ansistring; [rw]

  property PrivateKey: Ansistring; [rw]

  property PFX: Ansistring; [rw]

  property PFXfile: string; [rw]

  property TrustCertificateFile: string; [rw]

  property TrustCertificate: Ansistring; [rw]

  property CertCA: Ansistring; [rw]

  property CertCAFile: string; [rw]

  property VerifyCert: Boolean; [rw]

  property SSHChannelType: string; [rw]

  property SSHChannelArg1: string; [rw]

  property SSHChannelArg2: string; [rw]

  property CertComplianceLevel: Integer; [rw]

  property OnVerifyCert: THookVerifyCert; [rw]

  property SNIHost: string; [rw]

end;

TCustomSSL

TObject