(DataFlex) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoCert
    Boolean iSuccess
    Variant vPubkey
    Handle hoPubkey
    String sTemp1
    Boolean bTemp1

    Get Create (RefClass(cComChilkatCert)) To hoCert
    If (Not(IsComObjectCreated(hoCert))) Begin
        Send CreateComObject of hoCert
    End

    // LoadFromFile will load virtually any certificate format file.
    // It will auto-recognize the format and load appropiately.
    Get ComLoadFromFile Of hoCert "/Users/chilkat/testData/cer/chilkat.cer" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Get the public key:

    Get ComExportPublicKey Of hoCert To vPubkey
    If (IsComObject(vPubkey)) Begin
        Get Create (RefClass(cComChilkatPublicKey)) To hoPubkey
        Set pvComObject Of hoPubkey To vPubkey
    End
    Get ComLastMethodSuccess Of hoCert To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Save to various formats:
    Get ComSaveDerFile Of hoPubkey False "/Users/chilkat/testData/pubkeys/chilkat_pkcs8.der" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoPubkey To sTemp1
        Showln sTemp1
        Send Destroy of hoPubkey
        Procedure_Return
    End

    Get ComSavePemFile Of hoPubkey False "/Users/chilkat/testData/pubkeys/chilkat.pem" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoPubkey To sTemp1
        Showln sTemp1
        Send Destroy of hoPubkey
        Procedure_Return
    End

    Get ComSaveDerFile Of hoPubkey True "/Users/chilkat/testData/pubkeys/chilkat_pkcs1.der" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoPubkey To sTemp1
        Showln sTemp1
        Send Destroy of hoPubkey
        Procedure_Return
    End

    Get ComSaveXmlFile Of hoPubkey "/Users/chilkat/testData/pubkeys/chilkat.xml" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoPubkey To sTemp1
        Showln sTemp1
        Send Destroy of hoPubkey
        Procedure_Return
    End

    Send Destroy of hoPubkey
    Showln "Public key exported to all file formats."


End_Procedure