(Excel) 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

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim pkey As Chilkat.PrivateKey
Set pkey = Chilkat.NewPrivateKey

' 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.Print pkey.LastErrorText
    Exit Sub
End If

Dim cert As Chilkat.Cert
Set cert = Chilkat.NewCert
' The LoadFromFile method auto-recognizes the format...
success = cert.LoadFromFile("certfile.cer")
If (success <> True) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

' We'll need a cert chain object to create the PKCS12, so get it
' from the cert.  

Set certChain = cert.GetCertChain()
If (Not cert.LastMethodSuccess) Then
    Debug.Print 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 Chilkat.Pfx
Set pfx = Chilkat.NewPfx

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

' Write the .pfx to a file.

password = "myPassword"
success = pfx.ToFile(password,"certfile.pfx")
If (success <> True) Then
    Debug.Print pfx.LastErrorText
    Exit Sub
End If

Debug.Print "Success."