VB.NET列出网络中的SQL-Server服务器

3、神秘的1434端口和服务器信息明文传输缺陷    对于SQL Server2000来说，打开SQL Server客户端准备连接，当拉开服务器列表的时候，整个局域网所有的SQL Server服务器都被列出来了。于是我发现，从我自己的机器(192.168.0.1)上从1434端口广播(192.168.0.255)了这个UDP包，然后，整个局域网中的SQL Server服务器都开始响应这个UDP数据包，这时，我的客户端能够得到所有服务器信息。      这就是客户端进行连接的过程：当客户端连接到服务器时，应用程序请求连接远端计算机，Dbnetlib.dll 将打开到连接中所指定的计算机网络名上的 UDP 端口 1434 的连接。所有运行 SQL Server 2000 的计算机都监听此端口。当一个客户端 Dbnetlib.dll 连接到该端口时，服务器将返回一个监听服务器上运行的所有实例的数据包。对于每个实例，该数据包报告该实例正在监听的服务器 Net-Library 和网络地址。应用程序计算机上的 Dbnetlib.dll 收到该数据包后，选择在应用程序计算机和 SQL Server 实例上都启用的 Net-Library，然后连接为此数据包中的 Net-Library 列出的地址。      通过1434端口传输特定的UDP数据包，然后服务器开始回应，所有这些都是明文传输的，我们可以很容易探测一个IP地址的1434端口，获得该IP地址上运行的SQL Server的相关信息。这些信息包括：主机名称、实例名称、版本、管道名称以及使用的端口等。这个端口是微软自己使用，而且不象默认的1433端口那样可以改变，1434是不能改变的，呵呵，那么我们为了安全，去改变这个1433端口能起什么作用呢？     我们可以来捕获这些数据报，可以发现，通过1434端口的数据非常简单，客户端仅仅简单地发送了02一个字节出去。不过多次捕获，发现有时候发送的是 03。于是我就用下面程序一个一个测试，发送其他数据。不过最后只有02、03、04有回应。看来这三种字节用来做SQL Server探测的。而且你可以发送 02 00 00，也可以发送 02 00 00 00 00等等都能够得到SQL Server的回应，但是发送 02 03就不可以了。

体验：代码生成器forSql2000版 http://blog.csdn.net/Qqwwee_Com/archive/2005/09/06/472981.aspx

详细代码：

Imports System.Net Imports System.Net.Sockets Imports System.Net.Sockets.Socket Imports System.Collections.Specialized Public Class GetServers       '采用udp协议     Private m_Client As Sockets.UdpClient       '广播地址，表示整个网络     Private StrHost As String = "255.255.255.255"       '广播端口     Private IntPort As Integer = 1434       '要发送的数据,发送这个数据所有的sqlserver就会响应了     Private B() As Byte = New Byte() {&H2}       '因为 send 里面有个死循环，这里用个定时器来处理超时间     Private WithEvents t As New Timers.Timer         '发送数据出去     Function Send() As ArrayList         m_Client = New UdpClient           '用来存储获取的sql列表         Dim atemp As New ArrayList           '发送的目标，广播地址         Dim host As New IPEndPoint(IPAddress.Parse(Me.StrHost), Me.IntPort)         Try             '这里发送数据             m_Client.Send(B, 1, host)               '下面开始读取，因为网络内sql server数量众多,数据包一个一个的返回             '所以这里循环处理了。             While True                   '开定时器                 t.Interval = 1000                 t.Enabled = True                   '接收的字节数组                 Dim BR As Byte() = m_Client.Receive(host)                 Dim A As System.Text.Encoding = System.Text.Encoding.Default                   '用来存储当前字符串                 Dim S As String = ""                   '从第4个数字开始，前三个字符为非打印字符                 S = A.GetString(BR, 3, BR.Length - 3)                 Console.WriteLine(S)                   '这里解析获取的文本                 atemp.Add(New SqlServer(S))                   '关闭                 t.Enabled = False             End While         Catch ex As Exception             Console.WriteLine(ex.Message)         Finally             m_Client.Close()         End Try         Return atemp         'Console.WriteLine("检查完毕。。")     End Function       '超时后强制结束网络等待。     Private Sub t_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles t.Elapsed         'Console.WriteLine("关闭。。")         m_Client.Close()         t.Dispose()     End Sub End Class     Public Class SqlServer     'sql server解析类     '     '因为返回的字符串类似 name1;value1;name2;value2;name3;value3; ....     '而且不固定长度     '所以这里用NameValueCollection返回。     Private Nv As NameValueCollection       Sub New(ByVal Str As String)         Nv = New NameValueCollection         Dim a As String() = Str.Split(";")         For i As Integer = 0 To a.Length - 1 Step 2             Dim t As Integer = i             Nv(a(t)) = a(t + 1)         Next     End Sub       '因为要添加到combobox，这里重载了一下tostring以显示文本     Overrides Function tostring() As String         Return Nv ("ServerName")     End Function   End Class

 调用代码

Sub GetSqlServers()         Me.Cursor = Cursors.WaitCursor         Dim a As ArrayList         Dim g As New GetServers         a = g.Send()         For Each c As SqlServer In a             Me.cb_Server.Items.Add(c)         Next         Me.Cursor = Cursors.Default     End Sub