(Tcl) AddDetachedSignaturePk

Demonstrates how to add a detached signature using a certifcate and it's corresponding private key. The easiest way of doing it is when both the certificate and private key are contained together within a PFX (.pfx or .p12) file. This example demonstrates how to use the certificate and its corresponding private key when they 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_SetBodyFromPlainText $mime "This is the plain-text MIME body."]

# Sign the MIME (adds a PKCS7 detached signature)
set success [CkMime_AddDetachedSignaturePk $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/signedMime.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