Xbase++ Requires Chilkat v11.0.0+

Working with PEM Encrypted Private Keys

See more PEM Examples

Demonstrates how to load and save PEM encrypted private keys. Xbase++

LOCAL nSuccess
LOCAL oPem
LOCAL cPemPassword
LOCAL oFac
LOCAL cPemText
LOCAL i
LOCAL nNumPrivateKeys
LOCAL oPrivKey

nSuccess := 0

//  This example assumes the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

nSuccess := 0

oPem := CreateObject("Chilkat.Pem")

cPemPassword := "secret"

//  To load a PEM file containing encrypted private keys, simply
//  provide the password.
nSuccess := oPem:LoadPemFile("/Users/chilkat/testData/pem/pemContainingEncryptedPrivateKeys.pem", cPemPassword)
IF (nSuccess == 0)
    ? oPem:LastErrorText
    oPem:destroy()
    RETURN
ENDIF

oFac := CreateObject("Chilkat.FileAccess")
cPemText := oFac:ReadEntireTextFile("/Users/chilkat/testData/pem/pemContainingEncryptedPrivateKeys.pem", cPemPassword)

//  To load a PEM from a string, call LoadPem instead of LoadPemFile:
nSuccess := oPem:LoadPem(cPemText)
IF (nSuccess == 0)
    ? oPem:LastErrorText
    oPem:destroy()
    oFac:destroy()
    RETURN
ENDIF

//  A few notes:
//  The PEM may contain both private keys and certificates (or anything else).
//  The password is utilized for whatever content in the PEM is encrypted.  
//  It is OK to have both encrypted and non-encrypted content within a given PEM.

//  PEM private keys can be encrypted in different formats.  The LoadPem and LoadPemFile
//  methods automatically handle the different formats.
//  One format is PKCS8 and is indicated by this delimiter within the PEM:

//  -----BEGIN ENCRYPTED PRIVATE KEY-----
//  MIICoTAbBgkqhkiG9w0BBQMwDgQIfdD0zv24lgkCAggABIICgE0PdHJmRbNs6cBX
//  ...

//  Another format, we'll call "passphrase" looks like this in the PEM:
//  -----BEGIN RSA PRIVATE KEY-----
//  Proc-Type: 4,ENCRYPTED
//  DEK-Info: DES-EDE3-CBC,A4215544D11C5D0C
//  
//  paqy9XRexcSjurHfG0xhCaUD0HrvIdhuC0CbRxxxeMlkLaV6+uT80rBxt2AaibWG
//  ...

//  Show the bit length of each private key:

nNumPrivateKeys := oPem:NumPrivateKeys
IF (nNumPrivateKeys == 0)
    ? ("Error: Expected the PEM to contain private keys.")
    oPem:destroy()
    oFac:destroy()
    RETURN
ENDIF

oPrivKey := CreateObject("Chilkat.PrivateKey")
FOR i := 1 TO nNumPrivateKeys
    oPem:PrivateKeyAt(i - 1, oPrivKey)
    ? Str(i) + ": " + Str(oPrivKey:BitLength) + " bits"
NEXT

oPem:destroy()
oFac:destroy()
oPrivKey:destroy()