Export Selected PFX Contents as PEM

See more PFX/P12 Examples

Demonstrates Pfx.ToPemEx, which exports selected PFX contents as PEM-formatted text with control over which parts are included and how private keys are encrypted.

use strict;
use warnings;
use Chilkat2;

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

# The file path is relative to the application's current working directory.  An absolute path
# may also be used.  Supply the path appropriate to your own environment.
# The PFX password should come from a secure source rather than being hard-coded.
my $password = 'myPfxPassword';
my $success = $pfx->LoadPfxFile('qa_data/identity.pfx', $password);
if (!$success) {
    print $pfx->LastErrorText, "\n";
    exit;
}

# Export selected PFX contents as PEM-formatted text.  The boolean arguments control what is
# included: extended attributes, and whether to omit private keys, certificates, or CA certificates.
my $bExtendedAttrs = 0;
my $bNoKeys = 0;
my $bNoCerts = 0;
my $bNoCaCerts = 0;

# Encrypt the exported private keys.  Supported algorithms include aes128, aes192, aes256, and 3des;
# leave the algorithm empty for unencrypted keys.  The key password should come from a secure source.
my $keyPassword = 'myKeyPassword';
my $pem = $pfx->ToPemEx($bExtendedAttrs, $bNoKeys, $bNoCerts, $bNoCaCerts, 'aes256', $keyPassword);
if (!$pfx->LastMethodSuccess) {
    print $pfx->LastErrorText, "\n";
    exit;
}

print $pem, "\n";