Perl

Load PFX/P12 from a Base64 Encoded PFX File

See more PFX/P12 Examples

Demonstrates how to call LoadPfxEncoded. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $bd = Chilkat2::BinData->new;

my $success = $bd->LoadFile('qa_data/pfx/cert_test123.pfx');
if (!$success) {
    print "Failed to load PFX file.\n";
    exit;
}

# Get the bytes contained in the PFX in base64 format:
my $strBase64 = $bd->GetEncoded('base64');

# The base64 looks like this:  "MIIbEAIBAzCCGswGCSqGSIb3DQEHAaCCGr0Eghq5MIIatTCCBg..."
print $strBase64, "\n";

my $pfx = Chilkat2::Pfx->new;

# Load the PFX from the base64 string
my $password = 'test123';
$success = $pfx->LoadPfxEncoded($strBase64, 'base64', $password);
if (!$success) {
    print $pfx->LastErrorText, "\n";
    exit;
}

print "success\n";