Lianja

Example: Crypt2.ClearEncryptCerts method

Demonstrates how to call the ClearEncryptCerts method. Lianja

llSuccess = .F.

loCrypt = createobject("CkCrypt2")

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

loCert1 = createobject("CkCert")
// ...
// 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("CkCert")
// ...
loCrypt.AddEncryptCert(loCert2)

loCert3 = createobject("CkCert")
// ...
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 = .T.

loBd = createobject("CkBinData")
// ...
llSuccess = 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("CkCert")
// ...
loCrypt.AddEncryptCert(loCert4)

loCert5 = createobject("CkCert")
// ...
loCrypt.AddEncryptCert(loCert5)

// ...
// ...

// Encrypt using cert4 and cert5.
llSuccess = loCrypt.EncryptBd(loBd)


release loCrypt
release loCert1
release loCert2
release loCert3
release loBd
release loCert4
release loCert5