(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll


set pfx [new_CkPfx]

set json [new_CkJsonObject]

# Build JSON containing the HMAC integrity (PFX) password, and the 
# password for the private keys.
CkJsonObject_UpdateString $json "integrity" "password1"
CkJsonObject_UpdateString $json "privKeys" "password2"

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

# Use the above JSON instead of a simple password string when loading the PFX:
set success [CkPfx_LoadPfxFile $pfx "qa_data/pfx/PrivateKeyPassIsDifferent.pfx" [CkJsonObject_emit $json]]
if {$success != 1} then {
    puts [CkPfx_lastErrorText $pfx]
    delete_CkPfx $pfx
    delete_CkJsonObject $json
    exit
}

puts "Success."

delete_CkPfx $pfx
delete_CkJsonObject $json