(VB.NET UWP/WinRT) 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 Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

Dim success As Boolean

' The PFX class requires the software to be unlocked..
Dim global As New Chilkat.Global
success = global.UnlockBundle("Anything for 30-day trial")
If (success <> True) Then
    Debug.WriteLine(global.LastErrorText)
    Exit Sub
End If


Dim pkey As New Chilkat.PrivateKey

' Load the private key from the file.
' There are several methods for loading private keys from a file:
'     LoadPkcs8File
'     LoadRsaDerFile
'     LoadPemFile
'     LoadPvkFile
'     LoadXmlFile
' In actuality, it doesn't matter which one is called. In all cases
' Chilkat will automatically recognize the format of the private key
' file and load it correctly.  Therefore, even if actual contents
' of the file does not agree with the name of the method, it will still work.
' The only way it won't work is if it's not actually a private key file
' (perhaps it is only a public key file), or perhaps the private key
' file is encrypted and requires a password.  In that case, you would
' call one of the Chilkat methods to load the encrypted private key file
' (and these methods include an argument to specify the password).
success = pkey.LoadPkcs8File("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.")