pkcs7_decrypt

Decrypts an S/MIME encrypted message

Function pkcs7_decrypt (infilename As String, outfilename As String, recipcert, [recipkey]) As Boolean

Decrypts the S/MIME encrypted message contained in the file specified by infilename using the certificate and it's associated private key specified by recipcert and recipkey.

The decrypted message is output to the file specified by outfilename

Example

Set headers = CreateObject("Scripting.Dictionary")
headers.Add "Subject", "Secret message!"

ssl.pkcs7_encrypt "message.txt", "message.enc.txt", Array("file://certificate.pem"), headers
ssl.pkcs7_decrypt "message.txt", "message.enc.txt", "file://privatekey.pem"