Software components for data protection, secure storage and transfer
Private Sub client_OnCertificateValidate(Sender As Object, Certificate As SBX509.TElX509Certificate, ByRef Validate As Boolean) Handles client.OnCertificateValidate
Dim Validity As SBX509.TSBCertificateValidity
Dim Reason As Integer
Dim CertificateValidator = New SBCertValidator.TElX509CertificateValidator
If (Certificate.Chain Is Nothing Or Certificate.Chain.Certificates(0) Is Certificate) Then
CertificateValidator.ValidateForSSL(Certificate, client.RemoteHost, client.RemoteIP, TSBHostRole.hrServer, Nothing, False, False, DateTime.Now, Validity, Reason)
Validate = (Validity = SBX509.TSBCertificateValidity.cvOk) Or (Validity = SBX509.TSBCertificateValidity.cvSelfSigned)
Validate = True
CertificateValidator.MandatoryCRLCheck = False
CertificateValidator.MandatoryOCSPCheck = False
Number of guests: 1, registered members: 0,
in total hidden: 0
Copyright (c) 2017, /n software, inc.
As of July 15, 2016 EldoS business operates as a division of /n software, inc. For more information, please read the announcement.