(Tcl) Load Signed and/or Encrypted Email and Unwrap Security Layers

The LoadEml method loads an email (.eml file containing the MIME of an email) and automatically unwraps the digital signature and encryption security layers. A program can then examine the properties of the email object to see what was unwrapped.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set email [new_CkEmail]

# Provide PFX/.p12 files for any certs+keys needed for decryption.
# Signature verification does not need anything extra.  
# (Also, Chilkat will automatically find and use pre-installed certs + private keys needed for decryption
# on a Windows system.)
set success [CkEmail_AddPfxSourceFile $email "/pfxFiles/certs_and_keys_1.pfx" "pfxPassword1"]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

set success [CkEmail_AddPfxSourceFile $email "/pfxFiles/certs_and_keys_2.pfx" "pfxPassword2"]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

# ...

# Load a potentially signed and/or encrypted email.
set success [CkEmail_LoadEml $email "someDir/someEmail.eml"]

# If the email was signed and/or encrypted, it was "unwrapped", i.e.
# the email is already decrypted and in a state as if it were never signed or encrypted.

# You may check to see if the email was received encrypted or signed, and if so,
# whether it was successfully unwrapped and who signed or encrypted it:
if {[CkEmail_get_ReceivedEncrypted $email] == 1} then {

    puts "This email was encrypted."
    if {[CkEmail_get_Decrypted $email] == 1} then {
        puts "This email was successfully decrypted.  It was encrypted by:"
        puts [CkEmail_encryptedBy $email]
    }     else {
        puts "This email was not decrypted."
    }

}

if {[CkEmail_get_ReceivedSigned $email] == 1} then {

    puts "This email was signed."
    if {[CkEmail_get_SignaturesValid $email] == 1} then {
        puts "The signature was verified.  It was signed by:"
        puts [CkEmail_signedBy $email]
    }     else {
        puts "The signature verification failed."
    }

}

# At this point, the contents of the email, including attachments, can be accessed normally..

delete_CkEmail $email