Perl

Set the Signing Certificate for an Email

Demonstrates the Chilkat Email.SetSigningCert method, which sets the certificate (with access to its private key) used to create a digital signature when sending signed email. This example loads the signing certificate from a PFX, sets it, and enables signed sending.

Background: Signing uses your own private key (the opposite of encrypting, which uses the recipient's public key), so the signing certificate must include private-key access. A PFX (PKCS#12) file bundles the certificate and its private key together, which is why it is loaded here with LoadPfxFile. If the certificate and key are in separate files, use SetSigningCert2 instead.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the SetSigningCert method, which sets the certificate (with access to its
#  private key) used for creating a digital signature when sending signed email.

$email = chilkat::CkEmail->new();
$email->put_Subject("Signed email");
$email->put_Body("This message will be sent with a digital signature.");
$email->put_From('alice@example.com');
$email->AddTo("Bob",'bob@example.com');

#  Load a signing certificate together with its private key from a PFX file.
$cert = chilkat::CkCert->new();
$success = $cert->LoadPfxFile("qa_data/certs/signer.pfx","pfx_password");
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

#  Set the certificate used to create the signature.
$success = $email->SetSigningCert($cert);
if ($success == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

#  Request that the email be sent with a digital signature.
$email->put_SendSigned(1);

print "Signing certificate set." . "\r\n";

#  Note: The path "qa_data/certs/signer.pfx" is a relative local filesystem path,
#  relative to the current working directory of the running application.