TTLSClient

type TTLSClient = class(TTLSConnection)

protected

  FClientOptions: TTLSClientOptions;

  FVersionOptions: TTLSVersionOptions;

  FKeyExchangeOptions: TTLSKeyExchangeOptions;

  FCipherOptions: TTLSCipherOptions;

  FHashOptions: TTLSHashOptions;

  FResumeSessionID: RawByteString;

  FClientState: TTLSClientState;

  FClientProtocolVersion: TTLSProtocolVersion;

  FServerProtocolVersion: TTLSProtocolVersion;

  FClientHello: TTLSClientHello;

  FClientHelloRandomStr: RawByteString;

  FServerHello: TTLSServerHello;

  FServerHelloRandomStr: RawByteString;

  FServerCertificateList: TTLSCertificateList;

  FServerX509Certs: TX509CertificateArray;

  FServerKeyExchange: TTLSServerKeyExchange;

  FCertificateRequest: TTLSCertificateRequest;

  FCertificateRequested: Boolean;

  FClientKeyExchange: TTLSClientKeyExchange;

  FServerRSAPublicKey: TRSAPublicKey;

  FDHState: PDHState;

  FPreMasterSecretStr: RawByteString;

  FMasterSecret: RawByteString;

  procedure Init; override;

  procedure SetClientState();

  procedure CheckNotActive;

  procedure SetClientOptions();

  procedure SetVersionOptions();

  procedure SetCipherOptions();

  procedure SetKeyExchangeOptions();

  procedure SetHashOptions();

  procedure InitInitialProtocolVersion;

  procedure InitSessionProtocolVersion;

  procedure InitClientHelloCipherSuites;

  procedure InitDHState;

  procedure InitHandshakeClientHello;

  procedure InitServerPublicKey_RSA;

  procedure InitHandshakeClientKeyExchange;

  procedure SendHandshakeClientHello;

  procedure SendHandshakeCertificate;

  procedure SendHandshakeClientKeyExchange;

  procedure SendHandshakeCertificateVerify;

  procedure SendHandshakeFinished;

  procedure HandleHandshakeHelloRequest();

  procedure HandleHandshakeServerHello();

  procedure HandleHandshakeCertificate();

  procedure HandleHandshakeServerKeyExchange();

  procedure HandleHandshakeCertificateRequest();

  procedure HandleHandshakeServerHelloDone();

  procedure HandleHandshakeFinished();

  procedure HandleHandshakeMessage(); override;

  procedure InitCipherSpecNone;

  procedure InitCipherSpecNewFromServerHello;

  procedure DoStart;

public

  constructor Create();

  destructor Destroy; override;

  property ClientOptions: TTLSClientOptions; [rw]

  property VersionOptions: TTLSVersionOptions; [rw]

  property KeyExchangeOptions: TTLSKeyExchangeOptions; [rw]

  property CipherOptions: TTLSCipherOptions; [rw]

  property HashOptions: TTLSHashOptions; [rw]

  property ResumeSessionID: RawByteString; [rw]

  property ClientState: TTLSClientState; [r]

  procedure Start;

end;

TTLSClient

TTLSConnection

TObject