Tcl Requires Chilkat v11.4.0+

Example: Mime.GetDecryptCertInfo method

Demonstrates the GetDecryptCertInfo method. Tcl

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