(PowerBuilder) Send Encrypted Email using RSAES-OAEP with AES-128 CBC and SHA256

Demonstrates how to send encrypted email using RSAES-OAEP with SHA256 and AES-128 content encryption.

Note: This example requires Chilkat v9.5.0.67 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Cert
integer li_Success
oleobject loo_Email
oleobject loo_Mailman

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

// Load an RSA-based certificate.
// (Encrypting an email only requires the public key.  Decrypting an email requires the private key.)
loo_Cert = create oleobject
// Use "Chilkat_9_5_0.Cert" for versions of Chilkat < 10.0.0
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")
if li_rc < 0 then
    destroy loo_Cert
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_Cert.LoadFromFile("qa_data/rsaes-oaep/cert.pem")
if li_Success <> 1 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Cert
    return
end if

loo_Email = create oleobject
// Use "Chilkat_9_5_0.Email" for versions of Chilkat < 10.0.0
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")

// Create a simple email.
loo_Email.Subject = "Sample RSAES-OAEP Encrypted Email"
loo_Email.Body = "Sample RSAES-OAEP Encrypted Email"
loo_Email.From = "support@chilkatsoft.com"

// Add a recipient.
// (The email is encrypted using the recipient's certificate.
// If sending to multiple recipients, then the AddEncryptCert method would
// need to be called once for each recipient's certificate.)
loo_Email.AddTo("Chilkat GMail","chilkat.support@gmail.com")

// Set the email object properties to indicate the desired encryption.
loo_Email.Pkcs7CryptAlg = "aes"
// If AES-256 is desired, set the following property to 256.
loo_Email.Pkcs7KeyLength = 128
loo_Email.OaepPadding = 1
// Other choices for the OAEP hash algorithm are "sha1", "sha384", and "sha512"
loo_Email.OaepHash = "sha256"

// Provide the certificate to be used for encryption
loo_Email.AddEncryptCert(loo_Cert)

// Don't forget to indicate that the email should be encrypted when sent..
loo_Email.SendEncrypted = 1

// The mailman object will do the RSAES-OAEP encryption when sending.
loo_Mailman = create oleobject
// Use "Chilkat_9_5_0.MailMan" for versions of Chilkat < 10.0.0
li_rc = loo_Mailman.ConnectToNewObject("Chilkat.MailMan")

// Set the SMTP settings for your email account on your mail server.
loo_Mailman.SmtpUsername = "SMTP_LOGIN"
loo_Mailman.SmtpPassword = "SMTP_PASSWORD"
loo_Mailman.SmtpHost = "MY_SMTP_DOMAIN_OR_IP"
loo_Mailman.SmtpPort = 587
loo_Mailman.StartTLS = 1

// Send the email.  The mailman will encrypt the email as directed by the 
// property settings of the email object.
li_Success = loo_Mailman.SendEmail(loo_Email)
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Cert
    destroy loo_Email
    destroy loo_Mailman
    return
end if

li_Success = loo_Mailman.CloseSmtpConnection()
if li_Success <> 1 then
    Write-Debug "Connection to SMTP server not closed cleanly."
end if

Write-Debug "Mail Sent!"

// -----------------------------------------------------------
// This is an example of an RSAES-OAEP encrypted email
// -----------------------------------------------------------

// MIME-Version: 1.0
// Date: Thu, 27 Apr 2017 08:43:32 -0500
// Message-ID: <772DC039F0259C474BAC60240EA2BA2272402308@CHILKAT13>
// Content-Type: application/pkcs7-mime; name="smime.p7m"; smime-type="enveloped-data"
// Content-Transfer-Encoding: base64
// X-Priority: 3 (Normal)
// Subject: Sample RSAES-OAEP Encrypted Email
// From: support@chilkatsoft.com
// To: "Chilkat GMail" <chilkat.support@gmail.com>
// Content-Disposition: attachment; filename="smime.p7m"
// 
// MIICWQYJKoZIhvcNAQcDoIICSjCCAkYCAQAxggGgMIIBnAIBADB1MGgxCzAJBgNVBAYTAlVTMQsw
// CQYDVQQIDAJJTDEQMA4GA1UEBwwHV2hlYXRvbjEhMB8GA1UECgwYSW50ZXJuZXQgV2lkZ2l0cyBQ
// dHkgTHRkMRcwFQYDVQQDDA5DaGlsa2F0V2lkZ2V0cwIJAMRwugDmvniwMBwGCSqGSIb3DQEBBzAP
// oA0wCwYJYIZIAWUDBAIBBIIBABr0E1dKJjK0FAYRz/NCtJmBeB0nUxgcuBnhGPI/UeyGub3cCo+K
// G5F4/iVTBJqVvYIF5+fvBnyTginwv7OiUiFWLyihiFC3NIyZJO22+XMHpNatCffTPZk10WswkTgk
// G3ApnRvGQAaldnFD0Hs8drPU4vBvY9QsjT7YDGa6u2NMX+sr1ewEZArqU0mNfJ6RsEYd5FQbFEVF
// qLmnz8Dt+yhoJlUtfUd8TXIeqHRJ7RxKOTSzlBZaAdTv2QX4oL9IcAgZeTg5iw+yRPkSAwWyg+I/
// 7fybLsUpRGDHTGUU+AvHvP0kYKa1mkvccBVEC/+4hEyhpS1tWIR5ByY6vM76Z+8wgZwGCSqGSIb3
// DQEHATAdBglghkgBZQMEAQIEEKqD0YDHX1NsVDaV32UczpeAcLteQyRPTV4hATjwcPiVelPfeWNs
// xZKRGaEBqLM8+Y+V4ciCFoOlgJuOcP4m1PTHyilfzd+SCsKz5l1C7+sfPf36n2aacX6IWga59Bz5
// QbWrOHDUT7O5PnGwKVgQFw3Cj4GrdPGWKcoqxB0HuKnj3WA=


destroy loo_Cert
destroy loo_Email
destroy loo_Mailman