Xojo Plugin

HTTP - Verify Server is a Trusted Root CA

See more HTTP Examples

Demonstrates how to only allow connections to an HTTP server having a certificate with a root that is in our list of trusted CA root certificates. Xojo Plugin

Dim success As Boolean
success = False

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

success = False

//  On my particular system, the root CA cert for this URL is not pre-installed.
//  Note: This may be different for you.
//  Also, this example was written on 29-May-2015.  This URL was valid at the time,
//  but may not be valid at a future date.
Dim url As String
url = "https://animals.nationalgeographic.com/animals/invertebrates/starfish/"

Dim http As New Chilkat.Http

//  Require that the SSL/TLS server certificate is not expired,
//  and that the certificate signature is valid.
//  This does not ensure that it has a chain of authentication to
//  a trusted root.  To ensure that, the TrustedRoots object (below) is required.
http.RequireSslCertVerify = True

//  Do the HTTPS page fetch (through the SSH tunnel)
Dim html As String
html = http.QuickGetStr(url)
If (http.LastMethodSuccess <> True) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

System.DebugLog("The HTTP GET was successful.")

//  Now let's require that HTTP requests to SSL/TLS servers that don't have trusted CA roots
//  should fail.
Dim trustedRoots As New Chilkat.TrustedRoots

//  Indicate that we will trust any pre-installed certificates on this system.
//  (The meaning of pre-installed certificates depends on the operating system, and in
//  some environments there is no such thing as pre-installed certificates.  See the reference
//  documentation for the TrustedRoots class.)
trustedRoots.TrustSystemCaRoots = True

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

//  Given that our previous HTTP GET likely kept the connection open,
//  make sure that all HTTP connections are closed before re-trying.
//  Otherwise, we'll simply be re-using the pre-existing connection.
success = http.CloseAllConnections()

//  Now let's try fetching the URL again.  It should fail this time because
//  there is a requirement that the SSL/TLS server certificate must have a trusted root,
//  and the trusted root for this URL is not installed on my system (but may be different for you..)
html = http.QuickGetStr(url)
If (http.LastMethodSuccess <> True) Then
    System.DebugLog(http.LastErrorText)
    System.DebugLog("Good, the HTTP request failed as expected.")
Else
    System.DebugLog(http.LastErrorText)
    System.DebugLog("Hmmm... we did not fail as expected?")
End If