Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
|
|
Verify .p7s and Extract Original File
ASP example to verify and unpack the contents of a .p7s to restore the original file. <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 "Crypt component unlock failed" & "<br>" End If ' Find our digital certificate from the Current User certificate store. set ccs = Server.CreateObject("Chilkat.CreateCS") Set certStore = ccs.OpenCurrentUserStore() Set cert = certStore.FindCertBySubjectCN("Chilkat Software, Inc.") If (cert Is Nothing ) Then Response.Write cert.LastErrorText & "<br>" End If ' Verify and restore the original file: crypt.SetVerifyCert cert success = crypt.VerifyP7S("license.p7s","license2.rtf") If (success = 0) Then Response.Write crypt.LastErrorText & "<br>" End If Response.Write "Success!" & "<br>" %> </body> </html> |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.