B4X

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

B4X

Dim success As Boolean = False

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

Dim pkey As ChilkatPrivateKey
pkey.Initialize("pkey")

'  Load the private key from the file.
success = pkey.LoadAnyFormatFile("certFile.key", "")
If success <> True Then
    Log(pkey.LastErrorText)
    Return
End If


Dim cert As ChilkatCert
cert.Initialize("cert")
'  The LoadFromFile method auto-recognizes the format...
success = cert.LoadFromFile("certfile.cer")
If success <> True Then
    Log(cert.LastErrorText)
    Return
End If


'  We'll need a cert chain object to create the PKCS12, so get it
'  from the cert.  
Dim certChain As ChilkatCertChain
certChain = cert.GetCertChain
If Not(cert.LastMethodSuccess) Then
    Log(cert.LastErrorText)
    Return
End If


'  Create the PFX object, add the cert and private key, and write to a .pfx file.
Dim pfx As ChilkatPfx
pfx.Initialize

'  The cert(s) are automatically added in the call to AddPrivateKey
success = pfx.AddPrivateKey(pkey, certChain)
If success <> True Then
    Log(pfx.LastErrorText)
    Return
End If


'  Write the .pfx to a file.
Dim password As String = "myPassword"
success = pfx.ToFile(password, "certfile.pfx")
If success <> True Then
    Log(pfx.LastErrorText)
    Return
End If


Log("Success.")