AutoIt

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