(ASP) Decrypt a .p7m File (using a PFX)

ASP sample code showing how to decrypt a .p7m using a .p12 / .pfx certificate w/ private key.

Download Chilkat Crypt ActiveX

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set crypt = Server.CreateObject("Chilkat.Crypt2")

'  Any string argument automatically begins the 30-day trial.
success = crypt.UnlockComponent("30-day trial")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( crypt.LastErrorText) & "</pre>"

End If

'  Use a digital certificate and private key from a PFX file (.pfx or .p12).
pfxPath = "myCertAndKey.pfx"
pfxPassword = "test123"

success = crypt.AddPfxSourceFile(pfxPath,pfxPassword)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( crypt.LastErrorText) & "</pre>"

End If

'  Set the  outPath to whatever is appropriate.
'  If you are decrypting a PDF, your output might be "out.pdf"...
inPath = "smime.p7m"
outPath = "original.txt"

'  Indicate that we're doing public key decryption (i.e. PKCS7)
crypt.CryptAlgorithm = "pki"

success = crypt.CkDecryptFile(inPath,outPath)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( crypt.LastErrorText) & "</pre>"

End If

Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>"

%>
</body>
</html>