Perl

Example: Crypt2.ClearEncryptCerts method

Demonstrates how to call the ClearEncryptCerts method. Perl

use chilkat();

$success = 0;

$crypt = chilkat::CkCrypt2->new();

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

$cert1 = chilkat::CkCert->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);

$cert2 = chilkat::CkCert->new();
# ...
$crypt->AddEncryptCert($cert2);

$cert3 = chilkat::CkCert->new();
# ...
$crypt->AddEncryptCert($cert3);

# Params for public-key encryption to create PKCS7 enveloped-data
$crypt->put_CryptAlgorithm("pki");
$crypt->put_Pkcs7CryptAlg("aes");
$crypt->put_KeyLength(256);
$crypt->put_OaepHash("sha256");
$crypt->put_OaepPadding(1);

$bd = chilkat::CkBinData->new();
# ...
$success = $crypt->EncryptBd($bd);

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

$cert4 = chilkat::CkCert->new();
# ...
$crypt->AddEncryptCert($cert4);

$cert5 = chilkat::CkCert->new();
# ...
$crypt->AddEncryptCert($cert5);

# ...
# ...

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