用VB编写***监听程序
2010-07-19 13:02
288 查看
上网的时候很容易遭到探测,一般探测你个人的***者技术不会高明到哪里去。所以根本不能称上***,所以本文就用***者来代替。他们对普通网民的扫描可以是多端口单IP的扫描或者多IP单端口扫描。前者是通过一些IP工具来取得你的IP,然后尝试利用端口扫描获取你的信
息,看你的计算机有没有预先中了***。然后通过网上的***端口列表,来获得***名称。用相应的客户端软件来连接到你的计算机。从而获得密码、以及你的秘密信息。后者则是通过利用如SuperScan等可以大范围扫
描IP的软件,扫描打开特定端口的机器。比如,可以扫描打开7626端口的机器,看对方是否中了冰河。然后,***者就用客户端连接到服务器从而***你的计算机。
这些扫描是简单的TCP的ConNECt扫描。所以无法避开防火墙的追
踪。网民就可以利用天网等防火墙软件来获取对方的IP。相信很多DIY迷或者编程爱好者总是想拥有属于自己的类似的工具。本文就给你讲述如何用VB来获得探测你的***者的IP地址,然后……
我可没有教你用蓝屏炸弹或者蜗牛炸弹去炸它哦。毕竟,我们没有***者的野心,本程序还可以让你监听80端口,来察看对方对你进行的常规扫描。要看懂本文,
你需要有一定的VB基础。
好了,废话少说,我们来看看本程序的基本原理:
***者通过Connect本机的端口,
然后通过是否成功,来获得信息。由于TCP的三次握手原理。他必定会留下自己的IP,我们就利用这一个原理来获得对方的IP。
Winsock控件的属性、方法和事件在我上次写的《.用winsock制作漏洞扫描器》一文中已经叙述过,这里就不再介绍。大家还一定记得RemoteHostIP和LocalPort属
性吧。这就是对方的IP和自己的端口。聪明的你应该明白了吧。通过这两个属性就可以清楚的获得对方的IP地址和他正在扫描的本地端口。
因为不可能一个端口只有一个人会扫描,所以本程序我们需要使用到控件数组。这个概念的描述大家可以查找MSDN。本程序的流程是:
1、 定义需要监听的端口
2、 装载一定数量的Winsock1控件,从需要监听的端口列表中获得数据。一一开启监听功能。(Listen)
3、 当某一个控件接收到连接的事件发生,就把得到的RemoteIP和LocalPort加入日志
4、
加载一个Winsock2,继续捕获数据(Getdata)
5、 Winsock2数据到达记录数据
程序的基本概念都介
绍完了,相信你对本程序已经有了一定的认识。现在我们就来开始我们的工作:
程序的控件以及说明如下:
控件名
控件类型 属性
Label1 Label Caption=”增加端口”
Command1 command
Caption=”添加”
Command2 command Caption=”监听”
Command3 command
Caption=”退出”
Listports Listbox 无
TxtLog Richtextbox 无
程序的代码以及说明如下:
‘本程序在VB6.0+Windows2000下测试通过!
Dim tmpstr As
String
Dim NOW_OUT As Integer ''总共出去连接的有几个Winsock
Private Sub
Command1_Click()
ListPorts.AddItem txtADDPORT.Text
End Sub
Private
Sub Command2_Click()
On Error Resume Next
If Command2.Caption =
"监听" Then
For i = 0 To ListPorts.ListCount - 1
Load Winsock1(i 1)
''加载监听端口的winsock1数组控件
Winsock1(i 1).LocalPort = ListPorts.List(i)
''设定端口
Winsock1(i 1).Listen ''监听
Next i
Command2.Caption = "停止"
Else
For
i = 1 To Winsock1.Count - 1
Unload Winsock1(i)
Next i
For i2 =
1 To Winsock2.Count - 1
Unload Winsock2(i2)
Next i2
Command2.Caption
= "监听"
End If
End Sub
Private Sub Command3_Click()
Unload
Me
End Sub
Private Sub Form_Load()
txtLOG.Text = "日志:"
息,看你的计算机有没有预先中了***。然后通过网上的***端口列表,来获得***名称。用相应的客户端软件来连接到你的计算机。从而获得密码、以及你的秘密信息。后者则是通过利用如SuperScan等可以大范围扫
描IP的软件,扫描打开特定端口的机器。比如,可以扫描打开7626端口的机器,看对方是否中了冰河。然后,***者就用客户端连接到服务器从而***你的计算机。
这些扫描是简单的TCP的ConNECt扫描。所以无法避开防火墙的追
踪。网民就可以利用天网等防火墙软件来获取对方的IP。相信很多DIY迷或者编程爱好者总是想拥有属于自己的类似的工具。本文就给你讲述如何用VB来获得探测你的***者的IP地址,然后……
我可没有教你用蓝屏炸弹或者蜗牛炸弹去炸它哦。毕竟,我们没有***者的野心,本程序还可以让你监听80端口,来察看对方对你进行的常规扫描。要看懂本文,
你需要有一定的VB基础。
好了,废话少说,我们来看看本程序的基本原理:
***者通过Connect本机的端口,
然后通过是否成功,来获得信息。由于TCP的三次握手原理。他必定会留下自己的IP,我们就利用这一个原理来获得对方的IP。
Winsock控件的属性、方法和事件在我上次写的《.用winsock制作漏洞扫描器》一文中已经叙述过,这里就不再介绍。大家还一定记得RemoteHostIP和LocalPort属
性吧。这就是对方的IP和自己的端口。聪明的你应该明白了吧。通过这两个属性就可以清楚的获得对方的IP地址和他正在扫描的本地端口。
因为不可能一个端口只有一个人会扫描,所以本程序我们需要使用到控件数组。这个概念的描述大家可以查找MSDN。本程序的流程是:
1、 定义需要监听的端口
2、 装载一定数量的Winsock1控件,从需要监听的端口列表中获得数据。一一开启监听功能。(Listen)
3、 当某一个控件接收到连接的事件发生,就把得到的RemoteIP和LocalPort加入日志
4、
加载一个Winsock2,继续捕获数据(Getdata)
5、 Winsock2数据到达记录数据
程序的基本概念都介
绍完了,相信你对本程序已经有了一定的认识。现在我们就来开始我们的工作:
程序的控件以及说明如下:
控件名
控件类型 属性
Label1 Label Caption=”增加端口”
Command1 command
Caption=”添加”
Command2 command Caption=”监听”
Command3 command
Caption=”退出”
Listports Listbox 无
TxtLog Richtextbox 无
程序的代码以及说明如下:
‘本程序在VB6.0+Windows2000下测试通过!
Dim tmpstr As
String
Dim NOW_OUT As Integer ''总共出去连接的有几个Winsock
Private Sub
Command1_Click()
ListPorts.AddItem txtADDPORT.Text
End Sub
Private
Sub Command2_Click()
On Error Resume Next
If Command2.Caption =
"监听" Then
For i = 0 To ListPorts.ListCount - 1
Load Winsock1(i 1)
''加载监听端口的winsock1数组控件
Winsock1(i 1).LocalPort = ListPorts.List(i)
''设定端口
Winsock1(i 1).Listen ''监听
Next i
Command2.Caption = "停止"
Else
For
i = 1 To Winsock1.Count - 1
Unload Winsock1(i)
Next i
For i2 =
1 To Winsock2.Count - 1
Unload Winsock2(i2)
Next i2
Command2.Caption
= "监听"
End If
End Sub
Private Sub Command3_Click()
Unload
Me
End Sub
Private Sub Form_Load()
txtLOG.Text = "日志:"
相关文章推荐
- vb+socket 编写入侵监听程序
- vb+socket 编写入侵监听程序
- VB下如何编写CRC校验程序
- 用VB编写键盘拦截程序
- 使用VB编写纯ASP程序
- Android编写短信监听程序在小米手机中无效的解决办法
- 用VB编写的向数据库添加记录的程序
- 使用UDP协议编写一个网络程序,设置接收端程序的监听端口是8001,发送端发送的数据是“Hello, world”。
- 用VB编写异步多线程下载程序
- VB:如何监听打开的窗口和程序
- vb编写串口调试程序
- 求助,用VB编写个计算程序 高手解答
- 使用VB.NET编写控制excel的程序
- 用VB编写抽奖程序
- 用VB编写键盘拦截程序
- vb.net 编写的简易串口调试程序
- 如何用VB编写OPC客户端程序
- 用VB编写异步多线程下载程序
- 用VB如何编写无窗口系统热键程序
- 使用TCP协议编写一个网络程序,设置服务器端的监听端口是8002,当与客户端建立连接后,服务器端向客户端发送数据“Hello, world”,客户端收到数据后打印输出。