TTCPBlockSocket

type TTCPBlockSocket = class(TSocksBlockSocket)

protected

  FSslEnabled: Boolean;

  FSslBypass: Boolean;

  FSsl: PSSL;

  Fctx: PSSL_CTX;

  FSSLPassword: String;

  FSSLCiphers: String;

  FSSLCertificateFile: String;

  FSSLPrivateKeyFile: String;

  FSSLCertCAFile: String;

  FSSLLastError: Integer;

  FSSLLastErrorDesc: String;

  FSSLverifyCert: Boolean;

  FSSLType: TSSLType;

  FHTTPTunnelIP: String;

  FHTTPTunnelPort: String;

  FHTTPTunnel: Boolean;

  FHTTPTunnelRemoteIP: String;

  FHTTPTunnelRemotePort: String;

  FHTTPTunnelUser: String;

  FHTTPTunnelPass: String;

  FHTTPTunnelTimeout: Integer;

  procedure SetSslEnabled();

  function SetSslKeys;

  function GetSSLLoaded;

  procedure SocksDoConnect();

  procedure HTTPTunnelDoConnect();

public

  constructor Create;

  procedure CloseSocket; override;

  function WaitingData; override;

  procedure Listen; virtual;

  function Accept;

  procedure Connect(); override;

  procedure SSLDoConnect;

  procedure SSLDoShutdown;

  function SSLAcceptConnection;

  function GetLocalSinIP; override;

  function GetRemoteSinIP; override;

  function GetLocalSinPort; override;

  function GetRemoteSinPort; override;

  function SendBuffer(); override;

  function RecvBuffer(); override;

  function SSLGetSSLVersion;

  function SSLGetPeerSubject;

  function SSLGetPeerIssuer;

  function SSLGetPeerName;

  function SSLGetPeerSubjectHash;

  function SSLGetPeerIssuerHash;

  function SSLGetPeerFingerprint;

  function SSLGetCertInfo;

  function SSLGetCipherName;

  function SSLGetCipherBits;

  function SSLGetCipherAlgBits;

  function SSLGetVerifyCert;

  function SSLCheck;

  function GetSocketType; override;

  function GetSocketProtocol; override;

  property SSLLoaded: Boolean; [r]

  property SSLEnabled: Boolean; [rw]

  property SSLLastError: Integer; [r]

  property SSLLastErrorDesc: String; [r]

  property HTTPTunnel: Boolean; [r]

published

  property SSLType: TSSLType; [rw]

  property SSLBypass: Boolean; [rw]

  property SSLPassword: String; [rw]

  property SSLCiphers: String; [rw]

  property SSLCertificateFile: String; [rw]

  property SSLPrivateKeyFile: String; [rw]

  property SSLCertCAFile: String; [rw]

  property SSLverifyCert: Boolean; [rw]

  property HTTPTunnelIP: String; [rw]

  property HTTPTunnelPort: String; [rw]

  property HTTPTunnelUser: String; [rw]

  property HTTPTunnelPass: String; [rw]

  property HTTPTunnelTimeout: Integer; [rw]

end;

TTCPBlockSocket

TSocksBlockSocket

TBlockSocket

TObject