(AutoIt) Extract PKCS7 from MIME and Decrypt

Extracts the base64-encoded PKCS7 body of a MIME message to a file, and then decrypts using Chilkat Crypt2.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

$oMime = ObjCreate("Chilkat.Mime")

Local $bSuccess = $oMime.LoadMimeFile("c:/aaworkarea/EmailInBytes.txt")
If ($bSuccess <> True) Then
    ConsoleWrite($oMime.LastErrorText & @CRLF)
    Exit
EndIf

$bSuccess = $oMime.SaveBody("c:/aaworkarea/smime.p7m")
If ($bSuccess <> True) Then
    ConsoleWrite($oMime.LastErrorText & @CRLF)
    Exit
EndIf

$oCrypt = ObjCreate("Chilkat.Crypt2")

$bSuccess = $oCrypt.AddPfxSourceFile("c:/aaworkarea/my.pfx","pfxPassword")
If ($bSuccess = False) Then
    ConsoleWrite($oCrypt.LastErrorText & @CRLF)
    Exit
EndIf

; Indicate the public-key (PKCS7) encryption/decryption should be used:
$oCrypt.CryptAlgorithm = "pki"

Local $sInPath = "c:/aaworkarea/smime.p7m"
Local $sOutPath = "c:/aaworkarea/decrypted.dat"

$bSuccess = $oCrypt.CkDecryptFile($sInPath,$sOutPath)
If ($bSuccess = False) Then
    ConsoleWrite($oCrypt.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Success." & @CRLF)