(Xojo Plugin) Examine SSL/TLS Server Certificate

See more Socket/SSL/TLS Examples

Demonstrates how an application can examine and check a server's SSL/TLS certificate.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

Dim socket As New Chilkat.Socket

// Connect to a server.
Dim useTls As Boolean
useTls = True
Dim maxWaitMs As Int32
maxWaitMs = 2000
Dim success As Boolean
success = socket.Connect("www.intel.com",443,useTls,maxWaitMs)
If (success = False) Then
    System.DebugLog(socket.LastErrorText)
    Return
End If

// If we get here, the TLS connection ws made..
// In any SSL/TLS handshake, the server sends its certificate in a TLS handshake message.
// Chilkat will keep it cached within the object that made the connection.
// Get the server's cert and examine a few things.
Dim cert As Chilkat.Cert
cert = socket.GetSslServerCert()
If (socket.LastMethodSuccess = False) Then
    // This is unexpected..
    System.DebugLog(socket.LastErrorText)
    Return
End If

System.DebugLog("Distinguished Name: " + cert.SubjectDN)
System.DebugLog("Common Name: " + cert.SubjectCN)
System.DebugLog("Issuer Distinguished Name: " + cert.IssuerDN)
System.DebugLog("Issuer Common Name: " + cert.IssuerCN)

System.DebugLog("Expired: " + Str(cert.Expired))
System.DebugLog("Revoked: " + Str(cert.Revoked))
System.DebugLog("Signature Verified: " + Str(cert.SignatureVerified))
System.DebugLog("Trusted Root: " + Str(cert.TrustedRoot))

// Sample output:

// Distinguished Name: C=US, ST=California, O=Intel Corporation, CN=*.intel.com
// Common Name: *.intel.com
// Issuer Distinguished Name: C=GB, ST=Greater Manchester, L=Salford, O=Sectigo Limited, CN=Sectigo RSA Organization Validation Secure Server CA
// Issuer Common Name: Sectigo RSA Organization Validation Secure Server CA
// Expired: False
// Revoked: False
// Signature Verified: True
// Trusted Root: True