(Tcl) PKCS7 Decrypt MIME

Loads a PKCS7 encrypted MIME file and decrypts. The cert and private key used for decryption is loaded from a PFX 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 mime [new_CkMime]

# Load the MIME
set success [CkMime_LoadMimeFile $mime "encryptedMime.txt"]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    exit
}

# The AddPfxSourceFile and/or AddPfxSourceData
# methods may be called one or more times (one per PFX)
# to add sources from which the MIME component will
# search for certificates and private keys when decrypting.
set pfxPassword "myPassword"
set success [CkMime_AddPfxSourceFile $mime "myCertAndPrivateKey.pfx" $pfxPassword]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    exit
}

# Decrypt...
set success [CkMime_Decrypt $mime]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    exit
}

# Display the decrypted MIME:
puts [CkMime_getMime $mime]

delete_CkMime $mime