(VB.NET) 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 .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

' 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
    Debug.WriteLine(pkey.LastErrorText)
    Exit Sub
End If


Dim cert As New Chilkat.Cert
' The LoadFromFile method auto-recognizes the format...
success = cert.LoadFromFile("certfile.cer")
If (success <> True) Then
    Debug.WriteLine(cert.LastErrorText)
    Exit Sub
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
    Debug.WriteLine(cert.LastErrorText)
    Exit Sub
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
    Debug.WriteLine(pfx.LastErrorText)
    Exit Sub
End If


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


Debug.WriteLine("Success.")