PureBasic

Download and Trust the DigiCert Global Root CA

See more Certificates Examples

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

IncludeFile "CkBinData.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkTrustedRoots.pb"
IncludeFile "CkCert.pb"

Procedure ChilkatExample()

    success.i = 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

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    bdCert.i = CkBinData::ckCreate()
    If bdCert.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckDownloadBd(http,certUrl,bdCert)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkBinData::ckDispose(bdCert)
        ProcedureReturn
    EndIf

    ; Load it into a Chilkat cert object.
    cert.i = CkCert::ckCreate()
    If cert.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkCert::ckLoadFromBd(cert,bdCert)
    If success = 0
        Debug CkCert::ckLastErrorText(cert)
        CkHttp::ckDispose(http)
        CkBinData::ckDispose(bdCert)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    ; Examine the common name,serial, and thumbprint:
    Debug "CN: " + CkCert::ckSubjectCN(cert)
    Debug "Serial: " + CkCert::ckSerialNumber(cert)
    Debug "Thumbprint: " + CkCert::ckSha1Thumbprint(cert)

    ; 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.  
    certPath.s = "qa_data/certs/DigiCertGlobalRootG3.crt"
    success = CkBinData::ckWriteFile(bdCert,certPath)

    ; To load the cert from a file...
    success = CkCert::ckLoadFromFile(cert,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:
    troots.i = CkTrustedRoots::ckCreate()
    If troots.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkTrustedRoots::ckAddCert(troots,cert)
    CkTrustedRoots::ckActivate(troots)

    Debug CkCert::ckSubjectCN(cert) + " is now trusted for this run of this application."


    CkHttp::ckDispose(http)
    CkBinData::ckDispose(bdCert)
    CkCert::ckDispose(cert)
    CkTrustedRoots::ckDispose(troots)


    ProcedureReturn
EndProcedure