VB.NET验证邮件地址的合法性实现代码

时间:2021-10-04 14:25:31

一、提出问题
  现在,对于用户在Web页面上或电话中给出的Email地址,我们越来越不敢肯定它是否真的有效。在今天这个垃圾邮件泛滥成灾的年代,人们完全有理由舍不得轻易透露Email地址。
  
  另一方面,对于通过正规途径得到的邮件地址,当我们将它用于合法的目的时,也常常要为邮件地址是否有效而烦恼,用户可能有意或无意地写错地址,也可能由于长时间不访问而导致邮箱失效。对于少量的邮件地址,也许可以手工验证其合法性,例如发送测试email;但是,当邮件地址的数量达到数万甚至更多时,手工验证就不可能了,必须用专门的工具或自己编写程序自动执行验证。
  
  常规的验证方法只从email地址的格式判断其合法性,例如检查它是否包含“@”和“.”符号。显然,这种检查是不充分的,邮件地址格式正确并不证明它一定有效。由于这个原因,一些网站采取了用email发送密码、特殊资源的URL等办法,或者要求用户回复email,以此确保email地址的有效性。但是,这些办法不见得任何时候都有效,例如,你可能不是从自己的网站上收集用户email,而是通过第三者获得。
  
  考虑到这些原因,验证email地址合法性最根本的办法是查询邮件服务器。本文将给出完成这一任务的完整VB.NET代码。
  
  二、邮件服务器之合法性
  对于任何邮件地址,判断其合法性的第一步当然是看看它的格式是否正确,例如是否包含“@”和“.”符号,这方面的资料很多,甚至还有现成的控件,所以本文不再赘述。我们的任务从判断邮件地址的域是否合法开始,例如对于abc@sina.com.cn这个地址,首先判断sina.com.cn的邮件服务器是否有效。
  
  每一个域有一个MX记录,即邮件交换器(Mail Exchanger)记录,它指向该域内处理email的服务器,我们只要查询DNS服务器即可获得该信息。Windows本身带来的nslookup命令非常适合于完成该任务,例如,要查找sina.com.cn的邮件服务器,只需执行nslookup -type=mx sina.com.cn,其中-type=MX表示要查找MX记录,输出结果如图一所示。Windows的nslookup命令要安装了TCP/IP协议后才可用,详细说明可参见Windows帮助。
  

 VB.NET验证邮件地址的合法性实现代码


  下面的GetMailServer函数封装了调用Windows nslookup命令的操作,根据参数中指定的域名返回邮件服务器。
  
  Private Function GetMailServer(ByVal sDomain As String) As String
  Dim info As New ProcessStartInfo()
  Dim ns As Process
  '调用Windows的nslookup命令,查找邮件服务器
  info.UseShellExecute = False
  info.RedirectStandardInput = True
  info.RedirectStandardOutput = True
  info.FileName = "nslookup"
  info.CreateNoWindow = True
  '查找类型为MX。关于nslookup的详细说明,请参见
  'Windows帮助
  info.Arguments = "-type=MX " + sDomain.ToUpper.Trim
  '启动一个进行执行Windows的nslookup命令()
  ns = Process.Start(info)
  Dim sout As StreamReader
  sout = ns.StandardOutput
  ' 利用正则表达式找出nslookup命令输出结果中的邮件服务器信息
  Dim reg As Regex = New Regex("mail exchanger = (?[^\\\s]+)")
  Dim mailserver As String
  Dim response As String = ""
  Do While (sout.Peek() > -1)
  response = sout.ReadLine()
  Dim amatch As Match = reg.Match(response)
  If (amatch.Success) Then
  mailserver = amatch.Groups("server").Value
  Exit Do
  End If
  Loop
  Return mailserver
  End Function
  
  三、邮件地址之合法性
  只要邮件地址中指定的域合法,我们就可以连接邮件服务器,试着发送一个email。如果邮件服务器回答说该用户非法或不存在,表明邮件地址无效。这一步的主要操作包括创建一个连接邮件服务器的Socket,然后按照SMTP邮件传输协议的要求与服务器通信,完成邮件发送操作。关于SMTP协议的详细说明,有兴趣的读者可参见SMTP规范(RFC 821):http://www.ietf.org/rfc/rfc821.txt。
  
  下面CheckEmail函数的输入参数是一个邮件地址,函数的返回值表示该地址是否合法。该函数有两个数值可随意调整:在发送邮件的过程中,我们要向对方的邮件服务器提供一个合法的域名以表明自己的身份,这里选择的是sina.com.cn;根据网络和对方邮件服务器的忙闲程度,响应时间也会发生变化,这里选择的等待时间是3秒。当网络或对方服务器非常忙时,减小等待时间会增加测试失败的可能性。
  
  Public Function CheckEmail(ByVal sEmail As String) As Long
  
  Dim oStream As NetworkStream
  Dim sFrom As String '发件人
  Dim sTo As String '收件人
  Dim sResponse As String '邮件服务器的应答
  Dim Remote_Addr As String '发件人的域名
  Dim mserver As String '邮件服务器
  Dim sText As String()
  
  sTo = "<" + sEmail + ">"
  ' 从邮件地址分离出帐户名和域名
  sText = sEmail.Split(CType("@", Char))
  ' 查找该域的邮件服务器
  mserver = GetMailServer(sText(1))
  'mserver为空值表明查找邮件服务器失败
  If mserver = "" Then
  Return 4
  Exit Function
  End If
  '发件人地址的域名必须合法
  Remote_Addr = "sina.com.cn"
  sFrom = "  '尽可能延迟创建对象的时间
  Dim oConnection As New TcpClient()
  Try
  '超时时间
  oConnection.SendTimeout = 3000
  '连接SMTP端口
  oConnection.Connect(mserver, 25)
  '收集邮件服务器的应答信息
  oStream = oConnection.GetStream()
  sResponse = GetData(oStream)
  sResponse = SendData(oStream, "HELO " & Remote_Addr & vbCrLf)
  sResponse = SendData(oStream, "MAIL FROM: " & sFrom & vbCrLf)
  '如果对MAIL FROM指令有肯定的应答,
  '至少表明邮件地址的域名正确
  If ValidResponse(sResponse) Then
  sResponse = SendData(oStream, "RCPT TO: " & sTo & vbCrLf)
  '如果对RCPT TO指令有肯定的应答
  '表明邮件服务器已认可该地址
  If ValidResponse(sResponse) Then
  Return 1 '邮件地址有效
  Else
  Return 2 '只有域名有效
  End If
  End If
  '结束与邮件服务器的会话
  SendData(oStream, "QUIT" & vbCrLf)
  oConnection.Close()
  oStream = Nothing
  Catch
  Return 3 '错误!
  End Try
  End Function
  
  '获取服务器应答数据,并将其转换为String
  Private Function GetData(ByRef oStream As NetworkStream) As String
  
  Dim bResponse(1024) As Byte
  Dim sResponse As String
  
  Dim lenStream As Integer = oStream.Read(bResponse, 0, 1024)
  If lenStream > 0 Then
  sResponse = Encoding.ASCII.GetString(bResponse, 0, 1024)
  End If
  Return sResponse
  End Function
  '向邮件服务器发送数据
  Private Function SendData(ByRef oStream As NetworkStream, ByVal sToSend As String) As String
  Dim sResponse As String
  '将String转换成Byte数组
  Dim bArray() As Byte = Encoding.ASCII.GetBytes(sToSend.ToCharArray)
  '发送数据
  oStream.Write(bArray, 0, bArray.Length())
  sResponse = GetData(oStream)
  '返回应答
  Return sResponse
  End Function
  
  '服务器是否返回肯定的回答?
  Private Function ValidResponse(ByVal sResult As String) As Boolean
  Dim bResult As Boolean
  Dim iFirst As Integer
  If sResult.Length > 1 Then
  iFirst = CType(sResult.Substring(0, 1), Integer)
  '如果服务器返回应答的第一个字符小于'3'
  '我们认为服务器已认可刚才的操作
  If iFirst < 3 Then bResult = True
  End If
  Return bResult
  End Function
  
  CheckEmail函数的返回值表示测试结果:1表示邮件地址合法,2表示只有域名正确(可能是用户的邮件帐户无效),3表示出现了错误,4表示无法找到邮件服务器。
  
  四、用户界面
  以上我们完成了测试邮件地址是否合法的核心功能,这些函数可用于各种形式的应用程序,包括Web服务、Windows应用程序、控件等,最多只要修改一下声明方式。为便于测试这些函数,下面我们要做一个Windows应用形式的简单用户界面。
  
  启动VS.NET,选择新建Visual Basic项目、Windows应用程序,如图二,输入项目名称CheckMail以及保存位置,点击“确定”按钮,VS.NET创建一个新的项目。
  
@">

@">

 VB.NET验证邮件地址的合法性实现代码


  从工具箱把一个文本标签、一个输入框和一个按钮拖到VS.NET自动创建的窗体上。将窗体的TEXT属性改为“Email地址测试”,文本标签的TEXT属性改为“邮件地址”,按钮的TEXT属性改为“Check!”,调整各个控件的位置,使其看起来整齐美观,如图三。
  

 VB.NET验证邮件地址的合法性实现代码

@">


  双击按钮,输入点击按钮时执行的Button1_Cli
@">