Visual FoxPro

Verify SSL Server Certificate

See more Socket/SSL/TLS Examples

Demonstrates how to connect to an SSL server and verify its SSL certificate. Visual FoxPro

LOCAL lnSuccess
LOCAL loSocket
LOCAL lnSsl
LOCAL lnMaxWaitMillisec
LOCAL lcSslServerHost
LOCAL lnSslServerPort
LOCAL loCert
LOCAL lnBExpired
LOCAL lnBRevoked
LOCAL lnBSignatureVerified
LOCAL lnBTrustedRoot

lnSuccess = 0

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

loSocket = CreateObject('Chilkat.Socket')

lnSsl = 1
lnMaxWaitMillisec = 20000

* The SSL server hostname may be an IP address, a domain name,
* or "localhost". 

lcSslServerHost = "www.paypal.com"
lnSslServerPort = 443

* Connect to the SSL server:
lnSuccess = loSocket.Connect(lcSslServerHost,lnSslServerPort,lnSsl,lnMaxWaitMillisec)
IF (lnSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

loCert = CreateObject('Chilkat.Cert')

lnSuccess = loSocket.GetServerCert(loCert)
IF (lnSuccess <> 0) THEN

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

    lnBExpired = loCert.Expired
    lnBRevoked = loCert.Revoked
    lnBSignatureVerified = loCert.SignatureVerified
    lnBTrustedRoot = loCert.TrustedRoot

    ? "Expired: " + STR(lnBExpired)
    ? "Revoked: " + STR(lnBRevoked)
    ? "Signature Verified: " + STR(lnBSignatureVerified)
    ? "Trusted Root: " + STR(lnBTrustedRoot)

ENDIF

* Close the connection with the server
* Wait a max of 20 seconds (20000 millsec)
lnSuccess = loSocket.Close(20000)

RELEASE loSocket
RELEASE loCert