Lianja

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.

Lianja

llSuccess = .F.

// 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.
loMailman = createobject("CkMailMan")

loMailman.SmtpHost = "smtp.example.com"

loMailman.SmtpUsername = "my_smtp_login"
loMailman.SmtpPassword = "my_smtp_password"

// The typical SMTP ports are 465 for implicit SSL/TLS or 587 for explicit SSL/TLS
loMailman.SmtpPort = 465
loMailman.SmtpSsl = .T.

// Use the recipient's certificate for encryption.
loCert = createobject("CkCert")
llSuccess = loCert.LoadFromFile("c:/someDir/recipient_cert.cer")
if (llSuccess <> .T.) then
    ? loCert.LastErrorText
    release loMailman
    release loCert
    return
endif

loEmail = createobject("CkEmail")

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

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

// Indicate the email is to be sent encrypted.
loEmail.SendEncrypted = .T.

// Specify the certificate to be used for encryption.
llSuccess = loEmail.SetEncryptCert(loCert)

llSuccess = loMailman.SendEmail(loEmail)
if (llSuccess <> .T.) then
    ? loMailman.LastErrorText
else
    ? "Mail Sent!"
endif



release loMailman
release loCert
release loEmail