(Visual Basic 6.0) 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim success As Long
Dim pfx As New ChilkatPfx
Dim json As New ChilkatJsonObject

' Build JSON containing the HMAC integrity (PFX) password, and the 
' password for the private keys.
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 <> 1) Then
    Debug.Print pfx.LastErrorText
    Exit Sub
End If

Debug.Print "Success."