Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Create PKCS7 Signed File (.p7m)Demonstrates how to sign a file to create a .p7m that contains both the file contents and the signature.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim crypt As Chilkat.Crypt2 Set crypt = Chilkat.NewCrypt2 Dim certStore As Chilkat.CertStore Set certStore = Chilkat.NewCertStore ' Load a PFX file into a certificate store object. success = certStore.LoadPfxFile("myPfx.pfx","pfxPassword") If (success <> True) Then Debug.Print certStore.LastErrorText Exit Sub 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). Set cert = certStore.FindCertBySubjectCN("myCert") If (certStore.LastMethodSuccess = False) Then Debug.Print certStore.LastErrorText Exit Sub 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 <> True) Then Debug.Print crypt.LastErrorText Exit Sub End If Debug.Print "Success!" |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.