(AutoIt) HTTP - Verify Server is a Trusted Root CA

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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; Starting in v9.5.0.49, all Chilkat classes can be unlocked at once at the beginning of a program
; by calling UnlockBundle.  It requires a Bundle unlock code.
$oChilkatGlob = ObjCreate("Chilkat.Global")
Local $bSuccess = $oChilkatGlob.UnlockBundle("Anything for 30-day trial.")
If ($bSuccess <> True) Then
    ConsoleWrite($oChilkatGlob.LastErrorText & @CRLF)
    Exit
EndIf

;  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.
Local $sUrl = "https://animals.nationalgeographic.com/animals/invertebrates/starfish/"

$oHttp = ObjCreate("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.
$oHttp.RequireSslCertVerify = True

;  Do the HTTPS page fetch (through the SSH tunnel)
Local $sHtml = $oHttp.QuickGetStr($sUrl)
If ($oHttp.LastMethodSuccess <> True) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("The HTTP GET was successful." & @CRLF)

;  Now let's require that HTTP requests to SSL/TLS servers that don't have trusted CA roots
;  should fail.
$oTrustedRoots = ObjCreate("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.)
$oTrustedRoots.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.
$bSuccess = $oTrustedRoots.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.
$bSuccess = $oHttp.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..)
$sHtml = $oHttp.QuickGetStr($sUrl)
If ($oHttp.LastMethodSuccess <> True) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    ConsoleWrite("Good, the HTTP request failed as expected." & @CRLF)
Else
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    ConsoleWrite("Hmmm... we did not fail as expected?" & @CRLF)
EndIf