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
|
(Visual FoxPro) Create .p7s Signature with HSM / SmartcardVisual FoxPro example showing how to create a .p7s Signature with HSM / Smartcard
LOCAL loCrypt LOCAL lnSuccess LOCAL loCcs LOCAL loCertStore LOCAL loCert loCrypt = CreateObject('Chilkat.Crypt2') * Any string argument automatically begins the 30-day trial. lnSuccess = loCrypt.UnlockComponent("30-day trial") IF (lnSuccess <> 1) THEN =MESSAGEBOX(loCrypt.LastErrorText) QUIT ENDIF * Find our digital certificate from the Current User certificate store. * Note: There are several other ways to load your certificate * into a Chilkat cert object. You may load directly from a .cer file, * PEM file, pfx, etc. loCcs = CreateObject('Chilkat.CreateCS') loCertStore = loCcs.OpenCurrentUserStore() loCert = loCertStore.FindCertBySubjectCN("Chilkat Software, Inc.") IF (loCert = NULL ) THEN =MESSAGEBOX(loCert.LastErrorText) RELEASE loCertStore QUIT ENDIF * Tell the crypt component to use this cert. loCrypt.SetSigningCert(loCert) RELEASE loCertStore * We can sign any type of file, creating a .p7s detached signature as output: lnSuccess = loCrypt.CreateP7S("test.xml","test.p7s") IF (lnSuccess = 0) THEN =MESSAGEBOX(loCrypt.LastErrorText) RELEASE loCert QUIT ENDIF =MESSAGEBOX(loCrypt.LastErrorText) * Verify the signature... loCrypt.SetVerifyCert(loCert) lnSuccess = loCrypt.VerifyP7S("test.xml","test.p7s") IF (lnSuccess = 0) THEN =MESSAGEBOX(loCrypt.LastErrorText) RELEASE loCert QUIT ENDIF RELEASE loCert =MESSAGEBOX("Success!") |
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.
Mail Component · .NET Email Component · ASP Mail Component · XML Parser