Perl

Require SSL Server Certificate Domain Match

See more HTTP Examples

Demonstrates how to require that the SSL server certificate's domain matches the intended domain. Perl

use chilkat();

$success = 0;

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

$http = chilkat::CkHttp->new();

# Call SetSslCertRequirement to require that the SSL server certificate's domain
# matches only the domain we are intending to communicate with.

# In this example we will test with the URL https://wrong.host.badssl.com/
# which intentionally has an SSL certificate that does not match "wrong.host.badssl.com"

$http->SetSslCertRequirement("SAN","wrong.host.badssl.com");

# Also validate the server cert..
$http->put_RequireSslCertVerify(1);

# Try sending the request.  It should fail within the SSL/TLS handshake
# because the server's certificate does not match the domain "wrong.host.badssl.com"
$html = $http->quickGetStr("https://wrong.host.badssl.com/");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
}
else {
    print "Unexpected success." . "\r\n";
}