(Visual FoxPro) Use a Custom Set of Trusted Root Certificates

Demonstrates how to build a set of trusted root certificates to be used globally by all Chilkat classes.

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

LOCAL loTrustedRoots
LOCAL loZip
LOCAL lnSuccess
LOCAL loEntry
LOCAL loNextEntry
LOCAL lcPemStr
LOCAL loCert
LOCAL lnBHasMoreEntries

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.TrustedRoots')
loTrustedRoots = CreateObject('Chilkat.TrustedRoots')

*  Indicate that we will NOT trust any pre-installed certificates on the system.
loTrustedRoots.TrustSystemCaRoots = 0

* Thawte is a certificate authority that provides a .zip download of their
* root CA certificates:  https://www.thawte.com/roots/index.html
* The direct download link is: https://www.verisign.com/support/thawte-roots.zip
* Note: The above URLs are valid at the time of writing this example (29-May-2015).

* Assuming the .zip has already been downloaded, open it and load each .pem file into
* our trusted roots object.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Zip')
loZip = CreateObject('Chilkat.Zip')

* Open a .zip containing PEM files, among other things..
lnSuccess = loZip.OpenZip("qa_data/certs/thawte-roots.zip")
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loTrustedRoots
    RELEASE loZip
    CANCEL
ENDIF

loEntry = loZip.FirstMatchingEntry("*.pem")
IF (loZip.LastMethodSuccess <> 1) THEN
    ? "No entries matched."
    RELEASE loTrustedRoots
    RELEASE loZip
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')

lnBHasMoreEntries = 1
DO WHILE (lnBHasMoreEntries = 1)

    ? "Entry: " + loEntry.FileName

    * Get the PEM of the CA cert:
    lcPemStr = loEntry.UnzipToString(0,"utf-8")

    * Load it into a certificate object:
    lnSuccess = loCert.LoadPem(lcPemStr)
    IF (lnSuccess <> 1) THEN
        ? loCert.LastErrorText
    ENDIF

    * Add it to the trusted roots.
    loTrustedRoots.AddCert(loCert)

    * The NextMatchingEntry method was added in v9.5.0.50
    loNextEntry = loEntry.NextMatchingEntry("*.pem")
    lnBHasMoreEntries = loEntry.LastMethodSuccess

    RELEASE loEntry
    loEntry = loNextEntry
ENDDO

*  Activate the trusted roots globally for all Chilkat objects.
*  This call really shouldn't fail, so we're not checking the return value.
lnSuccess = loTrustedRoots.Activate()

RELEASE loTrustedRoots
RELEASE loZip
RELEASE loCert