(Perl) Convert Let's Encrypt PEM Files to a PFX

Demonstrates how to convert the .pem files provided by Let's Encrypt to a single 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.

# Let's Encrypt provides four .pem files
# 1. fullchain.pem
# 2. privkey.pem
# 3. cert.pem
# 4. chain.pem

# The cert.pem and chain.pem are redundant. 
# The fullchain.pem is composed of the cert.pem and chain.pem.

# To convert the PEM's to a single .pfx, we don't need the redundant data.
# The privkey.pem and fullchain.pem provide the required data.
# We can ignore cert.pem and chain.pem (because those certs are already found in fullchain.pem).

# We need a single .pem file that contains both the private key, the cert,
# and the certs in the chain of authentication.
# Let's combine priveky.pem and fullchain.pem into a single .pem

$sbPem = chilkat::CkStringBuilder->new();
$success = $sbPem->LoadFile("qa_data/pem/lets_encrypt/privkey.pem","utf-8");
if ($success == 0) {
    print "Failed to load privkey.pem" . "\r\n";
    exit;
}

# To be safe, append a blank line..
$sbPem->AppendLine("",0);

$sbFullChainPem = chilkat::CkStringBuilder->new();
$success = $sbFullChainPem->LoadFile("qa_data/pem/lets_encrypt/fullchain.pem","utf-8");
if ($success == 0) {
    print "Failed to load fullchain.pem" . "\r\n";
    exit;
}

# Append the full cert chain PEM to the private key PEM.
$sbPem->AppendSb($sbFullChainPem);

# Load the combined PEM into a Chilkat PFX object.
$pfx = chilkat::CkPfx->new();
$success = $pfx->LoadPem($sbPem->getAsString(),"no password required");
if ($success == 0) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

# Write the PFX w/ a password.
$pfxPassword = "secret";
$success = $pfx->ToFile($pfxPassword,"qa_output/sample.pfx");
if ($success == 0) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

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