(Tcl) Convert PKCS12 / PFX to Java KeyStore

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set jks [new_CkJavaKeyStore]

set pfx [new_CkPfx]

set pfxPassword "secret"

# Load a PKCS12 from a file.
set success [CkPfx_LoadPfxFile $pfx "/someDir/my.p12" $pfxPassword]
if {$success != 1} then {
    puts [CkPfx_lastErrorText $pfx]
    delete_CkJavaKeyStore $jks
    delete_CkPfx $pfx
    exit
}

set alias "someAlias"
set jksPassword "jksSecret"

# Add the PKCS12 to the empty Java keystore object:
set success [CkJavaKeyStore_AddPfx $jks $pfx $alias $jksPassword]
if {$success != 1} then {
    puts [CkJavaKeyStore_lastErrorText $jks]
    delete_CkJavaKeyStore $jks
    delete_CkPfx $pfx
    exit
}

# Write the Java keystore to a file:
set success [CkJavaKeyStore_ToFile $jks $jksPassword "/jksFiles/my.jks"]
if {$success != 1} then {
    puts [CkJavaKeyStore_lastErrorText $jks]
} else {
    puts "Successfully converted PKCS12 to JKS"
}


delete_CkJavaKeyStore $jks
delete_CkPfx $pfx