(PowerBuilder) Write PKCS1 or PKCS8 Public Key PEM

Demonstrates how to write either PKCS1 or PKCS8 format PEM files. PKCS1 public keys have this PEM format:

-----BEGIN RSA PUBLIC KEY-----
BASE64 ENCODED DATA
-----END RSA PUBLIC KEY-----

-----BEGIN PUBLIC KEY-----
BASE64 ENCODED DATA
-----END PUBLIC KEY-----

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

integer li_rc
oleobject loo_ChilkatGlob
integer li_Success
oleobject loo_Pem
integer i
integer li_NumPublicKeys

// Unlock the Chilkat API.
// 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
// Use "Chilkat_9_5_0.Global" for versions of Chilkat < 10.0.0
li_rc = loo_ChilkatGlob.ConnectToNewObject("Chilkat.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
// Use "Chilkat_9_5_0.Pem" for versions of Chilkat < 10.0.0
li_rc = loo_Pem.ConnectToNewObject("Chilkat.Pem")

// Load a public key from a PEM file.
// (Assume the PEM contains at least one public key..)
li_Success = loo_Pem.LoadPemFile("/Users/chilkat/testData/pem/myPublicKey.pem")
if li_Success <> 1 then
    Write-Debug loo_Pem.LastErrorText
    destroy loo_ChilkatGlob
    destroy loo_Pem
    return
end if

li_NumPublicKeys = loo_Pem.NumPublicKeys
if li_NumPublicKeys = 0 then
    Write-Debug ("Error: Expected the PEM to contain public keys.")
    destroy loo_ChilkatGlob
    destroy loo_Pem
    return
end if

// Get each public key as PEM, first in PKCS1 format, then in PKCS8.
for i = 1 to li_NumPublicKeys

    // First output to PKCS1 PEM format:
    Write-Debug "This is PKCS1 format:"
    loo_Pem.PublicKeyFormat = "pkcs1"
    Write-Debug loo_Pem.ToPem()

    // Now PKCS8 PEM format:
    Write-Debug "This is PKCS8 format:"
    loo_Pem.PublicKeyFormat = "pkcs8"
    Write-Debug loo_Pem.ToPem()

next


destroy loo_ChilkatGlob
destroy loo_Pem