(PowerBuilder) Working with PEM Encrypted Private Keys

Demonstrates how to load and save PEM encrypted private keys.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

// Starting in v9.5.0.49, all Chilkat classes can be unlocked at once at the beginning of a program
// by calling UnlockBundle.  It requires a Bundle unlock code.
loo_ChilkatGlob = create oleobject
li_rc = loo_ChilkatGlob.ConnectToNewObject("Chilkat_9_5_0.Global")
if li_rc < 0 then
    destroy loo_ChilkatGlob
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_ChilkatGlob.UnlockBundle("Anything for 30-day trial.")
if li_Success <> 1 then
    Write-Debug loo_ChilkatGlob.LastErrorText
    destroy loo_ChilkatGlob
    return
end if

loo_Pem = create oleobject
li_rc = loo_Pem.ConnectToNewObject("Chilkat_9_5_0.Pem")

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 <> 1 then
    Write-Debug loo_Pem.LastErrorText
    destroy loo_ChilkatGlob
    destroy loo_Pem
    return
end if

loo_Fac = create oleobject
li_rc = loo_Fac.ConnectToNewObject("Chilkat_9_5_0.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 <> 1 then
    Write-Debug loo_Pem.LastErrorText
    destroy loo_ChilkatGlob
    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_ChilkatGlob
    destroy loo_Pem
    destroy loo_Fac
    return
end if

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


destroy loo_ChilkatGlob
destroy loo_Pem
destroy loo_Fac