Visual FoxPro

Example: Crypt2.ClearSigningCerts method

Demonstrates how to call the ClearSigningCerts 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')
lnSuccess = 0

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

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

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

loBd = CreateObject('Chilkat.BinData')
* ...

lnSuccess = loCrypt.OpaqueSignBd(loBd)

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

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

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

* ...
* ...

* Sign using cert4 and cert5.
lnSuccess = loCrypt.OpaqueSignBd(loBd)

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