(Visual FoxPro) Duplicate openssl pkcs12 –export –in certfile.cer –inkey certfile.key –out certfile.pfx

How to create a PKCS12 (.p12 or .pfx) from a certificate file and private key file: Demonstrates how to duplicate this OpenSSL command:

Duplicate openssl pkcs12 –export –in certfile.cer –inkey certfile.key –out certfile.pfx

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

LOCAL lnSuccess
LOCAL loPkey
LOCAL loCert
LOCAL loCertChain
LOCAL loPfx
LOCAL lcPassword

* This example assumes the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PrivateKey')
loPkey = CreateObject('Chilkat.PrivateKey')

* Load the private key from the file.
lnSuccess = loPkey.LoadAnyFormatFile("certFile.key","")
IF (lnSuccess <> 1) THEN
    ? loPkey.LastErrorText
    RELEASE loPkey
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
* The LoadFromFile method auto-recognizes the format...
lnSuccess = loCert.LoadFromFile("certfile.cer")
IF (lnSuccess <> 1) THEN
    ? loCert.LastErrorText
    RELEASE loPkey
    RELEASE loCert
    CANCEL
ENDIF

* We'll need a cert chain object to create the PKCS12, so get it
* from the cert.  

loCertChain = loCert.GetCertChain()
IF (NOT loCert.LastMethodSuccess) THEN
    ? loCert.LastErrorText
    RELEASE loPkey
    RELEASE loCert
    CANCEL
ENDIF

* Create the PFX object, add the cert and private key, and write to a .pfx file.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Pfx')
loPfx = CreateObject('Chilkat.Pfx')

* The cert(s) are automatically added in the call to AddPrivateKey
lnSuccess = loPfx.AddPrivateKey(loPkey,loCertChain)
IF (lnSuccess <> 1) THEN
    ? loPfx.LastErrorText
    RELEASE loPkey
    RELEASE loCert
    RELEASE loPfx
    CANCEL
ENDIF

* Write the .pfx to a file.
lcPassword = "myPassword"
lnSuccess = loPfx.ToFile(lcPassword,"certfile.pfx")
IF (lnSuccess <> 1) THEN
    ? loPfx.LastErrorText
    RELEASE loPkey
    RELEASE loCert
    RELEASE loPfx
    CANCEL
ENDIF

? "Success."

RELEASE loPkey
RELEASE loCert
RELEASE loPfx