(Perl) Use HTTPS Client Certificate from .cer and .key Files

Demonstrates how to load a cert + private key from .cer and .key (base64) files and use it for mutual TLS authentication (client-side certificate).

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

use chilkat();

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

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

$cert = chilkat::CkCert->new();
$privKey = chilkat::CkPrivateKey->new();

# Load any type of certificate (.cer, .p7b, .pem, etc.) by calling LoadFromFile.
$success = $cert->LoadFromFile("qa_data/certs/sample_cert_a.cer");
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# Load the private key.
$bd = chilkat::CkBinData->new();
$success = $bd->LoadFile("qa_data/certs/sample_key_a.key");
$success = $privKey->LoadAnyFormat($bd,"privateKeyPasswordIfNecessary");
if ($success != 1) {
    print $privKey->lastErrorText() . "\r\n";
    exit;
}

# Associate the private key with the cert.
$success = $cert->SetPrivateKey($privKey);
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# Set the certificate to be used for mutual TLS authentication
# (i.e. sets the client-side certificate for two-way TLS authentication)
$success = $http->SetSslClientCert($cert);
if ($success != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# At this point, the HTTP object instance is setup with the client-side cert, and any SSL/TLS
# connection will automatically use it if the server demands a client-side cert.