Perl

Combine Multiple PKCS12's into a Single Java KeyStore

See more Java KeyStore (JKS) Examples

Combines multiple PKCS12's into a single Java KeyStore (JKS) file. To combine multiple PKCS12 files into a single JKS, simply load each PKCS12 into a PFX object, add it to the Java keystore object via the AddPfx method, and then finally write the Java keystore at the very end. Perl

use chilkat();

$success = 0;

# This requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$jks = chilkat::CkJavaKeyStore->new();

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

# Combines several PKCS12's into a single JKS.
# Simply load each, add it to the keystore, and then 
# save at the very end.

$jksPassword = "jksSecret";

# Add the 1st PFX...
$pfxPassword = "secret1";
$success = $pfx->LoadPfxFile("/someDir/file1.p12",$pfxPassword);
if ($success != 1) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

$alias = "alias1";
$success = $jks->AddPfx($pfx,$alias,$jksPassword);
if ($success != 1) {
    print $jks->lastErrorText() . "\r\n";
    exit;
}

# Add the 2nd PFX...
$pfxPassword = "secret2";
$success = $pfx->LoadPfxFile("/someDir/file2.p12",$pfxPassword);
if ($success != 1) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

$alias = "alias2";
$success = $jks->AddPfx($pfx,$alias,$jksPassword);
if ($success != 1) {
    print $jks->lastErrorText() . "\r\n";
    exit;
}

# We can continue adding as many PFX's as desired...

# Write the Java keystore to a file:
$success = $jks->ToFile($jksPassword,"/jksFiles/my.jks");
if ($success != 1) {
    print $jks->lastErrorText() . "\r\n";
}
else {
    print "Successfully combined multiple PKCS12's into a single JKS" . "\r\n";
}