(PureBasic) Get Public Key from Certificate PEM

Loads a certificate from a PEM file and gets the cert's public key.

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

    success.i = CkCert::ckLoadFromFile(cert,"qa_data/certs/someCert.pem")
    If success <> 1
        Debug CkCert::ckLastErrorText(cert)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    ; Get the certificate's public key:
    pubkey.i = CkCert::ckExportPublicKey(cert)
    If CkCert::ckLastMethodSuccess(cert) <> 1
        Debug CkCert::ckLastErrorText(cert)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    Debug CkPublicKey::ckGetPem(pubkey,0)

    ; OK.. we have the public key which can be used in other Chilkat classes/methods...

    CkPublicKey::ckDispose(pubkey)



    CkCert::ckDispose(cert)


    ProcedureReturn
EndProcedure