(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

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

loTrustedRoots = createobject("CkTrustedRoots")

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

// 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.
loZip = createobject("CkZip")

// Open a .zip containing PEM files, among other things..
llSuccess = loZip.OpenZip("qa_data/certs/thawte-roots.zip")
if (llSuccess <> .T.) then
    ? loZip.LastErrorText
    release loTrustedRoots
    release loZip
    return
endif

loEntry = loZip.FirstMatchingEntry("*.pem")
if (loZip.LastMethodSuccess <> .T.) then
    ? "No entries matched."
    release loTrustedRoots
    release loZip
    return
endif

loCert = createobject("CkCert")

llBHasMoreEntries = .T.
do while (llBHasMoreEntries = .T.)

    ? "Entry: " + loEntry.FileName

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

    // Load it into a certificate object:
    llSuccess = loCert.LoadPem(lcPemStr)
    if (llSuccess <> .T.) 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")
    llBHasMoreEntries = 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.
llSuccess = loTrustedRoots.Activate()


release loTrustedRoots
release loZip
release loCert