|
Chilkat •
HOME •
Android™ •
ASP •
Visual Basic •
VB.NET •
C# •
iOS (IPhone) •
Objective-C •
C++ •
C •
MFC •
Delphi •
FoxPro •
Java •
Perl •
PHP Extension •
PHP ActiveX •
Python •
PowerShell •
Ruby •
SQL Server •
VBScript
|
|
POP3 Read S/MIME Encrypted EmailRead S/MIME encrypted email.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' The mailman object is used for receiving (POP3) ' and sending (SMTP) email. set mailman = Server.CreateObject("Chilkat.MailMan2") ' Any string argument automatically begins the 30-day trial. success = mailman.UnlockComponent("30-day trial") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( mailman.LastErrorText) & "</pre>" End If ' Set the POP3 server's hostname mailman.MailHost = "mail.chilkatsoft.com" ' Set the POP3 login/password. mailman.PopUsername = "myLogin" mailman.PopPassword = "myPassword" ' If running on Microsoft Windows, the Chilkat mailman ' will automatically search the registry-based certificate stores ' for matching certificates and private keys required for ' decryption. However, on Linux, MAX OS X, and other ' operating systems, no such thing exists. Therefore, you'll ' need to specify one or more PFX (.p12 / .pfx) files as ' sources for locating the certs required for decyrption. success = mailman.AddPfxSourceFile("/pfxFiles/certs_and_keys_1.pfx","pfxPassword1") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( mailman.LastErrorText) & "</pre>" End If success = mailman.AddPfxSourceFile("/pfxFiles/certs_and_keys_2.pfx","pfxPassword2") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( mailman.LastErrorText) & "</pre>" End If ' ... ' Note: On MS Windows, it is not required to provide PFX sources ' if the needed certs and private keys are already installed ' on the system (in the registry-based certificate stores). ' Copy the all email from the user's POP3 mailbox ' into a bundle object. The email remains on the server. ' bundle is a Chilkat.EmailBundle2 Set bundle = mailman.CopyMail() If (bundle Is Nothing ) Then Response.Write "<pre>" & Server.HTMLEncode( mailman.LastErrorText) & "</pre>" End If ' S/MIME security envelopes are automatically "unwrapped" ' when a message is retrieved from the server. Signed emails are automatically verified, and ' encrypted emails are automatically decrypted, restoring the email to the original state before ' signing and/or encrypting. Information about the signing and encrypting certificates can be ' retrieved from the Email object (methods: GetSignedByCert, GetEncryptedByCert; ' properties: SignedBy, EncryptedBy, SignaturesValid, Decrypted, ReceivedSigned, ' ReceivedEncrypted). ' Loop over the bundle, For i = 0 To bundle.MessageCount - 1 ' email is a Chilkat.Email2 Set email = bundle.GetEmail(i) Response.Write "<pre>" & Server.HTMLEncode( email.From) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( email.Subject) & "</pre>" ' At this point, if the email was signed and/or encrypted, it is already "unwrapped", i.e. ' the email is already decrypted and in a state as if it were never signed or encrypted. ' You may check to see if the email was received encrypted or signed, and if so, ' whether it was successfully unwrapped and who signed or encrypted it: If (email.ReceivedEncrypted = 1) Then Response.Write "<pre>" & Server.HTMLEncode( "This email was encrypted when received.") & "</pre>" If (email.Decrypted = 1) Then Response.Write "<pre>" & Server.HTMLEncode( "This email was successfully decrypted. It was encrypted by:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( email.EncryptedBy) & "</pre>" Else Response.Write "<pre>" & Server.HTMLEncode( "This email was not decrypted.") & "</pre>" End If End If If (email.ReceivedSigned = 1) Then Response.Write "<pre>" & Server.HTMLEncode( "This email was signed when received.") & "</pre>" If (email.SignaturesValid = 1) Then Response.Write "<pre>" & Server.HTMLEncode( "The signature was verified. It was signed by:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( email.SignedBy) & "</pre>" Else Response.Write "<pre>" & Server.HTMLEncode( "The signature verification failed.") & "</pre>" End If End If ' The email's body, HTML body, attachments, etc. ' are decrypted and available just like any non-encrypted email. Response.Write "<pre>" & Server.HTMLEncode( "--") & "</pre>" Next %> </body> </html> |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.
