Serialize a PFX to BinData

See more PFX/P12 Examples

Demonstrates Pfx.ToBd, which serializes the current PFX contents as PKCS#12 data into a BinData object, using the supplied output password.

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;
}

# Serialize the PFX contents as PKCS#12 data into a BinData, using the given output password.
my $outputPassword = 'myOutputPassword';
my $bd = Chilkat2::BinData->new;
$success = $pfx->ToBd($outputPassword, $bd);
if (!$success) {
    print $pfx->LastErrorText, "\n";
    exit;
}

print 'Serialized ', $bd->NumBytes, " bytes of PKCS#12 data.\n";