AutoIt Requires Chilkat v11.4.0+

Example: Mime.GetDecryptCertInfo method

Demonstrates the GetDecryptCertInfo method. AutoIt

Local $bSuccess = False

$oMime = ObjCreate("Chilkat.Mime")

;  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"
$bSuccess = $oMime.LoadMimeFile("qa_data/mime/enveloped_data.eml")
If ($bSuccess = False) Then
    ConsoleWrite($oMime.LastErrorText & @CRLF)
    Exit
EndIf

;  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.
$oJson = ObjCreate("Chilkat.JsonObject")
$bSuccess = $oMime.GetDecryptCertInfo($oJson)
If ($bSuccess = False) Then
    ConsoleWrite($oMime.LastErrorText & @CRLF)
    Exit
EndIf

$oJson.EmitCompact = False
ConsoleWrite($oJson.Emit() & @CRLF)

;  Sample output:

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

;  Get each certificate's information like this:
Local $serial
Local $sIssuerCN

Local $i = 0
Local $iCount = $oJson.SizeOfArray("recipientInfo")
While $i < $iCount
    $oJson.I = $i
    $serial = $oJson.StringOf("recipientInfo[i].serial")
    $sIssuerCN = $oJson.StringOf("recipientInfo[i].issuerCN")
    $i = $i + 1
Wend