(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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

set sbPem [new_CkStringBuilder]

set success [CkStringBuilder_LoadFile $sbPem "qa_data/pem/lets_encrypt/privkey.pem" "utf-8"]
if {$success == 0} then {
    puts "Failed to load privkey.pem"
    delete_CkStringBuilder $sbPem
    exit
}

# To be safe, append a blank line..
CkStringBuilder_AppendLine $sbPem "" 0

set sbFullChainPem [new_CkStringBuilder]

set success [CkStringBuilder_LoadFile $sbFullChainPem "qa_data/pem/lets_encrypt/fullchain.pem" "utf-8"]
if {$success == 0} then {
    puts "Failed to load fullchain.pem"
    delete_CkStringBuilder $sbPem
    delete_CkStringBuilder $sbFullChainPem
    exit
}

# Append the full cert chain PEM to the private key PEM.
CkStringBuilder_AppendSb $sbPem $sbFullChainPem

# Load the combined PEM into a Chilkat PFX object.
set pfx [new_CkPfx]

set success [CkPfx_LoadPem $pfx [CkStringBuilder_getAsString $sbPem] "no password required"]
if {$success == 0} then {
    puts [CkPfx_lastErrorText $pfx]
    delete_CkStringBuilder $sbPem
    delete_CkStringBuilder $sbFullChainPem
    delete_CkPfx $pfx
    exit
}

# Write the PFX w/ a password.
set pfxPassword "secret"
set success [CkPfx_ToFile $pfx $pfxPassword "qa_output/sample.pfx"]
if {$success == 0} then {
    puts [CkPfx_lastErrorText $pfx]
    delete_CkStringBuilder $sbPem
    delete_CkStringBuilder $sbFullChainPem
    delete_CkPfx $pfx
    exit
}

puts "Success!"

delete_CkStringBuilder $sbPem
delete_CkStringBuilder $sbFullChainPem
delete_CkPfx $pfx