(Tcl) Load PKCS12 / PFX and Access Contents

Loads a PKCS12 / PFX file and iterates over the contents which include private keys and certificates.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set pfx [new_CkPfx]

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

set numPrivateKeys [CkPfx_get_NumPrivateKeys $pfx]

# privKey is a CkPrivateKey

puts "Private Keys:"

set i 0
while {$i < $numPrivateKeys} {
    set privKey [CkPfx_GetPrivateKey $pfx $i]

    # Do something with the private key ...

    delete_CkPrivateKey $privKey

    set i [expr $i + 1]
}

# cert is a CkCert

set numCerts [CkPfx_get_NumCerts $pfx]

puts "Certs:"
set i 0
while {$i < $numCerts} {
    set cert [CkPfx_GetCert $pfx $i]
    puts [CkCert_subjectDN $cert]

    # If the certificate has a private key (one of the private keys within the PFX)
    # then it can also be obtained via the certificate object:
    if {[CkCert_HasPrivateKey $cert] == 1} then {

        puts "Has private key!"

        set privKey [CkCert_ExportPrivateKey $cert]
        # ...
        delete_CkPrivateKey $privKey

    }

    delete_CkCert $cert

    set i [expr $i + 1]
}

delete_CkPfx $pfx