对于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 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
|