Xbase++

Send aes-gcm authEnvelopedData Encrypted Email

See more SMTP Examples

Note: This example requires Chilkat v10.0.0 or later

Demonstrates how to send encrypted email using 128-bit AES in GCM mode.

"AES-GCM" (Advanced Encryption Standard - Galois/Counter Mode) is a cryptographic algorithm that provides both encryption and integrity protection (authentication). When used in the context of email security with "authEnvelopedData", it often refers to a method of securely sending encrypted and authenticated email content.

Here’s a brief breakdown:

• AES-GCM: Combines symmetric encryption (AES) with authentication, ensuring both the confidentiality and integrity of the message. It generates an authentication tag to detect any unauthorized changes.
• authEnvelopedData: Refers to a type of structure used in secure email protocols (like S/MIME) to package encrypted content. It contains the encrypted data and associated encrypted session keys.
• Email Security: When applied to emails, AES-GCM ensures the email content is encrypted (confidential) and also tamper-resistant (authenticated), with the encryption keys typically shared securely using asymmetric encryption (e.g., public key infrastructure, or PKI).

In short, AES-GCM with "authEnvelopedData" provides a way to encrypt and authenticate emails, making them confidential and resistant to tampering.

Xbase++

LOCAL nSuccess
LOCAL oMailman
LOCAL oCert
LOCAL oEmail

nSuccess := 0

//  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.
oMailman := CreateObject("Chilkat.MailMan")

oMailman:SmtpHost := "smtp.example.com"

oMailman:SmtpUsername := "my_smtp_login"
oMailman:SmtpPassword := "my_smtp_password"

//  The typical SMTP ports are 465 for implicit SSL/TLS or 587 for explicit SSL/TLS
oMailman:SmtpPort := 465
oMailman:SmtpSsl := 1

//  Use the recipient's certificate for encryption.
oCert := CreateObject("Chilkat.Cert")
nSuccess := oCert:LoadFromFile("c:/someDir/recipient_cert.cer")
IF (nSuccess != 1)
    ? oCert:LastErrorText
    oMailman:destroy()
    oCert:destroy()
    RETURN
ENDIF

oEmail := CreateObject("Chilkat.Email")

oEmail:Subject := "This email is encrypted"
oEmail:Body := "This is AES-GCM encrypted mail"
oEmail:From := "Mary <mary@example1.com>"
nSuccess := oEmail:AddTo("Joe", "joe@example.com")

//  Specify that AES-GCM w/ authEnvelopedData is to be used. 
//  Also specify other params..
oEmail:Pkcs7CryptAlg := "aes-gcm"
oEmail:Pkcs7KeyLength := 128
oEmail:OaepPadding := 1
oEmail:OaepHash := "sha256"
oEmail:OaepMgfHash := "sha256"

//  Indicate the email is to be sent encrypted.
oEmail:SendEncrypted := 1

//  Specify the certificate to be used for encryption.
nSuccess := oEmail:SetEncryptCert(oCert)

nSuccess := oMailman:SendEmail(oEmail)
IF (nSuccess != 1)
    ? oMailman:LastErrorText
ELSE
    ? "Mail Sent!"
ENDIF

oMailman:destroy()
oCert:destroy()
oEmail:destroy()