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

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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 != 1} then {
    puts [CkPfx_lastErrorText $pfx]
    delete_CkPfx $pfx
    exit
}

set jksPassword "myJksPassword"
set alias "firstPrivateKeyAlias"

# jks is a 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 jks [CkPfx_ToJavaKeyStore $pfx $alias $jksPassword]
if {[CkPfx_get_LastMethodSuccess $pfx] == 0} then {
    puts [CkPfx_lastErrorText $pfx]
    delete_CkPfx $pfx
    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
    exit
}

delete_CkJavaKeyStore $jks

puts "Successfully converted PFX to JKS."

delete_CkPfx $pfx