(PowerBuilder) Verify SSL Server Certificate

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

Note: This example requires Chilkat v11.0.0 or greater.

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

integer li_rc
integer li_Success
oleobject loo_Socket
integer li_Ssl
integer li_MaxWaitMillisec
string ls_SslServerHost
integer li_SslServerPort
oleobject loo_Cert
integer li_BExpired
integer li_BRevoked
integer li_BSignatureVerified
integer li_BTrustedRoot

li_Success = 0

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

loo_Socket = create oleobject
li_rc = loo_Socket.ConnectToNewObject("Chilkat.Socket")
if li_rc < 0 then
    destroy loo_Socket
    MessageBox("Error","Connecting to COM object failed")
    return
end if

li_Ssl = 1
li_MaxWaitMillisec = 20000

// The SSL server hostname may be an IP address, a domain name,
// or "localhost". 

ls_SslServerHost = "www.paypal.com"
li_SslServerPort = 443

// Connect to the SSL server:
li_Success = loo_Socket.Connect(ls_SslServerHost,li_SslServerPort,li_Ssl,li_MaxWaitMillisec)
if li_Success = 0 then
    Write-Debug loo_Socket.LastErrorText
    destroy loo_Socket
    return
end if

loo_Cert = create oleobject
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")

li_Success = loo_Socket.GetServerCert(loo_Cert)
if li_Success <> 0 then

    Write-Debug "Server Certificate:"
    Write-Debug "Distinguished Name: " + loo_Cert.SubjectDN
    Write-Debug "Common Name: " + loo_Cert.SubjectCN
    Write-Debug "Issuer Distinguished Name: " + loo_Cert.IssuerDN
    Write-Debug "Issuer Common Name: " + loo_Cert.IssuerCN

    li_BExpired = loo_Cert.Expired
    li_BRevoked = loo_Cert.Revoked
    li_BSignatureVerified = loo_Cert.SignatureVerified
    li_BTrustedRoot = loo_Cert.TrustedRoot

    Write-Debug "Expired: " + string(li_BExpired)
    Write-Debug "Revoked: " + string(li_BRevoked)
    Write-Debug "Signature Verified: " + string(li_BSignatureVerified)
    Write-Debug "Trusted Root: " + string(li_BTrustedRoot)

end if

// Close the connection with the server
// Wait a max of 20 seconds (20000 millsec)
li_Success = loo_Socket.Close(20000)


destroy loo_Socket
destroy loo_Cert