Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Verify DomainKey-Signature Headers in Downloaded EmailDownloads email from an IMAP server and verifies the DomainKey-Signature header(s) in each email, if present. Note: DKIM-Signatures are much more common than DomainKey-Signatures. See the other Chilkat example for verifying DKIM-Signatures (link in the code below).
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim imap As Chilkat.Imap Set imap = Chilkat.NewImap ' Connect to an IMAP server, login, select mailbox.. ' Use TLS imap.Ssl = True imap.Port = 993 success = imap.Connect("imap.someMailServer.com") If (success = True) Then success = imap.Login("myLogin","myPassword") If (success = True) Then success = imap.SelectMailbox("Inbox") End If End If If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If ' Note: DKIM-Signatures are much more common than DomainKey-Signature ' See DKIM-Signature Verify Sample. Dim dkim As Chilkat.Dkim Set dkim = Chilkat.NewDkim ' Download a max of 10 emails and verify any DomainKey-Signature headers ' that are present. ' Download emails by sequence numbers (not UIDs). bUid = False n = imap.NumMessages If (n > 50) Then n = 50 End If Dim json As Chilkat.JsonObject Set json = Chilkat.NewJsonObject json.EmitCompact = False ' To verify DomainKey-Signature headers, we need the exact unmodified MIME bytes of each email. Dim mimeData As Chilkat.BinData Set mimeData = Chilkat.NewBinData seqNum = 1 Do While seqNum <= n ' The FetchSingleBd method was introduced in v9.5.0.76 success = imap.FetchSingleBd(seqNum,bUid,mimeData) If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If ' Note: DKIM-Signatures are much more common than DomainKey-Signature ' See DKIM-Signature Verify Sample. ' Get the number of DomainKey-Signature headers. numSigs = dkim.NumDomainKeySigs(mimeData) ' Verify each.. j = 0 Do While j < numSigs Debug.Print "------ DomainKey Signature "; j success = dkim.DomainKeyVerify(j,mimeData) If (success <> True) Then Debug.Print "Not valid." Debug.Print dkim.LastErrorText Else Debug.Print "valid." End If ' Show the additional information about the signature verification success = json.Load(dkim.VerifyInfo) Debug.Print json.Emit() ' The JSON contains information such as this: ' { ' "domain": "amazonses.com", ' "selector": "7v7vs6w47njt4pimodk5mmttbegzsi6n", ' "publicKey": "MIGfMA0GCSqG...v2GvWPqGHz6uqeQIDAQAB", ' "canonicalization": "relaxed/simple", ' "algorithm": "rsa-sha256", ' "signedHeaders": "Subject:From:To:Date:Mime-Version:Content-Type:References:Message-Id:Feedback-ID", ' "verified": "yes" ' } j = j + 1 Loop seqNum = seqNum + 1 Loop success = imap.Disconnect() |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.