(Perl) Socket TLS Mutual Authentication (Client-Side Certificate)

This example demonstrates how to provide a client-side certificate, also known as "two-way authentication" or "mutual authentication" for servers that require a client certificate.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

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

# Set the certificate to be used for mutual TLS authentication
# (i.e. sets the client-side certificate for two-way TLS authentication)
$success = $sock->SetSslClientCertPfx("/home/bob/pfxFiles/myClientSideCertWithPrivateKey.pfx","pfxPassword");
if ($success != 1) {
    print $sock->lastErrorText() . "\r\n";
    exit;
}

# Note: The certificate used for the client-side of TLS mutual authentication
# must have the associated private key available. (.pfx/.p12 files typically store both
# the certificate and associated private key.)

# Establish the connection using the socket object (with client certificate authentication).
$bTls = 1;
$port = 443;
$maxWaitMs = 5000;
$success = $sock->Connect("www.example.com",$port,$bTls,$maxWaitMs);
if ($success != 1) {
    print "Connect Failure Error Code: " . $sock->get_ConnectFailReason() . "\r\n";
    print $sock->lastErrorText() . "\r\n";
    exit;
}

# At this point, the Socket object is connected and authenticated using the client-side cert

# ...
# ..