Tcl

Example: Crypt2.ClearSigningCerts method

Demonstrates how to call the ClearSigningCerts method. Tcl

load ./chilkat.dll

set success 0

set crypt [new_CkCrypt2]

set success 0

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

set cert1 [new_CkCert]

# ...
# Load the cert from a source such as a .pfx/.p12 file, smart card, USB token, Apple keychain, Windows certificate store, etc.
# ...
CkCrypt2_AddSigningCert $crypt $cert1

set cert2 [new_CkCert]

# ...
CkCrypt2_AddSigningCert $crypt $cert2

set cert3 [new_CkCert]

# ...
CkCrypt2_AddSigningCert $crypt $cert3

set bd [new_CkBinData]

# ...

set success [CkCrypt2_OpaqueSignBd $crypt $bd]

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

set cert4 [new_CkCert]

# ...
CkCrypt2_AddSigningCert $crypt $cert4

set cert5 [new_CkCert]

# ...
CkCrypt2_AddSigningCert $crypt $cert5

# ...
# ...

# Sign using cert4 and cert5.
set success [CkCrypt2_OpaqueSignBd $crypt $bd]

delete_CkCrypt2 $crypt
delete_CkCert $cert1
delete_CkCert $cert2
delete_CkCert $cert3
delete_CkBinData $bd
delete_CkCert $cert4
delete_CkCert $cert5