(PowerBuilder) Export Digital Certificate's Public Key

The ExportPublicKey method can be called to get a certificate's public key. It can then be saved to any of a number of formats: (1) OpenSSL DER, (2) OpenSSL PEM, (3) RSA DER, (4) XML.

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

integer li_rc
oleobject loo_Cert
integer li_Success
oleobject loo_Pubkey

loo_Cert = create oleobject
// Use "Chilkat_9_5_0.Cert" for versions of Chilkat < 10.0.0
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")
if li_rc < 0 then
    destroy loo_Cert
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// LoadFromFile will load virtually any certificate format file.
// It will auto-recognize the format and load appropiately.
li_Success = loo_Cert.LoadFromFile("/Users/chilkat/testData/cer/chilkat.cer")
if li_Success <> 1 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Cert
    return
end if

// Get the public key:

loo_Pubkey = loo_Cert.ExportPublicKey()
if loo_Cert.LastMethodSuccess = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Cert
    return
end if

// Save to various formats:
li_Success = loo_Pubkey.SaveDerFile(0,"/Users/chilkat/testData/pubkeys/chilkat_pkcs8.der")
if li_Success <> 1 then
    Write-Debug loo_Pubkey.LastErrorText
    destroy loo_Pubkey
    destroy loo_Cert
    return
end if

li_Success = loo_Pubkey.SavePemFile(0,"/Users/chilkat/testData/pubkeys/chilkat.pem")
if li_Success <> 1 then
    Write-Debug loo_Pubkey.LastErrorText
    destroy loo_Pubkey
    destroy loo_Cert
    return
end if

li_Success = loo_Pubkey.SaveDerFile(1,"/Users/chilkat/testData/pubkeys/chilkat_pkcs1.der")
if li_Success <> 1 then
    Write-Debug loo_Pubkey.LastErrorText
    destroy loo_Pubkey
    destroy loo_Cert
    return
end if

li_Success = loo_Pubkey.SaveXmlFile("/Users/chilkat/testData/pubkeys/chilkat.xml")
if li_Success <> 1 then
    Write-Debug loo_Pubkey.LastErrorText
    destroy loo_Pubkey
    destroy loo_Cert
    return
end if

destroy loo_Pubkey
Write-Debug "Public key exported to all file formats."


destroy loo_Cert