(Perl) Send Signed and Encrypted EDI Email (EDIFACT)

Demonstrates how to send a signed and encrypted EDI email (EDIFACT email).

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

#  The mailman object is used for sending and receiving email.
$mailman = chilkat::CkMailMan->new();

#  Create a new email object

#  Build the basic EDI email where the body is the EDIFACT message:
$ediMsg = "UNB+IATB:1+6XPPC ...";
$name = "something";
$filename = "something";
$charset = "iso-8859-1";
$email->SetEdifactBody($ediMsg,$name,$filename,$charset);

$email->put_Subject("This is the subject");
$email->put_From('Chilkat Admin <admin@chilkatsoft.com>');
$success = $email->AddTo("Chilkat Support",'support@chilkatsoft.com');

#  Indicate that the email should be sent signed.
$email->put_SendSigned(1);

#  Tell the mailman to use a PFX file as a source for locating
#  the certificate and private key required for signing.
#  The certificate chosen for signing will be the one that
#  matches the sender's email address, which also has
#  a private key.  All intermediate certs in the chain of
#  authentication, up to and including the root, will
#  be included in the signature.
$success = $mailman->AddPfxSourceFile("/pfx_files/myCertAndPrivateKey.pfx","secret");
if ($success != 1) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

#  Load the .cer file into a certificate object.
#  When sending S/MIME encrypted email, it is the recipient's
#  certificate that is used for encryption.  Only the public key
#  is needed to encrypt.  The recipient is the only
#  one possessing the private key, and therefore is the only
#  one able to decrypt.

$success = $cert->LoadFromFile("/certs/recipientCert.cer");
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

#  Indicate that the email is to be sent encrypted.
$email->put_SendEncrypted(1);

#  Indicate that we want 192-bit 3DES encryption:
$email->put_Pkcs7CryptAlg("3des");
$email->put_Pkcs7KeyLength(192);

#  Specify the certificate to be used for encryption.
$success = $email->SetEncryptCert($cert);

#  Tell the mailman to use an opaque signature (as opposed to a detached signature)
$mailman->put_OpaqueSigning(1);

#  SMTP server (use your settings and refer to the online
#  reference  documentation for more options)
$mailman->put_SmtpHost("smtp.mymailserver.com");
$mailman->put_SmtpUsername("myLogin");
$mailman->put_SmtpPassword("myPassword");
$mailman->put_SmtpPort(587);
$mailman->put_StartTLS(1);

#  Send the signed/encrypted EDI email
$success = $mailman->SendEmail($email);
if ($success != 1) {
    print $mailman->lastErrorText() . "\r\n";
}
else {
    print "Mail Sent!" . "\r\n";
}