Decrypt S/MIME using Added Credential Sources

See more MIME Examples

Loads a CMS/PKCS #7 encrypted S/MIME message and decrypts it back to the original MIME content.

The recipient's certificate and private key are supplied from a PFX added with AddPfxSourceFile, and Decrypt automatically selects the matching private key based on the CMS recipient information.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

integer li_rc
integer li_Success
oleobject loo_Mime
string ls_PfxPassword
string ls_Body

li_Success = 0

loo_Mime = create oleobject
li_rc = loo_Mime.ConnectToNewObject("Chilkat.Mime")
if li_rc < 0 then
    destroy loo_Mime
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_Mime.LoadMimeFile("qa_data/encrypted.eml")
if li_Success = 0 then
    Write-Debug loo_Mime.LastErrorText
    destroy loo_Mime
    return
end if

//  Load the recipient's certificate and private key (from a PFX) so decryption can find them.  The
//  PFX password should come from a secure source rather than being hard-coded.
ls_PfxPassword = "myPfxPassword"
li_Success = loo_Mime.AddPfxSourceFile("qa_data/recipient.pfx",ls_PfxPassword)
if li_Success = 0 then
    Write-Debug loo_Mime.LastErrorText
    destroy loo_Mime
    return
end if

//  Decrypt.  Chilkat identifies the correct recipient from the CMS recipient info and uses the
//  matching private key from the added sources.
li_Success = loo_Mime.Decrypt()
if li_Success = 0 then
    Write-Debug loo_Mime.LastErrorText
    destroy loo_Mime
    return
end if

ls_Body = loo_Mime.GetBodyDecoded()
if loo_Mime.LastMethodSuccess = 0 then
    Write-Debug loo_Mime.LastErrorText
    destroy loo_Mime
    return
end if

Write-Debug ls_Body


destroy loo_Mime