(VBScript) 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 fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)


' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Pfx")
set pfx = CreateObject("Chilkat.Pfx")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")

' 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
    outFile.WriteLine(pfx.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Success.")

outFile.Close