Visual FoxPro

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

See more OpenSSL Examples

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

Visual FoxPro

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

lnSuccess = 0

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

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

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.
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