分享
 
 
 

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

王朝vb·作者佚名  2006-01-10
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有