(Tcl) Decrypt2

Demonstrates how to decrypt MIME using a certificate and private key where the certificate and its corresponding private key are stored in separate files -- a .cer for the certificate, and a .pem for the private key.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set mime [new_CkMime]

# Load the certificate from a .cer file.
set cert [new_CkCert]

set success [CkCert_LoadFromFile $cert "aaworkarea/myCert.cer"]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkMime $mime
    delete_CkCert $cert
    exit
}

# Load the private key from an encrypted PEM file.
# (A private key can be loaded from other file formats also..)
set privKey [new_CkPrivateKey]

set success [CkPrivateKey_LoadEncryptedPemFile $privKey "aaworkarea/myPrivateKey.pem" "myPassword"]
if {$success == 0} then {
    puts [CkPrivateKey_lastErrorText $privKey]
    delete_CkMime $mime
    delete_CkCert $cert
    delete_CkPrivateKey $privKey
    exit
}

set success [CkMime_LoadMimeFile $mime "aaworkarea/encryptedMime.txt"]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    delete_CkCert $cert
    delete_CkPrivateKey $privKey
    exit
}

# Decrypt using the cert and associated private key
set success [CkMime_Decrypt2 $mime $cert $privKey]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    delete_CkCert $cert
    delete_CkPrivateKey $privKey
    exit
}

# Save the S/MIME to a file.
set success [CkMime_SaveMime $mime "aaworkarea/decryptedMime.txt"]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    delete_CkCert $cert
    delete_CkPrivateKey $privKey
    exit
}

puts "success!"

delete_CkMime $mime
delete_CkCert $cert
delete_CkPrivateKey $privKey