B4X

Example: Crypt2.ClearSigningCerts method

Demonstrates how to call the ClearSigningCerts method. B4X

Dim success As Boolean = False

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")
success = False

'  Tell the crypt object to use 3 certificates.
'  Do this by calling AddSigningCert 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.AddSigningCert(cert1)

Dim cert2 As ChilkatCert
cert2.Initialize("cert2")
'  ...
crypt.AddSigningCert(cert2)

Dim cert3 As ChilkatCert
cert3.Initialize("cert3")
'  ...
crypt.AddSigningCert(cert3)

Dim bd As ChilkatBinData
bd.Initialize
'  ...

success = crypt.OpaqueSignBd(bd)

'  Let's say we now want to sign something else with different certs..
'  First clear the signing certs.
crypt.ClearSigningCerts

Dim cert4 As ChilkatCert
cert4.Initialize("cert4")
'  ...
crypt.AddSigningCert(cert4)

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

'  ...
'  ...

'  Sign using cert4 and cert5.
success = crypt.OpaqueSignBd(bd)