Perl

Example: Crypt2.ClearSigningCerts method

Demonstrates how to call the ClearSigningCerts method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $crypt = Chilkat2::Crypt2->new;
my $success = 0;

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

my $cert1 = Chilkat2::Cert->new;
# ...
# 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);

my $cert2 = Chilkat2::Cert->new;
# ...
$crypt->AddSigningCert($cert2);

my $cert3 = Chilkat2::Cert->new;
# ...
$crypt->AddSigningCert($cert3);

my $bd = Chilkat2::BinData->new;
# ...

$success = $crypt->OpaqueSignBd($bd);

# Let's say we now want to sign something else with different certs..
# First clear the signing certs.
$crypt->ClearSigningCerts();

my $cert4 = Chilkat2::Cert->new;
# ...
$crypt->AddSigningCert($cert4);

my $cert5 = Chilkat2::Cert->new;
# ...
$crypt->AddSigningCert($cert5);

# ...
# ...

# Sign using cert4 and cert5.
$success = $crypt->OpaqueSignBd($bd);