![]() |
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
(VBScript) Decrypt S/MIME and Verify S/MIME SignaturesVBScript example to decrypt S/MIME and verify S/MIME signatures. The S/MIME is unwrapped to get the original MIME prior to signing/encrypting. Note: This example requires Chilkat v11.0.0 or greater.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) success = 0 ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set mime = CreateObject("Chilkat.Mime") ' Load an S/MIME message from a file: success = mime.LoadMimeFile("signedMime.txt") If (success = 0) Then outFile.WriteLine(mime.LastErrorText) WScript.Quit End If ' The ContainsEncryptedParts/ContainsSignedParts methods ' can be called to determine if the MIME is encrypted and/or signed: isEncrypted = mime.ContainsEncryptedParts() isSigned = mime.ContainsSignedParts() ' We don't want the "unwrap extras". You'll see what those ' are in a few moments... mime.UnwrapExtras = 0 ' To verify the signature, call UnwrapSecurity. This will ' verify the signature(s) and decrypt the S/MIME and restore ' the MIME to the unsigned/unencrypted state. ' The results of what was found are present in the MIME object's ' properties, as well as extra header fields that are added ' to the unwrapped MIME. success = mime.UnwrapSecurity() If (success <> 1) Then ' UnwrapSecurity returns 1 if all signatures were ' verified and all parts decrypted. outFile.WriteLine(mime.LastErrorText) WScript.Quit End If ' The mime.UnwrapExtras property controls whether or not ' these additional fields are added to the unwrapped MIME: ' ' X-NumPartsSigned: 1 ' X-SignaturesValid: yes ' X-NumPartsEncrypted: 1 ' X-Decrypted: no ' ' The X-NumPartsSigned/X-SignaturesValid headers are added ' if the MIME was signed. ' ' The X-NumPartsEncrypted/X-Decrypted headers are added ' if the MIME was encrypted. ' ' If the MIME was signed, get the certificate used for signing. If (isSigned = 1) Then set signerCert = CreateObject("Chilkat.Cert") ' The NumSignerCerts property indicates how many certificates ' were used for signing. This example will assume the value is 1. ' To get the 1st signer cert, call LastSignerCert with an index of 0: success = mime.LastSignerCert(0,signerCert) If (success = 1) Then outFile.WriteLine("**** Signer Cert: " & signerCert.SubjectCN) End If End If ' If the MIME was encrypted, get the certificate used for decryption If (isEncrypted = 1) Then ' The NumDecryptCerts property indicates how many certificates ' were used for decrypting. This example will assume the value is 1. ' To get the 1st decrypt cert, call LastDecryptCert with an index of 0: set decryptCert = CreateObject("Chilkat.Cert") success = mime.LastDecryptCert(0,decryptCert) If (success = 1) Then outFile.WriteLine("**** Decrypt Cert: " & decryptCert.SubjectCN) End If End If ' Display the unwrapped MIME: outFile.WriteLine(mime.GetMime()) ' Save the unwrapped MIME to a file: success = mime.SaveMime("unwrappedMime.txt") outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.