PowerBuilder Requires Chilkat v11.0.0+

HTTPS Server Certificate Require Hostname Match

See more HTTP Examples

Demonstrates and explains the RequireHostnameMatch property. PowerBuilder

integer li_rc
oleobject loo_Http
string ls_Html

//  The RequireHostnameMatch property was added in Chilkat v11.0.0
//  to ensure the URL's hostname matches at least one of the server certificate SAN's (Subject Alternative Names)
//  
//  In actuality, it is the SNI hostname that must match.  If the SNI hostname is not explicitly set,
//  then Chilkat uses the hostname from the URL as the SNI hostname.

//  Here's an example using chilkatsoft.com
//  The SSL server certificate for chilkatsoft.com has 2 Subject Alternative Names:
//  
//  1) DNS Name: *.chilkatsoft.com
//  2) DNS Name: chilkatsoft.com
//  
//  See Explaining the SNI Hostname in TLS

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

loo_Http.RequireHostnameMatch = 1

//  This should succeed because "www.chilkatsoft.com" matches the SAN entry "*.chilkatsoft.com"
ls_Html = loo_Http.QuickGetStr("https://www.chilkatsoft.com/helloWorld.html")
Write-Debug "1) Succeeded: " + string(loo_Http.LastMethodSuccess)

//  At the time of writing this example, the IP address for chilkatsoft.com is 3.101.18.47
//  If we send the request using the IP address, it will fail because the IP address is does 
//  not match any of the SAN entries in the server certificate.
ls_Html = loo_Http.QuickGetStr("https://3.101.18.47/helloWorld.html")
Write-Debug "2) Succeeded: " + string(loo_Http.LastMethodSuccess)

//  However, it will succeed if we explicitly set the SNI hostname.
loo_Http.SniHostname = "www.chilkatsoft.com"
ls_Html = loo_Http.QuickGetStr("https://3.101.18.47/helloWorld.html")
Write-Debug "3) Succeeded: " + string(loo_Http.LastMethodSuccess)

//  Remove our explicit SNI hostname.
loo_Http.SniHostname = ""

//  Now let's try wrong.host.badssl.com
//  The SSL server certificate for badssl.com has 2 Subject Alternative Names:
//  
//  1) DNS Name: *.badssl.com
//  2) DNS Name: badssl.com

//  The domain wrong.host.badssl.com will fail the RequireHostnameMatch because
//  the wildcarded domain SAN entry only extends 1 level deep.  
ls_Html = loo_Http.QuickGetStr("https://wrong.host.badssl.com/")
Write-Debug "4) Succeeded: " + string(loo_Http.LastMethodSuccess)

//  The expected output is:
//  1) Succeeded: True
//  2) Succeeded: False
//  3) Succeeded: True
//  4) Succeeded: False


destroy loo_Http