(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim success As Boolean

Dim pkey As New Chilkat.PrivateKey

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

Dim cert As New Chilkat.Cert
// The LoadFromFile method auto-recognizes the format...
success = cert.LoadFromFile("certfile.cer")
If (success <> True) Then
    System.DebugLog(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 Chilkat.CertChain
certChain = cert.GetCertChain()
If (Not cert.LastMethodSuccess) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

// Create the PFX object, add the cert and private key, and write to a .pfx file.
Dim pfx As New Chilkat.Pfx

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

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

System.DebugLog("Success.")