Encrypt MIME for Multiple Recipients

See more MIME Examples

Demonstrates encrypting the current MIME entity for several recipients at once. A certificate is added for each recipient with AddEncryptCert, and EncryptN then produces a single CMS/PKCS #7 message that each recipient can independently decrypt.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

load ./chilkat.dll

set success 0

set mime [new_CkMime]

set success [CkMime_SetBodyFromPlainText $mime "This message will be encrypted."]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    exit
}

#  Add a certificate for each intended recipient.  Every recipient receives an independently
#  wrapped copy of the message key.
set cert1 [new_CkCert]

set success [CkCert_LoadFromFile $cert1 "qa_data/recipient1.cer"]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert1]
    delete_CkMime $mime
    delete_CkCert $cert1
    exit
}

set success [CkMime_AddEncryptCert $mime $cert1]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    delete_CkCert $cert1
    exit
}

set cert2 [new_CkCert]

set success [CkCert_LoadFromFile $cert2 "qa_data/recipient2.cer"]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert2]
    delete_CkMime $mime
    delete_CkCert $cert1
    delete_CkCert $cert2
    exit
}

set success [CkMime_AddEncryptCert $mime $cert2]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    delete_CkCert $cert1
    delete_CkCert $cert2
    exit
}

#  Encrypt for every added recipient at once.
set success [CkMime_EncryptN $mime]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    delete_CkCert $cert1
    delete_CkCert $cert2
    exit
}

set success [CkMime_SaveMime $mime "qa_output/encrypted_multi.eml"]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    delete_CkCert $cert1
    delete_CkCert $cert2
    exit
}

puts "Message encrypted for multiple recipients."

delete_CkMime $mime
delete_CkCert $cert1
delete_CkCert $cert2