(Tcl) Load Java KeyStore and Access Contents

Loads a Java keystore file and iterates over the contents. A Java keystore (.jks) file can contain one or more trusted root certificate entries and/or one or more private key entries. Each private key entry includes an associated certificate chain.

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]

# Load the Java keystore from a file.  The JKS file password is used
# to verify the keyed digest that is found at the very end of the keystore.
# It verifies there has been no tampering with the file.
set success [CkJavaKeyStore_LoadFile $jks "jksFilePassword" "/someDir/keyStore.jks"]
if {$success != 1} then {
    puts [CkJavaKeyStore_lastErrorText $jks]
    delete_CkJavaKeyStore $jks
    exit
}

# Find out how many of each type of entry:
set numTrustedCerts [CkJavaKeyStore_get_NumTrustedCerts $jks]
set numPrivateKeys [CkJavaKeyStore_get_NumPrivateKeys $jks]

# cert is a CkCert

# For each trusted certificate, access it by getting
# it as a cert object.  Also get the alias associated with the certificate.
puts "Trusted Certs:"
set i 0
while {$i < $numTrustedCerts} {
    set cert [CkJavaKeyStore_GetTrustedCert $jks $i]
    puts [CkJavaKeyStore_getTrustedCertAlias $jks $i]: [CkCert_subjectDN $cert]
    delete_CkCert $cert

    set i [expr $i + 1]
}

# privKey is a CkPrivateKey

# certChain is a CkCertChain

# For each private key entry, get the private key and
# the associated certificate chain.
# Each private key is password protected.  Usually it is the same
# password as used for the keyed digest of the entire JKS.  
# However, this does not have to be.  The password is passed
# here to handle the possibility of each private key requiring
# a different password.
puts "Private Keys:"
set i 0
while {$i < $numPrivateKeys} {
    set privKey [CkJavaKeyStore_GetPrivateKey $jks "jksFilePassword" $i]
    puts [CkJavaKeyStore_getPrivateKeyAlias $jks $i]
    set certChain [CkJavaKeyStore_GetCertChain $jks $i]

    # The 1st certificate in the chain is the one associated with the private key.
    set cert [CkCertChain_GetCert $certChain 0]
    puts [CkCert_subjectDN $cert]

    delete_CkCert $cert

    delete_CkCertChain $certChain

    delete_CkPrivateKey $privKey

    set i [expr $i + 1]
}

delete_CkJavaKeyStore $jks