(DataFlex) Convert Cert + Key to PEM and PFX

This example is based on the following question from a Chilkat customer:

We receive 2 files :

    MyCertificate.p7b
    MyCertificate-privatekey.pkey

We have to transform these certificate like this:

First convert it to PEM like this:

openssl pkcs7 -in MyCertificate.p7b -inform DER -out MyCertificate.pem -print_certs

Now we get MyCertificate.pem

Last step, we need to convert it to pfx file:

openssl pkcs12 -export -inkey moncertificat-privatekey.pkey  -in  moncertificat.pem -out moncertificat.pfx

Is there a way to make all these steps with Chilkat ?

I will be nice to include this directly in our software instead of askig the user to do it manualy.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCert
    Variant vPrivKey
    Handle hoPrivKey
    Boolean iSuccess
    String sTemp1

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

    // Load any type of certificate (.cer, .p7b, .pem, etc.) by calling LoadFromFile.
    Get ComLoadFromFile Of hoCert "qa_data/certs/sample_cert_a.cer" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Load the private key.
    // (The various privKey methods that load from a file will automatically detect
    // the format.  It doesn't actually matter if you try to load a non-PKCS8 format private key
    // by calling LoadPkcs8EncryptedFile -- internally Chilkat will detect the format and will load
    // based on what it finds.)
    Get ComLoadPkcs8EncryptedFile Of hoPrivKey "qa_data/certs/sample_key_a.pkcs8" "password" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoPrivKey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Write the cert as PEM.
    Get ComExportCertPemFile Of hoCert "qa_output/cert.pem" To iSuccess

    // Or get the PEM string directly...
    Get ComExportCertPem Of hoCert To sTemp1
    Showln sTemp1

    // Associate the private key with the cert object.
    Get pvComObject of hoPrivKey to vPrivKey
    Get ComSetPrivateKey Of hoCert vPrivKey To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Write the cert + private key to a .pfx file.
    Get ComExportToPfxFile Of hoCert "qa_data/myPfx.pfx" "password" True To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Success."


End_Procedure