(Visual FoxPro) Download and Trust the DigiCert Global Root CA

Demonstrates how to download a root certificate and trust it.

For more information, see https://www.digicert.com/digicert-root-certificates.htm

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lcCertUrl
LOCAL loHttp
LOCAL loBdCert
LOCAL lnSuccess
LOCAL loCert
LOCAL lcCertPath
LOCAL loTroots

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

* In this example, the URLs for the DigiCert root CA certs are available at this web page:
* https://www.digicert.com/digicert-root-certificates.htm

* This example downloads the "DigiCert Global Root G3"
* Valid until: 15/Jan/2038
* Serial #: 05:55:56:BC:F2:5E:A4:35:35:C3:A4:0F:D5:AB:45:72
* Thumbprint: 7E04DE896A3E666D00E687D33FFAD93BE83D349E

lcCertUrl = "https://dl.cacerts.digicert.com/DigiCertGlobalRootG3.crt"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBdCert = CreateObject('Chilkat.BinData')
lnSuccess = loHttp.DownloadBd(lcCertUrl,loBdCert)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loBdCert
    CANCEL
ENDIF

* Load it into a Chilkat cert object.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadFromBd(loBdCert)
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loHttp
    RELEASE loBdCert
    RELEASE loCert
    CANCEL
ENDIF

* Examine the common name,serial, and thumbprint:
? "CN: " + loCert.SubjectCN
? "Serial: " + loCert.SerialNumber
? "Thumbprint: " + loCert.Sha1Thumbprint

* Output from the above:
* CN: DigiCert Global Root G3
* Serial: 055556BCF25EA43535C3A40FD5AB4572
* Thumbprint: 7E04DE896A3E666D00E687D33FFAD93BE83D349E

* If desired, the certificate can be saved to a local file so it does not need
* to be downloaded from the website every time.  
lcCertPath = "qa_data/certs/DigiCertGlobalRootG3.crt"
lnSuccess = loBdCert.WriteFile(lcCertPath)

* To load the cert from a file...
lnSuccess = loCert.LoadFromFile(lcCertPath)

* Do the following to add the cert to the collection of trusted roots
* for this application.  (Note:  The trust is not persisted.  Each time the
* application runs, it should load the cert (from whatever source, whether it is
* a file, a database,etc.) and do the following:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.TrustedRoots')
loTroots = CreateObject('Chilkat.TrustedRoots')

loTroots.AddCert(loCert)
loTroots.Activate()

? loCert.SubjectCN + " is now trusted for this run of this application."

RELEASE loHttp
RELEASE loBdCert
RELEASE loCert
RELEASE loTroots