Perl Requires Chilkat v11.0.0+

Examine SSL/TLS Server Certificate

See more Socket/SSL/TLS Examples

Demonstrates how an application can examine and check a server's SSL/TLS certificate. Perl

use chilkat();

$success = 0;

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

$socket = chilkat::CkSocket->new();

#  Connect to a server.
$useTls = 1;
$maxWaitMs = 2000;
$success = $socket->Connect("www.intel.com",443,$useTls,$maxWaitMs);
if ($success == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

#  If we get here, the TLS connection ws made..
#  In any SSL/TLS handshake, the server sends its certificate in a TLS handshake message.
#  Chilkat will keep it cached within the object that made the connection.
#  Get the server's cert and examine a few things.
$cert = chilkat::CkCert->new();
$socket->GetServerCert($cert);

print "Distinguished Name: " . $cert->subjectDN() . "\r\n";
print "Common Name: " . $cert->subjectCN() . "\r\n";
print "Issuer Distinguished Name: " . $cert->issuerDN() . "\r\n";
print "Issuer Common Name: " . $cert->issuerCN() . "\r\n";

print "Expired: " . $cert->get_Expired() . "\r\n";
print "Revoked: " . $cert->get_Revoked() . "\r\n";
print "Signature Verified: " . $cert->get_SignatureVerified() . "\r\n";
print "Trusted Root: " . $cert->get_TrustedRoot() . "\r\n";

#  Sample output:

#  Distinguished Name: C=US, ST=California, O=Intel Corporation, CN=*.intel.com
#  Common Name: *.intel.com
#  Issuer Distinguished Name: C=GB, ST=Greater Manchester, L=Salford, O=Sectigo Limited, CN=Sectigo RSA Organization Validation Secure Server CA
#  Issuer Common Name: Sectigo RSA Organization Validation Secure Server CA
#  Expired: False
#  Revoked: False
#  Signature Verified: True
#  Trusted Root: True