B4X Requires Chilkat v11.0.0+

Export Digital Certificate's Public Key

See more Certificates Examples

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. B4X

Dim success As Boolean = False

Dim cert As ChilkatCert
cert.Initialize("cert")

'  LoadFromFile will load virtually any certificate format file.
'  It will auto-recognize the format and load appropiately.
success = cert.LoadFromFile("/Users/chilkat/testData/cer/chilkat.cer")
If success = False Then
    Log(cert.LastErrorText)
    Return
End If


'  Get the public key:
Dim pubkey As ChilkatPublicKey
pubkey.Initialize
cert.GetPublicKey(pubkey)

'  Save to various formats:
success = pubkey.SaveDerFile(False, "/Users/chilkat/testData/pubkeys/chilkat_pkcs8.der")
If success <> True Then
    Log(pubkey.LastErrorText)
    Return
End If


success = pubkey.SavePemFile(False, "/Users/chilkat/testData/pubkeys/chilkat.pem")
If success <> True Then
    Log(pubkey.LastErrorText)
    Return
End If


success = pubkey.SaveDerFile(True, "/Users/chilkat/testData/pubkeys/chilkat_pkcs1.der")
If success <> True Then
    Log(pubkey.LastErrorText)
    Return
End If


success = pubkey.SaveXmlFile("/Users/chilkat/testData/pubkeys/chilkat.xml")
If success <> True Then
    Log(pubkey.LastErrorText)
    Return
End If

Log("Public key exported to all file formats.")