vb.net枚举网络中所有的SQL 2000服务器

vb.net枚举网络中所有的sql 2000服务器

    对于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就不可以了。

详细代码：

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
 

    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