Xojo Plugin

Download and Trust the DigiCert Global Root CA

See more Certificates Examples

Demonstrates how to download a root certificate and trust it. Xojo Plugin

Dim success As Boolean
success = False

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

Dim certUrl As String
certUrl = "https://dl.cacerts.digicert.com/DigiCertGlobalRootG3.crt"

Dim http As New Chilkat.Http
Dim bdCert As New Chilkat.BinData
success = http.DownloadBd(certUrl,bdCert)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

// Load it into a Chilkat cert object.
Dim cert As New Chilkat.Cert
success = cert.LoadFromBd(bdCert)
If (success = False) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

// Examine the common name,serial, and thumbprint:
System.DebugLog("CN: " + cert.SubjectCN)
System.DebugLog("Serial: " + cert.SerialNumber)
System.DebugLog("Thumbprint: " + 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.  
Dim certPath As String
certPath = "qa_data/certs/DigiCertGlobalRootG3.crt"
success = bdCert.WriteFile(certPath)

// To load the cert from a file...
success = cert.LoadFromFile(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:
Dim troots As New Chilkat.TrustedRoots

success = troots.AddCert(cert)
success = troots.Activate()

System.DebugLog(cert.SubjectCN + " is now trusted for this run of this application.")