Get SSL Server Certificate

Demonstrates how to retrieve the SSL server certificate for a site. This method establishes an SSL/TLS connection with a web server for the purpose of retrieving the SSL certificate, which may then be examined via the Chilkat certificate API.

Download Chilkat HTTP ActiveX

LOCAL loHttp
LOCAL lnSuccess
LOCAL loCert

loHttp = CreateObject('Chilkat.Http')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loHttp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
    QUIT
ENDIF

*  Notice:  The GetServerSslCert method is available in any
*  release dated after 7-April-2009

*  Get the SSL cert for paypal.com

loCert = loHttp.GetServerSslCert("paypal.com",443)
IF (loCert = NULL ) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
ELSE
    =MESSAGEBOX(loCert.SubjectDN)
    RELEASE loCert
ENDIF