Lianja

Example: Crypt2.ClearSigningCerts method

Demonstrates how to call the ClearSigningCerts method. Lianja

llSuccess = .F.

loCrypt = createobject("CkCrypt2")
llSuccess = .F.

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

loCert2 = createobject("CkCert")
// ...
loCrypt.AddSigningCert(loCert2)

loCert3 = createobject("CkCert")
// ...
loCrypt.AddSigningCert(loCert3)

loBd = createobject("CkBinData")
// ...

llSuccess = 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("CkCert")
// ...
loCrypt.AddSigningCert(loCert4)

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

// ...
// ...

// Sign using cert4 and cert5.
llSuccess = loCrypt.OpaqueSignBd(loBd)


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