Perl

Use HTTPS Client Certificate from .cer and .key Files

See more HTTP Examples

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

use strict;
use warnings;
use Chilkat2;

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

my $http = Chilkat2::Http->new;

my $cert = Chilkat2::Cert->new;
my $privKey = Chilkat2::PrivateKey->new;

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

# Load the private key.
my $bd = Chilkat2::BinData->new;
$success = $bd->LoadFile('qa_data/certs/sample_key_a.key');
$success = $privKey->LoadAnyFormat($bd, 'privateKeyPasswordIfNecessary');
if (!$success) {
    print $privKey->LastErrorText, "\n";
    exit;
}

# Associate the private key with the cert.
$success = $cert->SetPrivateKey($privKey);
if (!$success) {
    print $cert->LastErrorText, "\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) {
    print $http->LastErrorText, "\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.