|
Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(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. Note: This example requires Chilkat v10.1.2 or greater.
<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") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CertStore") 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). ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonCN = Server.CreateObject("Chilkat.JsonObject") success = jsonCN.UpdateString("CN","myCert") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert") 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> |
||||
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.