PowerBuilder

Working with PEM Encrypted Private Keys

See more PEM Examples

Demonstrates how to load and save PEM encrypted private keys. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Pem
string ls_PemPassword
oleobject loo_Fac
string ls_PemText
integer i
integer li_NumPrivateKeys
oleobject loo_PrivKey

li_Success = 0

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

li_Success = 0

loo_Pem = create oleobject
li_rc = loo_Pem.ConnectToNewObject("Chilkat.Pem")
if li_rc < 0 then
    destroy loo_Pem
    MessageBox("Error","Connecting to COM object failed")
    return
end if

ls_PemPassword = "secret"

// To load a PEM file containing encrypted private keys, simply
// provide the password.
li_Success = loo_Pem.LoadPemFile("/Users/chilkat/testData/pem/pemContainingEncryptedPrivateKeys.pem",ls_PemPassword)
if li_Success = 0 then
    Write-Debug loo_Pem.LastErrorText
    destroy loo_Pem
    return
end if

loo_Fac = create oleobject
li_rc = loo_Fac.ConnectToNewObject("Chilkat.FileAccess")

ls_PemText = loo_Fac.ReadEntireTextFile("/Users/chilkat/testData/pem/pemContainingEncryptedPrivateKeys.pem",ls_PemPassword)

// To load a PEM from a string, call LoadPem instead of LoadPemFile:
li_Success = loo_Pem.LoadPem(ls_PemText)
if li_Success = 0 then
    Write-Debug loo_Pem.LastErrorText
    destroy loo_Pem
    destroy loo_Fac
    return
end if

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

li_NumPrivateKeys = loo_Pem.NumPrivateKeys
if li_NumPrivateKeys = 0 then
    Write-Debug ("Error: Expected the PEM to contain private keys.")
    destroy loo_Pem
    destroy loo_Fac
    return
end if

loo_PrivKey = create oleobject
li_rc = loo_PrivKey.ConnectToNewObject("Chilkat.PrivateKey")

for i = 1 to li_NumPrivateKeys
    loo_Pem.PrivateKeyAt(i - 1,loo_PrivKey)
    Write-Debug string(i) + ": " + string(loo_PrivKey.BitLength) + " bits"
next


destroy loo_Pem
destroy loo_Fac
destroy loo_PrivKey