SSL authentication and encryption ensures your data stays private as it travels across the public network.
That the CertificateStore control allows for management of certificates in the Microsoft certificate stores?
Selecting certificates installed in the Microsoft certificate stores is easy using the CertificateStore object.
Code Sample:
'Show all certificates in the CURRENT_USER/MY Store
Dim store As New CertificateStore
store.Location = locationCurrentUser
store.Name = "MY"

Dim certificate As certificate
For Each certificate In store.Certificates
    Debug.Print certificate.IssuedTo & ": " & certificate.SerialNumber
Back to Top
That the controls of the SSL Tool can programmatically reject or accept remote certificates?
When a control receives a certificate from the remote host, the Authenticate event will fire, providing validity information about the certificate. The certificate can be accepted (or not) programmatically when this event fires. Alternatively, for scripting environments, a Security property can be set specifying how certificates should be handled.
Code Sample:
Private Sub SecureControl_Authenticate(ByVal RemoteCertificate As ICertificate, ByVal TrustedRoot As Boolean, ByVal ValidDate As Boolean, ByVal ValidSignature As Boolean, Valid As Boolean)
    ' Check various parts of the certificate to give the user a chance to cancel if desired.
    If Not Valid Then
        Dim Msg As String
        If Not ValidDate Then Msg = Msg + "- Certificate date is invalid" + vbCrLf
        If Not TrustedRoot Then Msg = Msg + "- Certificate Authority is not trusted" + vbCrLf
        If Not ValidSignature Then Msg = Msg + "- Certificate does not contain a valid signature" + vbCrLf
        Msg = "The following conditions are true:" + vbCrLf + vbCrLf + Msg + vbCrLf + vbCrLf
        Msg = Msg + "Do you still wish to authenticate?"
        If MsgBox(Msg, vbYesNo + vbExclamation, "Security Alert") = vbYes Then
            Valid = True
        End If
    End If
End Sub
Back to Top