(Tcl) Example: Mime.GetDecryptCertInfo method

Demonstrates the GetDecryptCertInfo method.

Note: This example requires Chilkat v11.4.0 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

set mime [new_CkMime]

# Load MIME that is has Content-Type like this:
# Content-Type: application/pkcs7-mime; smime-type="enveloped-data"; name="smime.p7m"; smime-type="enveloped-data"
set success [CkMime_LoadMimeFile $mime "qa_data/mime/enveloped_data.eml"]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    exit
}

# Get information about the certificate that would be needed to decrypt.
# An enveloped-data can potentially be decrypted by multiple certificates if it was encrypted in a way that allows it,
# but in most cases, only a single certificate with associated private key (that of the message recipient) is possible.
set json [new_CkJsonObject]

set success [CkMime_GetDecryptCertInfo $mime $json]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    delete_CkJsonObject $json
    exit
}

CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

# Sample output:

# {
#   "recipientInfo": [
#     {
#       "serial": "****",
#       "issuerCN": "****"
#     }
#   ]
# }

# Get each certificate's information like this:

set i 0
set count [CkJsonObject_SizeOfArray $json "recipientInfo"]
while {$i < $count} {
    CkJsonObject_put_I $json $i
    set serial [CkJsonObject_stringOf $json "recipientInfo[i].serial"]
    set issuerCN [CkJsonObject_stringOf $json "recipientInfo[i].issuerCN"]
    set i [expr $i + 1]
}

delete_CkMime $mime
delete_CkJsonObject $json