(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

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

loPkey = createobject("CkPrivateKey")

// Load the private key from the file.
llSuccess = loPkey.LoadAnyFormatFile("certFile.key","")
if (llSuccess <> .T.) then
    ? loPkey.LastErrorText
    release loPkey
    return
endif

loCert = createobject("CkCert")
// The LoadFromFile method auto-recognizes the format...
llSuccess = loCert.LoadFromFile("certfile.cer")
if (llSuccess <> .T.) then
    ? loCert.LastErrorText
    release loPkey
    release loCert
    return
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
    return
endif

// Create the PFX object, add the cert and private key, and write to a .pfx file.
loPfx = createobject("CkPfx")

// The cert(s) are automatically added in the call to AddPrivateKey
llSuccess = loPfx.AddPrivateKey(loPkey,loCertChain)
if (llSuccess <> .T.) then
    ? loPfx.LastErrorText
    release loPkey
    release loCert
    release loPfx
    return
endif

// Write the .pfx to a file.
lcPassword = "myPassword"
llSuccess = loPfx.ToFile(lcPassword,"certfile.pfx")
if (llSuccess <> .T.) then
    ? loPfx.LastErrorText
    release loPkey
    release loCert
    release loPfx
    return
endif

? "Success."


release loPkey
release loCert
release loPfx