Perl

Example: Crypt2.ClearEncryptCerts method

Demonstrates how to call the ClearEncryptCerts method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

# Tell the crypt object to use 3 certificates.
# Do this by calling AddEncryptCert 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->AddEncryptCert($cert1);

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

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

# Params for public-key encryption to create PKCS7 enveloped-data
$crypt->CryptAlgorithm('pki');
$crypt->Pkcs7CryptAlg('aes');
$crypt->KeyLength(256);
$crypt->OaepHash('sha256');
$crypt->OaepPadding(1);

my $bd = Chilkat2::BinData->new;
# ...
my $success = $crypt->EncryptBd($bd);

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

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

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

# ...
# ...

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