(VBScript) Example: Crypt2.ClearEncryptCerts method

Demonstrates how to call the ClearEncryptCerts method.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

set crypt = CreateObject("Chilkat.Crypt2")

' Tell the crypt object to use 3 certificates.
' Do this by calling AddEncryptCert for each certificate.

set cert1 = CreateObject("Chilkat.Cert")
' ...
' Load the cert from a source such as a .pfx/.p12 file, smart card, USB token, Apple keychain, Windows certificate store, etc.
' ...
crypt.AddEncryptCert cert1

set cert2 = CreateObject("Chilkat.Cert")
' ...
crypt.AddEncryptCert cert2

set cert3 = CreateObject("Chilkat.Cert")
' ...
crypt.AddEncryptCert cert3

' Params for public-key encryption to create PKCS7 enveloped-data
crypt.CryptAlgorithm = "pki"
crypt.Pkcs7CryptAlg = "aes"
crypt.KeyLength = 256
crypt.OaepHash = "sha256"
crypt.OaepPadding = 1

set bd = CreateObject("Chilkat.BinData")
' ...
success = crypt.EncryptBd(bd)

' Let's say we now want to encrypt something else with different certs..
' First clear the encryption certs.
crypt.ClearEncryptCerts 

set cert4 = CreateObject("Chilkat.Cert")
' ...
crypt.AddEncryptCert cert4

set cert5 = CreateObject("Chilkat.Cert")
' ...
crypt.AddEncryptCert cert5

' ...
' ...

' Encrypt using cert4 and cert5.
success = crypt.EncryptBd(bd)