(Tcl) Convert PKCS12 / PFX to Java Keystore (JKS)

Loads a PKCS12 / PFX file and saves it to a Java keystore (JKS) file.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

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

set pfx [new_CkPfx]

# Load the PKCS12 from a file
set success [CkPfx_LoadPfxFile $pfx "/someDir/my.p12" "myPfxPassword"]
if {$success == 0} then {
    puts [CkPfx_lastErrorText $pfx]
    delete_CkPfx $pfx
    exit
}

set jksPassword "myJksPassword"
set alias "firstPrivateKeyAlias"

set jks [new_CkJavaKeyStore]

# Convert to a Java keystore object.
# The jksPassword is the password to be used for the JKS private key entries. 
# It may be the same as the PFX password, but can also be different if desired.
set success [CkPfx_ToJksObj $pfx $alias $jksPassword $jks]
if {$success == 0} then {
    puts [CkPfx_lastErrorText $pfx]
    delete_CkPfx $pfx
    delete_CkJavaKeyStore $jks
    exit
}

# Save the Java keystore to a file.
set success [CkJavaKeyStore_ToFile $jks $jksPassword "/myKeystores/my.jks"]
if {$success != 1} then {
    puts [CkJavaKeyStore_lastErrorText $jks]
    delete_CkJavaKeyStore $jks

    delete_CkPfx $pfx
    delete_CkJavaKeyStore $jks
    exit
}

puts "Successfully converted PFX to JKS."

delete_CkPfx $pfx
delete_CkJavaKeyStore $jks