Xbase++

Example: Crypt2.ClearEncryptCerts method

Demonstrates how to call the ClearEncryptCerts method. Xbase++

LOCAL nSuccess
LOCAL oCrypt
LOCAL oCert1
LOCAL oCert2
LOCAL oCert3
LOCAL oBd
LOCAL oCert4
LOCAL oCert5

nSuccess := 0

oCrypt := CreateObject("Chilkat.Crypt2")

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

oCert1 := 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.
//  ...
oCrypt:AddEncryptCert(oCert1)

oCert2 := CreateObject("Chilkat.Cert")
//  ...
oCrypt:AddEncryptCert(oCert2)

oCert3 := CreateObject("Chilkat.Cert")
//  ...
oCrypt:AddEncryptCert(oCert3)

//  Params for public-key encryption to create PKCS7 enveloped-data
oCrypt:CryptAlgorithm := "pki"
oCrypt:Pkcs7CryptAlg := "aes"
oCrypt:KeyLength := 256
oCrypt:OaepHash := "sha256"
oCrypt:OaepPadding := 1

oBd := CreateObject("Chilkat.BinData")
//  ...
nSuccess := oCrypt:EncryptBd(oBd)

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

oCert4 := CreateObject("Chilkat.Cert")
//  ...
oCrypt:AddEncryptCert(oCert4)

oCert5 := CreateObject("Chilkat.Cert")
//  ...
oCrypt:AddEncryptCert(oCert5)

//  ...
//  ...

//  Encrypt using cert4 and cert5.
nSuccess := oCrypt:EncryptBd(oBd)

oCrypt:destroy()
oCert1:destroy()
oCert2:destroy()
oCert3:destroy()
oBd:destroy()
oCert4:destroy()
oCert5:destroy()