Sample code for 30+ languages & platforms
Perl

Clear the S/MIME Recipient Certificate List

See more MIME Examples

Demonstrates ClearEncryptCerts, which empties the recipient-certificate list previously populated by AddEncryptCert. This is useful to start over with a different set of recipients before calling EncryptN.

Background. The recipient list is internal state that accumulates across AddEncryptCert calls. ClearEncryptCerts resets it so a subsequent EncryptN encrypts only for the certificates added afterward.

Chilkat Perl Downloads

Perl
use chilkat();

$success = 0;

$mime = chilkat::CkMime->new();
$success = $mime->SetBodyFromPlainText("This message will be encrypted.");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

#  Add a recipient certificate.
$cert = chilkat::CkCert->new();
$success = $cert->LoadFromFile("qa_data/recipient.cer");
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

$success = $mime->AddEncryptCert($cert);
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

#  ClearEncryptCerts empties the recipient-certificate list, for example to start over with a
#  different set of recipients before calling EncryptN.  It is a void method.
$mime->ClearEncryptCerts();

print "Recipient certificate list cleared." . "\r\n";