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 = False

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


success = mime.DecryptUsingCert(cert)
If (success = False) Then
    Debug.WriteLine(mime.LastErrorText)
    Exit Sub
End If


Dim body As String = mime.GetBodyDecoded()
If (mime.LastMethodSuccess = False) Then
    Debug.WriteLine(mime.LastErrorText)
    Exit Sub
End If

Debug.WriteLine(body)