(Xojo Plugin) Verify DomainKey-Signature Headers in Downloaded Email

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim imap As New Chilkat.Imap

// Connect to an IMAP server, login, select mailbox..
// Use TLS 
imap.Ssl = True
imap.Port = 993
Dim success As Boolean
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
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Note: DKIM-Signatures are much more common than DomainKey-Signature
// See DKIM-Signature Verify Sample.

Dim dkim As New Chilkat.Dkim

// Download a max of 10 emails and verify any DomainKey-Signature headers
// that are present.

// Download emails by sequence numbers (not UIDs).
Dim bUid As Boolean
bUid = False
Dim seqNum As Int32
Dim j As Int32
Dim n As Int32
n = imap.NumMessages
If (n > 50) Then
    n = 50
End If

Dim json As New Chilkat.JsonObject
json.EmitCompact = False

// To verify DomainKey-Signature headers, we need the exact unmodified MIME bytes of each email.
Dim mimeData As New Chilkat.BinData
seqNum = 1
While seqNum <= n
    // The FetchSingleBd method was introduced in v9.5.0.76
    success = imap.FetchSingleBd(seqNum,bUid,mimeData)
    If (success <> True) Then
        System.DebugLog(imap.LastErrorText)
        Return
    End If

    // Note: DKIM-Signatures are much more common than DomainKey-Signature
    // See DKIM-Signature Verify Sample.

    // Get the number of DomainKey-Signature headers.
    Dim numSigs As Int32
    numSigs = dkim.NumDomainKeySigs(mimeData)

    // Verify each..
    j = 0
    While j < numSigs
        System.DebugLog("------ DomainKey Signature " + Str(j))

        success = dkim.DomainKeyVerify(j,mimeData)
        If (success <> True) Then
            System.DebugLog("Not valid.")
            System.DebugLog(dkim.LastErrorText)
        Else
            System.DebugLog("valid.")
        End If

        // Show the additional information about the signature verification
        success = json.Load(dkim.VerifyInfo)
        System.DebugLog(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
    Wend
    seqNum = seqNum + 1
Wend

success = imap.Disconnect()