vb.net枚举网络中所有的SQL 2000服务器。
来源:互联网 发布:世界云计算实力 编辑:程序博客网 时间:2024/06/05 11:12
原理:http://www.xfocus.net/articles/200111/306.html
以下从上文复制:
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
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
- vb.net枚举网络中所有的SQL 2000服务器。
- vb.net枚举网络中所有的SQL 2000服务器
- VB中枚举指定目录下所有文件的方法
- 枚举网络中SQLSERVER服务器的方法
- 枚举局域网内所有的 SQL Server 服务器实例名
- C#获得网络中所有SQL Server服务器数据库名称
- C#获得网络中所有SQL Server服务器数据库名称
- [VB.NET]所有菜单项(ToolStripMenuItem)的name枚举出来
- [VB.NET]如何遍历web窗体中所有的控件
- VB.NET取得字符串中所有的数字
- 在asp.net中获取局域网上所有的Sql Server服务器
- vb搜索局域网内所有SQL Server服务器和指定SQL Server服务器上的所有数据库
- 如何列举出网络上所有的SQL Server服务器
- 取得网络中SQL的服务器列表
- 笔记13:vb.net网络编程中出现的错误
- vb.net 枚举类型
- [VB.NET]在vb.net中如何获取sql数据库中表的字段数?
- VS2010 vb.net中SQL文模糊查询的写法
- 有待解决的编程问题...请达人明示.
- 什么是Web 2.0?
- 图片水印
- 最喜欢的一首classical music
- 查阅大部分手机和J2ME相关参数的网址
- vb.net枚举网络中所有的SQL 2000服务器。
- 网页代码常用小技巧总结续,网页制作学习
- dll的创建及使用(源码)
- void 关键字的用法
- 获取用户需求的十大沟通技巧
- 剔出//与/**/注释的源码
- 技巧摘录
- 关于Zion真实性问题的图文分析及其他 V1.06
- 12天完成切换至标准化web重构 第一天--选择什么样的doctype (转载 网页设计师)