Classic ASP

Create PKCS7 Signed File (.p7m)

Demonstrates how to sign a file to create a .p7m that contains both the file contents and the signature.

Chilkat Classic ASP Downloads

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set crypt = Server.CreateObject("Chilkat.Crypt2")

set certStore = Server.CreateObject("Chilkat.CertStore")

' Load a PFX file into a certificate store object.
success = certStore.LoadPfxFile("myPfx.pfx","pfxPassword")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( certStore.LastErrorText) & "</pre>"
    Response.End
End If

' Get the certificate by subject common name.
' This should be the cert within the PFX that also
' has a private key (also stored within the PFX).
set jsonCN = Server.CreateObject("Chilkat.JsonObject")
success = jsonCN.UpdateString("CN","myCert")
set cert = Server.CreateObject("Chilkat.Cert")
success = certStore.FindCert(jsonCN,cert)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( certStore.LastErrorText) & "</pre>"
    Response.End
End If

' Tell the crypt object to use the certificate for signing:
success = crypt.SetSigningCert(cert)

' Sign a file, producing a .p7m as output.
' The input file is unchanged, the test.p7m contains the 
' contents of the input file and the signature.
inFile = "test.txt"
outFile = "testp7m"
success = crypt.CreateP7M(inFile,outFile)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( crypt.LastErrorText) & "</pre>"
    Response.End
End If

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

%>
</body>
</html>