(Perl) Duplicate openssl pkcs12 –export –in certfile.cer –inkey certfile.key –out certfile.pfx

How to create a PKCS12 (.p12 or .pfx) from a certificate file and private key file: Demonstrates how to duplicate this OpenSSL command:

Duplicate openssl pkcs12 –export –in certfile.cer –inkey certfile.key –out certfile.pfx

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

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$pkey = chilkat::CkPrivateKey->new();

# Load the private key from the file.
$success = $pkey->LoadAnyFormatFile("certFile.key","");
if ($success != 1) {
    print $pkey->lastErrorText() . "\r\n";
    exit;
}

$cert = chilkat::CkCert->new();
# The LoadFromFile method auto-recognizes the format...
$success = $cert->LoadFromFile("certfile.cer");
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# We'll need a cert chain object to create the PKCS12, so get it
# from the cert.  

# certChain is a CertChain
$certChain = $cert->GetCertChain();
if (!$cert->get_LastMethodSuccess()) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# Create the PFX object, add the cert and private key, and write to a .pfx file.
$pfx = chilkat::CkPfx->new();

# The cert(s) are automatically added in the call to AddPrivateKey
$success = $pfx->AddPrivateKey($pkey,$certChain);
if ($success != 1) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

# Write the .pfx to a file.
$password = "myPassword";
$success = $pfx->ToFile($password,"certfile.pfx");
if ($success != 1) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

print "Success." . "\r\n";