(PowerBuilder) Load PFX/P12 from a Base64 Encoded PFX File

Demonstrates how to call LoadPfxEncoded.

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

integer li_rc
oleobject loo_Bd
integer li_Success
string ls_StrBase64
oleobject loo_Pfx
string ls_Password

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

li_Success = loo_Bd.LoadFile("qa_data/pfx/cert_test123.pfx")
if li_Success <> 1 then
    Write-Debug "Failed to load PFX file."
    destroy loo_Bd
    return
end if

// Get the bytes contained in the PFX in base64 format:
ls_StrBase64 = loo_Bd.GetEncoded("base64")

// The base64 looks like this:  "MIIbEAIBAzCCGswGCSqGSIb3DQEHAaCCGr0Eghq5MIIatTCCBg..."
Write-Debug ls_StrBase64

loo_Pfx = create oleobject
li_rc = loo_Pfx.ConnectToNewObject("Chilkat_9_5_0.Pfx")

// Load the PFX from the base64 string
ls_Password = "test123"
li_Success = loo_Pfx.LoadPfxEncoded(ls_StrBase64,"base64",ls_Password)
if li_Success <> 1 then
    Write-Debug loo_Pfx.LastErrorText
    destroy loo_Bd
    destroy loo_Pfx
    return
end if

Write-Debug "success"


destroy loo_Bd
destroy loo_Pfx