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) Decrypt a .p7m File (using a PFX)Excel sample code showing how to decrypt a .p7m using a .p12 / .pfx certificate w/ private key.
' 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 ' Use a digital certificate and private key from a PFX file (.pfx or .p12). pfxPath = "myCertAndKey.pfx" pfxPassword = "test123" success = crypt.AddPfxSourceFile(pfxPath,pfxPassword) If (success <> True) Then Debug.Print crypt.LastErrorText Exit Sub End If ' Set the outPath to whatever is appropriate. ' If you are decrypting a PDF, your output might be "out.pdf"... inPath = "smime.p7m" outPath = "original.txt" ' Indicate that we're doing public key decryption (i.e. PKCS7) crypt.CryptAlgorithm = "pki" success = crypt.CkDecryptFile(inPath,outPath) If (success = False) Then Debug.Print crypt.LastErrorText Exit Sub End If Debug.Print "Success." |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.