(PowerBuilder) 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

integer li_rc
oleobject loo_TrustedRoots
oleobject loo_Zip
integer li_Success
oleobject loo_Entry
oleobject loo_NextEntry
string ls_PemStr
oleobject loo_Cert
integer li_BHasMoreEntries

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

loo_TrustedRoots = create oleobject
// Use "Chilkat_9_5_0.TrustedRoots" for versions of Chilkat < 10.0.0
li_rc = loo_TrustedRoots.ConnectToNewObject("Chilkat.TrustedRoots")
if li_rc < 0 then
    destroy loo_TrustedRoots
    MessageBox("Error","Connecting to COM object failed")
    return
end if

//  Indicate that we will NOT trust any pre-installed certificates on the system.
loo_TrustedRoots.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.
loo_Zip = create oleobject
// Use "Chilkat_9_5_0.Zip" for versions of Chilkat < 10.0.0
li_rc = loo_Zip.ConnectToNewObject("Chilkat.Zip")

// Open a .zip containing PEM files, among other things..
li_Success = loo_Zip.OpenZip("qa_data/certs/thawte-roots.zip")
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_TrustedRoots
    destroy loo_Zip
    return
end if

loo_Entry = loo_Zip.FirstMatchingEntry("*.pem")
if loo_Zip.LastMethodSuccess <> 1 then
    Write-Debug "No entries matched."
    destroy loo_TrustedRoots
    destroy loo_Zip
    return
end if

loo_Cert = create oleobject
// Use "Chilkat_9_5_0.Cert" for versions of Chilkat < 10.0.0
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")

li_BHasMoreEntries = 1
do while (li_BHasMoreEntries = 1)

    Write-Debug "Entry: " + loo_Entry.FileName

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

    // Load it into a certificate object:
    li_Success = loo_Cert.LoadPem(ls_PemStr)
    if li_Success <> 1 then
        Write-Debug loo_Cert.LastErrorText
    end if

    // Add it to the trusted roots.
    loo_TrustedRoots.AddCert(loo_Cert)

    // The NextMatchingEntry method was added in v9.5.0.50
    loo_NextEntry = loo_Entry.NextMatchingEntry("*.pem")
    li_BHasMoreEntries = loo_Entry.LastMethodSuccess

    destroy loo_Entry
    loo_Entry = loo_NextEntry
loop

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


destroy loo_TrustedRoots
destroy loo_Zip
destroy loo_Cert