PowerBuilder

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. PowerBuilder

integer li_rc
long li_Success
string ls_Url
oleobject loo_Http
string ls_Html
oleobject loo_TrustedRoots

li_Success = 0

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

li_Success = 0

//   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.
ls_Url = "https://animals.nationalgeographic.com/animals/invertebrates/starfish/"

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

//   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.
loo_Http.RequireSslCertVerify = 1

//   Do the HTTPS page fetch (through the SSH tunnel)
ls_Html = loo_Http.QuickGetStr(ls_Url)
if loo_Http.LastMethodSuccess <> 1 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    return
end if

Write-Debug "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.
loo_TrustedRoots = create oleobject
li_rc = loo_TrustedRoots.ConnectToNewObject("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.)
loo_TrustedRoots.TrustSystemCaRoots = 1

//   Activate the trusted roots globally for all Chilkat objects.
//   This call really shouldn't fail, so we're not checking the return value.
li_Success = loo_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.
li_Success = loo_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..)
ls_Html = loo_Http.QuickGetStr(ls_Url)
if loo_Http.LastMethodSuccess <> 1 then
    Write-Debug loo_Http.LastErrorText
    Write-Debug "Good, the HTTP request failed as expected."
else
    Write-Debug loo_Http.LastErrorText
    Write-Debug "Hmmm... we did not fail as expected?"
end if



destroy loo_Http
destroy loo_TrustedRoots