Xojo Plugin

Example: Crypt2.ClearEncryptCerts method

Demonstrates how to call the ClearEncryptCerts method. Xojo Plugin

Dim success As Boolean
success = 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)