Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loSbPem
LOCAL loSbFullChainPem
LOCAL loPfx
LOCAL lcPfxPassword

lnSuccess = 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

loSbPem = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbPem.LoadFile("qa_data/pem/lets_encrypt/privkey.pem","utf-8")
IF (lnSuccess = 0) THEN
    ? "Failed to load privkey.pem"
    RELEASE loSbPem
    CANCEL
ENDIF

* To be safe, append a blank line..
loSbPem.AppendLine("",0)

loSbFullChainPem = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbFullChainPem.LoadFile("qa_data/pem/lets_encrypt/fullchain.pem","utf-8")
IF (lnSuccess = 0) THEN
    ? "Failed to load fullchain.pem"
    RELEASE loSbPem
    RELEASE loSbFullChainPem
    CANCEL
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('Chilkat.Pfx')
lnSuccess = loPfx.LoadPem(loSbPem.GetAsString(),"no password required")
IF (lnSuccess = 0) THEN
    ? loPfx.LastErrorText
    RELEASE loSbPem
    RELEASE loSbFullChainPem
    RELEASE loPfx
    CANCEL
ENDIF

* Write the PFX w/ a password.
lcPfxPassword = "secret"
lnSuccess = loPfx.ToFile(lcPfxPassword,"qa_output/sample.pfx")
IF (lnSuccess = 0) THEN
    ? loPfx.LastErrorText
    RELEASE loSbPem
    RELEASE loSbFullChainPem
    RELEASE loPfx
    CANCEL
ENDIF

? "Success!"

RELEASE loSbPem
RELEASE loSbFullChainPem
RELEASE loPfx