Decrypt S/MIME using a Certificate with Private Key Access

See more MIME Examples

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

DecryptUsingCert takes a single certificate that already has access to its associated private key, for example a certificate loaded from a PFX.

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.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set mime = CreateObject("Chilkat.Mime")
success = mime.LoadMimeFile("qa_data/encrypted.eml")
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

'  Decrypt using a certificate that already provides access to its private key (for example loaded
'  from a PFX).  The only argument is the certificate.
pfxPassword = "myPfxPassword"
set cert = CreateObject("Chilkat.Cert")
success = cert.LoadPfxFile("qa_data/recipient.pfx",pfxPassword)
If (success = 0) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

success = mime.DecryptUsingCert(cert)
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

body = mime.GetBodyDecoded()
If (mime.LastMethodSuccess = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(body)

outFile.Close