PowerBuilder

Download and Trust the DigiCert Global Root CA

See more Certificates Examples

Demonstrates how to download a root certificate and trust it. PowerBuilder

integer li_rc
integer li_Success
string ls_CertUrl
oleobject loo_Http
oleobject loo_BdCert
oleobject loo_Cert
string ls_CertPath
oleobject loo_Troots

li_Success = 0

// 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

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

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_BdCert = create oleobject
li_rc = loo_BdCert.ConnectToNewObject("Chilkat.BinData")

li_Success = loo_Http.DownloadBd(ls_CertUrl,loo_BdCert)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_BdCert
    return
end if

// Load it into a Chilkat cert object.
loo_Cert = create oleobject
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")

li_Success = loo_Cert.LoadFromBd(loo_BdCert)
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Http
    destroy loo_BdCert
    destroy loo_Cert
    return
end if

// Examine the common name,serial, and thumbprint:
Write-Debug "CN: " + loo_Cert.SubjectCN
Write-Debug "Serial: " + loo_Cert.SerialNumber
Write-Debug "Thumbprint: " + loo_Cert.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.  
ls_CertPath = "qa_data/certs/DigiCertGlobalRootG3.crt"
li_Success = loo_BdCert.WriteFile(ls_CertPath)

// To load the cert from a file...
li_Success = loo_Cert.LoadFromFile(ls_CertPath)

// 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:
loo_Troots = create oleobject
li_rc = loo_Troots.ConnectToNewObject("Chilkat.TrustedRoots")

loo_Troots.AddCert(loo_Cert)
loo_Troots.Activate()

Write-Debug loo_Cert.SubjectCN + " is now trusted for this run of this application."


destroy loo_Http
destroy loo_BdCert
destroy loo_Cert
destroy loo_Troots