Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loSocket
LOCAL lnUseTls
LOCAL lnMaxWaitMs
LOCAL loCert

lnSuccess = 0

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

loSocket = CreateObject('Chilkat.Socket')

* Connect to a server.
lnUseTls = 1
lnMaxWaitMs = 2000
lnSuccess = loSocket.Connect("www.intel.com",443,lnUseTls,lnMaxWaitMs)
IF (lnSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

* 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.
loCert = CreateObject('Chilkat.Cert')
loSocket.GetServerCert(loCert)

? "Distinguished Name: " + loCert.SubjectDN
? "Common Name: " + loCert.SubjectCN
? "Issuer Distinguished Name: " + loCert.IssuerDN
? "Issuer Common Name: " + loCert.IssuerCN

? "Expired: " + STR(loCert.Expired)
? "Revoked: " + STR(loCert.Revoked)
? "Signature Verified: " + STR(loCert.SignatureVerified)
? "Trusted Root: " + STR(loCert.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

RELEASE loSocket
RELEASE loCert