VB.NET

Example: Crypt2.ClearEncryptCerts method

Demonstrates how to call the ClearEncryptCerts method. VB.NET

Dim success As Boolean = False

Dim crypt As New Chilkat.Crypt2

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

Dim cert1 As New 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)

Dim cert2 As New Chilkat.Cert
' ...
crypt.AddEncryptCert(cert2)

Dim cert3 As New 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 = True

Dim bd As New 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()

Dim cert4 As New Chilkat.Cert
' ...
crypt.AddEncryptCert(cert4)

Dim cert5 As New Chilkat.Cert
' ...
crypt.AddEncryptCert(cert5)

' ...
' ...

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