![]() |
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
(Visual FoxPro) Sign a File to Create a .p7m File (using a PFX)Visual FoxPro 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. Note: This example requires Chilkat v10.1.2 or greater.
LOCAL loCrypt LOCAL lcSigningCertSubject LOCAL lcPfxFilename LOCAL lcPfxPassword LOCAL loCertStore LOCAL lnSuccess LOCAL loJsonCN LOCAL loCert LOCAL lcInFile LOCAL lcOutputFile * 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') loCrypt = CreateObject('Chilkat.Crypt2') * Use a digital certificate and private key from a PFX file (.pfx or .p12). lcSigningCertSubject = "Acme Inc" lcPfxFilename = "/Users/chilkat/testData/pfx/acme.pfx" lcPfxPassword = "test123" * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CertStore') loCertStore = CreateObject('Chilkat.CertStore') lnSuccess = loCertStore.LoadPfxFile(lcPfxFilename,lcPfxPassword) IF (lnSuccess <> 1) THEN ? loCertStore.LastErrorText RELEASE loCrypt RELEASE loCertStore CANCEL ENDIF * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject') loJsonCN = CreateObject('Chilkat.JsonObject') loJsonCN.UpdateString("CN",lcSigningCertSubject) * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert') loCert = CreateObject('Chilkat.Cert') lnSuccess = loCertStore.FindCert(loJsonCN,loCert) IF (lnSuccess = 0) THEN ? "Failed to find certificate by subject common name." RELEASE loCrypt RELEASE loCertStore RELEASE loJsonCN RELEASE loCert CANCEL ENDIF * Tell the crypt component to use this cert. lnSuccess = loCrypt.SetSigningCert(loCert) * We can sign any type of file, creating a .p7m as output: lcInFile = "/Users/chilkat/testData/pdf/sample.pdf" lcOutputFile = "/Users/chilkat/testData/p7m/sample.pdf.p7m" lnSuccess = loCrypt.CreateP7M(lcInFile,lcOutputFile) IF (lnSuccess = 0) THEN ? loCrypt.LastErrorText RELEASE loCrypt RELEASE loCertStore RELEASE loJsonCN RELEASE loCert CANCEL ENDIF * Verify and restore the original file: lnSuccess = loCrypt.SetVerifyCert(loCert) lcInFile = lcOutputFile lcOutputFile = "/Users/chilkat/testData/pdf/restored.pdf" lnSuccess = loCrypt.VerifyP7M(lcInFile,lcOutputFile) IF (lnSuccess = 0) THEN ? loCrypt.LastErrorText RELEASE loCrypt RELEASE loCertStore RELEASE loJsonCN RELEASE loCert CANCEL ENDIF ? "Success!" RELEASE loCrypt RELEASE loCertStore RELEASE loJsonCN RELEASE loCert |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.