Xbase++

Trust Specific Root CA Certificates

See more Certificates Examples

Demonstrates how to trust specific root CA certificates and none others. Xbase++

LOCAL nSuccess
LOCAL oTRoots
LOCAL oCaCert
LOCAL oHttp

nSuccess := 0

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

//  This example will trust the Amazon root CA certificates provided at 
//  https://www.amazontrust.com/repository/

//  I've previously downloaded the root CA certificates to DER format.
//  Add each to the Chilkat TrustedRoots singleton object.

oTRoots := CreateObject("Chilkat.TrustedRoots")

oCaCert := CreateObject("Chilkat.Cert")
nSuccess := oCaCert:LoadFromFile("qa_data/certs/aws_root_ca/AmazonRootCA1.cer")
IF (nSuccess == 0)
    ? oCaCert:LastErrorText
    oTRoots:destroy()
    oCaCert:destroy()
    RETURN
ENDIF

nSuccess := oTRoots:AddCert(oCaCert)

//  Continue with the others.
//  For brevity, we're not checking return values for success/failure.
nSuccess := oCaCert:LoadFromFile("qa_data/certs/aws_root_ca/AmazonRootCA2.cer")
nSuccess := oTRoots:AddCert(oCaCert)

nSuccess := oCaCert:LoadFromFile("qa_data/certs/aws_root_ca/AmazonRootCA3.cer")
nSuccess := oTRoots:AddCert(oCaCert)

nSuccess := oCaCert:LoadFromFile("qa_data/certs/aws_root_ca/AmazonRootCA4.cer")
nSuccess := oTRoots:AddCert(oCaCert)

nSuccess := oCaCert:LoadFromFile("qa_data/certs/aws_root_ca/SFSRootCAG2.cer")
nSuccess := oTRoots:AddCert(oCaCert)

//  Indicate we don't want to automatically trust the operating system's installed root CA certificates.
//  On a Windows operating system, this would be the registry-based CA certificate stores. 
//  On a Linux system, this could be /etc/ssl/certs/ca-certificates.crt, if it exists.
oTRoots:TrustSystemCaRoots := 0

//  Activate the trusted roots object.
//  Once activated, all Chilkat objects that use TLS connections (HTTP, REST, Socket, MailMan, IMAP, FTP, etc.)
//  will fail the TLS handshake if the server certificate is not verified and rooted with one of our explicitly trusted root certificates.
nSuccess := oTRoots:Activate()

oHttp := CreateObject("Chilkat.Http")

//  Note: We also need to explicitly indicate that server certificates are to be verified.
oHttp:RequireSslCertVerify := 1

//  For example, the following should fail because www.chilkatsoft.com's server certificate is not rooted in one of the explicitly trusted root CA certs.
nSuccess := oHttp:Download("https://www.chilkatsoft.com/helloWorld.txt", "qa_output/helloWorld.txt")
IF (nSuccess != 1)
    //  The above Download should fail.
    ? oHttp:LastErrorText

    //  There should be a message in the LastErrorText indicating that we were "Unable to build certificate chain to root.."
ENDIF

//  However, we should be able to make TLS connections to good.sca1a.amazontrust.com
nSuccess := oHttp:Download("https://good.sca1a.amazontrust.com/", "qa_output/valid.html")
IF (nSuccess != 1)
    ? oHttp:LastErrorText
    oTRoots:destroy()
    oCaCert:destroy()
    oHttp:destroy()
    RETURN
ENDIF

//  We can still examine the LastErrorText and we'll find this message within:  
//  "The public key was successfully validated against the public key of the explicitly trusted root cert."
? oHttp:LastErrorText

? "Success!"

oTRoots:destroy()
oCaCert:destroy()
oHttp:destroy()