Perl

Load PFX/P12 File into Certificate Store Object

Demonstrates how to load a .pfx/.p12 into a certificate store object. Perl

use chilkat();

$success = 0;

$certStore = chilkat::CkCertStore->new();

# This only loads the contents of the PFX file into the certStore object.
# It is not importing the PFX into the Windows certificate stores.
$pfxPassword = "badssl.com";
$success = $certStore->LoadPfxFile("qa_data/pfx/badssl.com-client.p12",$pfxPassword);
if ($success == 0) {
    print $certStore->lastErrorText() . "\r\n";
    exit;
}

# Examine each certificate (loaded from the PFX) in this certStore object
$cert = chilkat::CkCert->new();
$numCerts = $certStore->get_NumCertificates();
$i = 0;
while ($i < $numCerts) {
    $certStore->GetCert($i,$cert);
    print "hasPrivateKey=" . $cert->HasPrivateKey() . ", " . $cert->subjectCN() . "\r\n";
    $i = $i + 1;
}