VBScript

Example: Crypt2.ClearSigningCerts method

Demonstrates how to call the ClearSigningCerts method. VBScript

success = 0

set crypt = CreateObject("Chilkat.Crypt2")
success = 0

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

set cert1 = 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.
' ...
success = crypt.AddSigningCert(cert1)

set cert2 = CreateObject("Chilkat.Cert")
' ...
success = crypt.AddSigningCert(cert2)

set cert3 = CreateObject("Chilkat.Cert")
' ...
success = crypt.AddSigningCert(cert3)

set bd = CreateObject("Chilkat.BinData")
' ...

success = crypt.OpaqueSignBd(bd)

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

set cert4 = CreateObject("Chilkat.Cert")
' ...
success = crypt.AddSigningCert(cert4)

set cert5 = CreateObject("Chilkat.Cert")
' ...
success = crypt.AddSigningCert(cert5)

' ...
' ...

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