(Excel) Load PFX with Different Password for Private Keys

Demonstrates how to load a PFX where the HMAC integrity password (the password for the entire PFX) is different than the password for the private keys contained inside.

Note: This example requires a new feature made available in Chilkat v9.5.0.75.

Download Excel Class Modules Chilkat Excel Class Modules

Dim pfx As Chilkat.Pfx
Set pfx = Chilkat.NewPfx
Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject

' Build JSON containing the HMAC integrity (PFX) password, and the 
' password for the private keys.
Dim success As Boolean
success = json.UpdateString("integrity","password1")
success = json.UpdateString("privKeys","password2")

' The JSON contains this:
' 
' 	{
' 	  "integrity": "password1",
' 	  "privKeys": "password2"
' 	}
' 

' Use the above JSON instead of a simple password string when loading the PFX:
success = pfx.LoadPfxFile("qa_data/pfx/PrivateKeyPassIsDifferent.pfx",json.Emit())
If (success <> True) Then
    Debug.Print pfx.LastErrorText
    Exit Sub
End If

Debug.Print "Success."