(AutoIt) Verify SSL Server Certificate

Demonstrates how to connect to an SSL server and verify its SSL certificate.

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

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

$oSocket = ObjCreate("Chilkat.Socket")

Local $bSsl = True
Local $iMaxWaitMillisec = 20000

; The SSL server hostname may be an IP address, a domain name,
; or "localhost". 
Local $sslServerHost
$sslServerHost = "www.paypal.com"
Local $iSslServerPort = 443

; Connect to the SSL server:
Local $bSuccess = $oSocket.Connect($sslServerHost,$iSslServerPort,$bSsl,$iMaxWaitMillisec)
If ($bSuccess <> True) Then
    ConsoleWrite($oSocket.LastErrorText & @CRLF)
    Exit
EndIf

Local $oCert

Local $bExpired
Local $bRevoked
Local $bSignatureVerified
Local $bTrustedRoot

$oCert = $oSocket.GetSslServerCert()
If ($oSocket.LastMethodSuccess <> False) Then

    ConsoleWrite("Server Certificate:" & @CRLF)
    ConsoleWrite("Distinguished Name: " & $oCert.SubjectDN & @CRLF)
    ConsoleWrite("Common Name: " & $oCert.SubjectCN & @CRLF)
    ConsoleWrite("Issuer Distinguished Name: " & $oCert.IssuerDN & @CRLF)
    ConsoleWrite("Issuer Common Name: " & $oCert.IssuerCN & @CRLF)

    $bExpired = $oCert.Expired
    $bRevoked = $oCert.Revoked
    $bSignatureVerified = $oCert.SignatureVerified
    $bTrustedRoot = $oCert.TrustedRoot

    ConsoleWrite("Expired: " & $bExpired & @CRLF)
    ConsoleWrite("Revoked: " & $bRevoked & @CRLF)
    ConsoleWrite("Signature Verified: " & $bSignatureVerified & @CRLF)
    ConsoleWrite("Trusted Root: " & $bTrustedRoot & @CRLF)

EndIf

; Close the connection with the server
; Wait a max of 20 seconds (20000 millsec)
$bSuccess = $oSocket.Close(20000)