Xbase++

Convert Let's Encrypt PEM Files to a PFX

See more PFX/P12 Examples

Demonstrates how to convert the .pem files provided by Let's Encrypt to a single PFX. Xbase++

LOCAL nSuccess
LOCAL oSbPem
LOCAL oSbFullChainPem
LOCAL oPfx
LOCAL cPfxPassword

nSuccess := 0

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

oSbPem := CreateObject("Chilkat.StringBuilder")
nSuccess := oSbPem:LoadFile("qa_data/pem/lets_encrypt/privkey.pem", "utf-8")
IF (nSuccess == 0)
    ? "Failed to load privkey.pem"
    oSbPem:destroy()
    RETURN
ENDIF

//  To be safe, append a blank line..
oSbPem:AppendLine("", 0)

oSbFullChainPem := CreateObject("Chilkat.StringBuilder")
nSuccess := oSbFullChainPem:LoadFile("qa_data/pem/lets_encrypt/fullchain.pem", "utf-8")
IF (nSuccess == 0)
    ? "Failed to load fullchain.pem"
    oSbPem:destroy()
    oSbFullChainPem:destroy()
    RETURN
ENDIF

//  Append the full cert chain PEM to the private key PEM.
oSbPem:AppendSb(oSbFullChainPem)

//  Load the combined PEM into a Chilkat PFX object.
oPfx := CreateObject("Chilkat.Pfx")
nSuccess := oPfx:LoadPem(oSbPem:GetAsString(), "no password required")
IF (nSuccess == 0)
    ? oPfx:LastErrorText
    oSbPem:destroy()
    oSbFullChainPem:destroy()
    oPfx:destroy()
    RETURN
ENDIF

//  Write the PFX w/ a password.
cPfxPassword := "secret"
nSuccess := oPfx:ToFile(cPfxPassword, "qa_output/sample.pfx")
IF (nSuccess == 0)
    ? oPfx:LastErrorText
    oSbPem:destroy()
    oSbFullChainPem:destroy()
    oPfx:destroy()
    RETURN
ENDIF

? "Success!"

oSbPem:destroy()
oSbFullChainPem:destroy()
oPfx:destroy()