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 success As Boolean
success = False

Dim mime As New Chilkat.Mime
success = mime.LoadMimeFile("qa_data/encrypted.eml")
If (success = False) Then
    System.DebugLog(mime.LastErrorText)
    Return
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.
Dim pfxPassword As String
pfxPassword = "myPfxPassword"
Dim cert As New Chilkat.Cert
success = cert.LoadPfxFile("qa_data/recipient.pfx",pfxPassword)
If (success = False) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

success = mime.DecryptUsingCert(cert)
If (success = False) Then
    System.DebugLog(mime.LastErrorText)
    Return
End If

Dim body As String
body = mime.GetBodyDecoded()
If (mime.LastMethodSuccess = False) Then
    System.DebugLog(mime.LastErrorText)
    Return
End If

System.DebugLog(body)