(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

loCert = createobject("CkCert")

// LoadFromFile will load virtually any certificate format file.
// It will auto-recognize the format and load appropiately.
llSuccess = loCert.LoadFromFile("/Users/chilkat/testData/cer/chilkat.cer")
if (llSuccess <> .T.) then
    ? loCert.LastErrorText
    release loCert
    return
endif

// Get the public key:

loPubkey = loCert.ExportPublicKey()
if (loCert.LastMethodSuccess = .F.) then
    ? loCert.LastErrorText
    release loCert
    return
endif

// Save to various formats:
llSuccess = loPubkey.SaveDerFile(.F.,"/Users/chilkat/testData/pubkeys/chilkat_pkcs8.der")
if (llSuccess <> .T.) then
    ? loPubkey.LastErrorText
    release loPubkey
    release loCert
    return
endif

llSuccess = loPubkey.SavePemFile(.F.,"/Users/chilkat/testData/pubkeys/chilkat.pem")
if (llSuccess <> .T.) then
    ? loPubkey.LastErrorText
    release loPubkey
    release loCert
    return
endif

llSuccess = loPubkey.SaveDerFile(.T.,"/Users/chilkat/testData/pubkeys/chilkat_pkcs1.der")
if (llSuccess <> .T.) then
    ? loPubkey.LastErrorText
    release loPubkey
    release loCert
    return
endif

llSuccess = loPubkey.SaveXmlFile("/Users/chilkat/testData/pubkeys/chilkat.xml")
if (llSuccess <> .T.) then
    ? loPubkey.LastErrorText
    release loPubkey
    release loCert
    return
endif

release loPubkey
? "Public key exported to all file formats."


release loCert