(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

// 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

loSbPem = createobject("CkStringBuilder")
llSuccess = loSbPem.LoadFile("qa_data/pem/lets_encrypt/privkey.pem","utf-8")
if (llSuccess = .F.) then
    ? "Failed to load privkey.pem"
    release loSbPem
    return
endif

// To be safe, append a blank line..
loSbPem.AppendLine("",.F.)

loSbFullChainPem = createobject("CkStringBuilder")
llSuccess = loSbFullChainPem.LoadFile("qa_data/pem/lets_encrypt/fullchain.pem","utf-8")
if (llSuccess = .F.) then
    ? "Failed to load fullchain.pem"
    release loSbPem
    release loSbFullChainPem
    return
endif

// Append the full cert chain PEM to the private key PEM.
loSbPem.AppendSb(loSbFullChainPem)

// Load the combined PEM into a Chilkat PFX object.
loPfx = createobject("CkPfx")
llSuccess = loPfx.LoadPem(loSbPem.GetAsString(),"no password required")
if (llSuccess = .F.) then
    ? loPfx.LastErrorText
    release loSbPem
    release loSbFullChainPem
    release loPfx
    return
endif

// Write the PFX w/ a password.
lcPfxPassword = "secret"
llSuccess = loPfx.ToFile(lcPfxPassword,"qa_output/sample.pfx")
if (llSuccess = .F.) then
    ? loPfx.LastErrorText
    release loSbPem
    release loSbFullChainPem
    release loPfx
    return
endif

? "Success!"


release loSbPem
release loSbFullChainPem
release loPfx