(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();


$pfx = chilkat::CkPfx->new();
$json = chilkat::CkJsonObject->new();

# Build JSON containing the HMAC integrity (PFX) password, and the 
# password for the private keys.
$json->UpdateString("integrity","password1");
$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) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

print "Success." . "\r\n";