Visual Basic 6.0

Example: Crypt2.ClearEncryptCerts method

Demonstrates how to call the ClearEncryptCerts method. Visual Basic 6.0

Dim success As Long
success = 0

Dim crypt As New ChilkatCrypt2

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

Dim cert1 As New ChilkatCert
' ...
' 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

Dim cert2 As New ChilkatCert
' ...
crypt.AddEncryptCert cert2

Dim cert3 As New ChilkatCert
' ...
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

Dim bd As New ChilkatBinData
' ...
success = crypt.EncryptBd(bd)

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

Dim cert4 As New ChilkatCert
' ...
crypt.AddEncryptCert cert4

Dim cert5 As New ChilkatCert
' ...
crypt.AddEncryptCert cert5

' ...
' ...

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