PowerBuilder

Get a Certificate's Key Size

See more Certificates Examples

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

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

li_Success = 0

// For this example, I have a certificate in raw base64 format (not PEM),
// that looks like this:  "MIIGkDCCBHigAwIBAgIUMDA ... s/iqLsLA=="
loo_SbCertBase64 = create oleobject
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
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")

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

// Get the public key.
loo_PubKey = create oleobject
li_rc = loo_PubKey.ConnectToNewObject("Chilkat.PublicKey")

loo_Cert.GetPublicKey(loo_PubKey)

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
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

loo_Xml.LoadXml(loo_PubKey.GetXml())

loo_BinDat = create oleobject
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_SbCertBase64
destroy loo_Cert
destroy loo_PubKey
destroy loo_Xml
destroy loo_BinDat