Visual FoxPro

Example: Crypt2.ClearEncryptCerts method

Demonstrates how to call the ClearEncryptCerts method. Visual FoxPro

LOCAL lnSuccess
LOCAL loCrypt
LOCAL loCert1
LOCAL loCert2
LOCAL loCert3
LOCAL loBd
LOCAL loCert4
LOCAL loCert5

lnSuccess = 0

loCrypt = CreateObject('Chilkat.Crypt2')

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

loCert1 = 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.
* ...
loCrypt.AddEncryptCert(loCert1)

loCert2 = CreateObject('Chilkat.Cert')
* ...
loCrypt.AddEncryptCert(loCert2)

loCert3 = CreateObject('Chilkat.Cert')
* ...
loCrypt.AddEncryptCert(loCert3)

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

loBd = CreateObject('Chilkat.BinData')
* ...
lnSuccess = loCrypt.EncryptBd(loBd)

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

loCert4 = CreateObject('Chilkat.Cert')
* ...
loCrypt.AddEncryptCert(loCert4)

loCert5 = CreateObject('Chilkat.Cert')
* ...
loCrypt.AddEncryptCert(loCert5)

* ...
* ...

* Encrypt using cert4 and cert5.
lnSuccess = loCrypt.EncryptBd(loBd)

RELEASE loCrypt
RELEASE loCert1
RELEASE loCert2
RELEASE loCert3
RELEASE loBd
RELEASE loCert4
RELEASE loCert5