(Tcl) Decrypt a .p7m File (using a PFX)

Tcl sample code showing how to decrypt a .p7m using a .p12 / .pfx certificate w/ private key.

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 crypt [new_CkCrypt2]

# Use a digital certificate and private key from a PFX file (.pfx or .p12).
set pfxPath "myCertAndKey.pfx"
set pfxPassword "test123"

set success [CkCrypt2_AddPfxSourceFile $crypt $pfxPath $pfxPassword]
if {$success != 1} then {
    puts [CkCrypt2_lastErrorText $crypt]
    delete_CkCrypt2 $crypt
    exit
}

# Set the  outPath to whatever is appropriate.
# If you are decrypting a PDF, your output might be "out.pdf"...
set inPath "smime.p7m"
set outPath "original.txt"

# Indicate that we're doing public key decryption (i.e. PKCS7)
CkCrypt2_put_CryptAlgorithm $crypt "pki"

set success [CkCrypt2_CkDecryptFile $crypt $inPath $outPath]
if {$success == 0} then {
    puts [CkCrypt2_lastErrorText $crypt]
    delete_CkCrypt2 $crypt
    exit
}

puts "Success."

delete_CkCrypt2 $crypt