(Perl) Load PKCS12 / PFX and Access Contents

Loads a PKCS12 / PFX file and iterates over the contents which include private keys and certificates.

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

use chilkat();

$pfx = chilkat::CkPfx->new();

# Load the PKCS12 from a file
$success = $pfx->LoadPfxFile("/someDir/my.p12","pfxFilePassword");
if ($success != 1) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

$numPrivateKeys = $pfx->get_NumPrivateKeys();

print "Private Keys:" . "\r\n";

$i = 0;
while ($i < $numPrivateKeys) {
    # privKey is a PrivateKey
    $privKey = $pfx->GetPrivateKey($i);

    # Do something with the private key ...

    $i = $i + 1;
}

$numCerts = $pfx->get_NumCerts();

print "Certs:" . "\r\n";
$i = 0;
while ($i < $numCerts) {
    # cert is a Cert
    $cert = $pfx->GetCert($i);
    print $cert->subjectDN() . "\r\n";

    # If the certificate has a private key (one of the private keys within the PFX)
    # then it can also be obtained via the certificate object:
    if ($cert->HasPrivateKey() == 1) {

        print "Has private key!" . "\r\n";

        # privKey is a PrivateKey
        $privKey = $cert->ExportPrivateKey();
        # ...

    }

    $i = $i + 1;
}