|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) Sign a File to Create a .p7m File (using a PFX)Classic ASP example to sign a file creating a .p7m file as output. The .p7m contains the signed contents of the original file. It can be verified and restored by calling VerifyP7M.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2") set crypt = Server.CreateObject("Chilkat.Crypt2") ' Use a digital certificate and private key from a PFX file (.pfx or .p12). signingCertSubject = "Acme Inc" pfxFilename = "/Users/chilkat/testData/pfx/acme.pfx" pfxPassword = "test123" ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CertStore") set certStore = Server.CreateObject("Chilkat.CertStore") success = certStore.LoadPfxFile(pfxFilename,pfxPassword) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( certStore.LastErrorText) & "</pre>" Response.End End If ' cert is a Chilkat.Cert Set cert = certStore.FindCertBySubjectCN(signingCertSubject) If (certStore.LastMethodSuccess = 0) Then Response.Write "<pre>" & Server.HTMLEncode( "Failed to find certificate by subject common name.") & "</pre>" Response.End End If ' Tell the crypt component to use this cert. success = crypt.SetSigningCert(cert) ' We can sign any type of file, creating a .p7m as output: inFile = "/Users/chilkat/testData/pdf/sample.pdf" outputFile = "/Users/chilkat/testData/p7m/sample.pdf.p7m" success = crypt.CreateP7M(inFile,outputFile) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( crypt.LastErrorText) & "</pre>" Response.End End If ' Verify and restore the original file: success = crypt.SetVerifyCert(cert) inFile = outputFile outputFile = "/Users/chilkat/testData/pdf/restored.pdf" success = crypt.VerifyP7M(inFile,outputFile) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( crypt.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( "Success!") & "</pre>" %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.