B4X

Example: Crypt2.ClearEncryptCerts method

Demonstrates how to call the ClearEncryptCerts method. B4X

Dim success As Boolean = False

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")

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

Dim cert1 As ChilkatCert
cert1.Initialize("cert1")
'  ...
'  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 ChilkatCert
cert2.Initialize("cert2")
'  ...
crypt.AddEncryptCert(cert2)

Dim cert3 As ChilkatCert
cert3.Initialize("cert3")
'  ...
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 ChilkatBinData
bd.Initialize
'  ...
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 ChilkatCert
cert4.Initialize("cert4")
'  ...
crypt.AddEncryptCert(cert4)

Dim cert5 As ChilkatCert
cert5.Initialize("cert5")
'  ...
crypt.AddEncryptCert(cert5)

'  ...
'  ...

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