(Perl) Convert PKCS12 / PFX to Java KeyStore

Converts a PKCS12 / PFX file to a Java keystore (JKS) file.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# 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();

$pfxPassword = "secret";

# Load a PKCS12 from a file.
$success = $pfx->LoadPfxFile("/someDir/my.p12",$pfxPassword);
if ($success != 1) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

$alias = "someAlias";
$jksPassword = "jksSecret";

# Add the PKCS12 to the empty Java keystore object:
$success = $jks->AddPfx($pfx,$alias,$jksPassword);
if ($success != 1) {
    print $jks->lastErrorText() . "\r\n";
    exit;
}

# 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 converted PKCS12 to JKS" . "\r\n";
}