(PowerBuilder) Get a Certificate's Key Size

Demonstrates how to get the RSA key size of a certificate (for example, 1024-bit, 2048-bit, etc.)

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

integer li_rc
oleobject loo_SbCertBase64
integer li_Success
oleobject loo_Cert
oleobject loo_PubKey
integer li_NumBits
oleobject loo_Xml
oleobject loo_BinDat

// For this example, I have a certificate in raw base64 format (not PEM),
// that looks like this:  "MIIGkDCCBHigAwIBAgIUMDA ... s/iqLsLA=="
loo_SbCertBase64 = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbCertBase64.ConnectToNewObject("Chilkat.StringBuilder")
if li_rc < 0 then
    destroy loo_SbCertBase64
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_SbCertBase64.LoadFile("qa_data/certs/base64Cert.txt","utf-8")

loo_Cert = create oleobject
// Use "Chilkat_9_5_0.Cert" for versions of Chilkat < 10.0.0
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")

li_Success = loo_Cert.LoadFromBase64(loo_SbCertBase64.GetAsString())
if li_Success <> 1 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_SbCertBase64
    destroy loo_Cert
    return
end if

// Get the public key.
loo_PubKey = loo_Cert.ExportPublicKey()
if loo_Cert.LastMethodSuccess <> 1 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_SbCertBase64
    destroy loo_Cert
    return
end if

// In Chilkat version v9.5.0.67, the KeySize property was added.
li_NumBits = loo_PubKey.KeySize
Write-Debug "Number of bits = " + string(li_NumBits)

// If using an older version of Chilkat, the key size can be obtained like this:
loo_Xml = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

loo_Xml.LoadXml(loo_PubKey.GetXml())

loo_BinDat = create oleobject
// Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
li_rc = loo_BinDat.ConnectToNewObject("Chilkat.BinData")

loo_BinDat.AppendEncoded(loo_Xml.GetChildContent("Modulus"),"base64")

li_NumBits = 8 * loo_BinDat.NumBytes
Write-Debug "Number of bits = " + string(li_NumBits)

destroy loo_PubKey


destroy loo_SbCertBase64
destroy loo_Cert
destroy loo_Xml
destroy loo_BinDat