TTLSConnection

type TTLSConnection = class

protected

  FTransportLayerSendProc: TTLSConnectionTransportLayerSendProc;

  FOnLog: TTLSConnectionLogEvent;

  FOnStateChange: TTLSConnectionStateChangeEvent;

  FOnAlert: TTLSConnectionAlertEvent;

  FOnHandshakeFinished: TTLSConnectionNotifyEvent;

  FConnectionState: TTLSConnectionState;

  FConnectionErrorMessage: string;

  FInBuf: TTLSBuffer;

  FOutBuf: TTLSBuffer;

  FProtocolVersion: TTLSProtocolVersion;

  FReadSeqNo: Int64;

  FWriteSeqNo: Int64;

  FKeys: TTLSKeys;

  FEncMACKey: RawByteString;

  FEncCipherKey: RawByteString;

  FEncIV: RawByteString;

  FDecMACKey: RawByteString;

  FDecCipherKey: RawByteString;

  FDecIV: RawByteString;

  FVerifyHandshakeData: RawByteString;

  FCipherEncryptSpec: TTLSSecurityParameters;

  FCipherEncryptState: TTLSCipherState;

  FCipherDecryptSpec: TTLSSecurityParameters;

  FCipherDecryptState: TTLSCipherState;

  FCipherSpecNew: TTLSSecurityParameters;

  procedure Init; virtual;

  procedure Log();

  procedure TriggerLog(); virtual;

  procedure TriggerConnectionStateChange; virtual;

  procedure TriggerAlert(); virtual;

  procedure TriggerHandshakeFinished; virtual;

  procedure SetConnectionState();

  procedure SetClosed;

  procedure SetErrorBadProtocol;

  procedure SetEncodeKeys();

  procedure SetDecodeKeys();

  procedure TransportLayerSend();

  procedure SendContent();

  procedure SendAlert();

  procedure SendAlertCloseNotify;

  procedure SendAlertUnexpectedMessage;

  procedure SendAlertIllegalParameter;

  procedure SendAlertDecodeError;

  procedure SendAlertProtocolVersion;

  procedure SendAlertInternalError;

  procedure SendApplicationData();

  procedure SendChangeCipherSpec;

  procedure SendHandshake();

  procedure ShutdownBadProtocol();

  procedure AddVerifyHandshakeData();

  procedure DoClose;

  procedure ChangeEncryptCipherSpec;

  procedure ChangeDecryptCipherSpec;

  procedure HandleAlertCloseNotify;

  procedure HandleAlertProtocolVersion;

  procedure HandleAlertProtocolFailure();

  procedure HandleAlertCertificateError();

  procedure HandleAlertSecurityError();

  procedure HandleAlertUserCancelled;

  procedure HandleAlertNoRenegotiation;

  procedure HandleAlertUnknown();

  procedure HandleProtocolAlert();

  procedure HandleProtocolChangeCipherSpec();

  procedure HandleProtocolApplicationData();

  procedure HandleHandshakeMessage(); virtual; abstract;

  procedure HandleProtocolHandshake();

  procedure ProcessTransportLayerData;

public

  constructor Create();

  destructor Destroy; override;

  property OnLog: TTLSConnectionLogEvent; [rw]

  property OnStateChange: TTLSConnectionStateChangeEvent; [rw]

  property OnAlert: TTLSConnectionAlertEvent; [rw]

  property OnHandshakeFinished: TTLSConnectionNotifyEvent; [rw]

  property ConnectionState: TTLSConnectionState; [r]

  property ConnectionErrorMessage: string; [r]

  function IsNegotiatingState;

  function IsReadyState;

  function IsFinishedState;

  procedure ProcessTransportLayerReceivedData();

  function AvailableToRead;

  function Read();

  procedure Write();

  procedure Close;

end;

TTLSConnection

TObject