(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkPublicKey.pb"
IncludeFile "CkCert.pb"

Procedure ChilkatExample()

    cert.i = CkCert::ckCreate()
    If cert.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; LoadFromFile will load virtually any certificate format file.
    ; It will auto-recognize the format and load appropiately.
    success.i = CkCert::ckLoadFromFile(cert,"/Users/chilkat/testData/cer/chilkat.cer")
    If success <> 1
        Debug CkCert::ckLastErrorText(cert)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    ; Get the public key:
    pubkey.i

    pubkey = CkCert::ckExportPublicKey(cert)
    If CkCert::ckLastMethodSuccess(cert) = 0
        Debug CkCert::ckLastErrorText(cert)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    ; Save to various formats:
    success = CkPublicKey::ckSaveDerFile(pubkey,0,"/Users/chilkat/testData/pubkeys/chilkat_pkcs8.der")
    If success <> 1
        Debug CkPublicKey::ckLastErrorText(pubkey)
        CkPublicKey::ckDispose(pubkey)

        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    success = CkPublicKey::ckSavePemFile(pubkey,0,"/Users/chilkat/testData/pubkeys/chilkat.pem")
    If success <> 1
        Debug CkPublicKey::ckLastErrorText(pubkey)
        CkPublicKey::ckDispose(pubkey)

        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    success = CkPublicKey::ckSaveDerFile(pubkey,1,"/Users/chilkat/testData/pubkeys/chilkat_pkcs1.der")
    If success <> 1
        Debug CkPublicKey::ckLastErrorText(pubkey)
        CkPublicKey::ckDispose(pubkey)

        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    success = CkPublicKey::ckSaveXmlFile(pubkey,"/Users/chilkat/testData/pubkeys/chilkat.xml")
    If success <> 1
        Debug CkPublicKey::ckLastErrorText(pubkey)
        CkPublicKey::ckDispose(pubkey)

        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    CkPublicKey::ckDispose(pubkey)

    Debug "Public key exported to all file formats."


    CkCert::ckDispose(cert)


    ProcedureReturn
EndProcedure