(Perl) Iterate Keys and Certs in PEM

Demonstrates how to access each of the private keys and certs contained within a PEM.

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

use chilkat();

# Starting in v9.5.0.49, all Chilkat classes can be unlocked at once at the beginning of a program
# by calling UnlockBundle.  It requires a Bundle unlock code.
$chilkatGlob = chilkat::CkGlobal->new();
$success = $chilkatGlob->UnlockBundle("Anything for 30-day trial.");
if ($success != 1) {
    print $chilkatGlob->lastErrorText() . "\r\n";
    exit;
}

# The Chilkat PEM class was introduced in v9.5.0.49.  
# It requires the bundle to be unlocked, as shown above.
$pem = chilkat::CkPem->new();

# Load the PEM from a file.
# If the PEM is encrypted, provide a password.  Otherwise pass an empty string for the password.
$password = "myPassword";
$success = $pem->LoadPemFile("../myPemFiles/myPem.pem",$password);
if ($success != 1) {
    print $pem->lastErrorText() . "\r\n";
    exit;
}

# Note: If the app already has the PEM pre-loaded in a string variable, then load it 
# by calling LoadPem instead.  
$pemContent = "... the PEM contents ...";
$success = $pem->LoadPem($pemContent,$password);
# Check for success as before..

# Iterate over the private keys.
$numPrivateKeys = $pem->get_NumPrivateKeys();
$i = 0;

while ($i < $numPrivateKeys) {

    # privKey is a PrivateKey
    $privKey = $pem->GetPrivateKey($i);
    print "Private Key " . $i . " is " . $privKey->get_BitLength() . " in length" . "\r\n";

    $i = $i + 1;
}

# Iterate over the certificates.
$numCerts = $pem->get_NumCerts();
$i = 0;

while ($i < $numCerts) {

    # cert is a Cert
    $cert = $pem->GetCert($i);
    print "Certificate " . $i . " : " . $cert->subjectDN() . "\r\n";

    $i = $i + 1;
}