(Tcl) Add S/MIME Signature using PFX

Add a digital signature to a MIME message using the certificate + private key 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 a PFX file into a certificate object.
set cert [new_CkCert]

set pfxFilepath "pfxFiles/something.pfx"
set pfxPassword "secret"
set success [CkCert_LoadPfxFile $cert $pfxFilepath $pfxPassword]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkMime $mime
    delete_CkCert $cert
    exit
}

set success [CkMime_SetBodyFromPlainText $mime "This is the plain-text MIME body."]

CkMime_put_Charset $mime "utf-8"
CkMime_put_Encoding $mime "quoted-printable"

# Sign the MIME (adds a PKCS7 detached signature)
set success [CkMime_AddDetachedSignature $mime $cert]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    delete_CkCert $cert
    exit
}

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

puts "success!"

delete_CkMime $mime
delete_CkCert $cert