这些扫描是简单的TCP的ConNECt扫描。所以无法避开防火墙的追 踪。网民就可以利用天网等防火墙软件来获取对方的IP。相信很多DIY迷或者 编程 爱好者总是想拥有属于自己的类似的工具。本文就给你讲述如何用VB来获得探测你的入侵者的IP地址，然后…… 我可没有教你用蓝屏炸弹或者蜗牛炸弹去炸它哦。毕竟，我们没有入侵者的野心，本程序还可以让你监听80端口，来察看对方对你进行的常规扫描。要看懂本文， 你需要有一定的VB基础。
好了，废话少说，我们来看看本程序的基本原理：
入侵者通过Connect本机的端口， 然后通过是否成功，来获得信息。由于TCP的三次握手原理。他必定会留下自己的IP，我们就利用这一个原理来获得对方的IP。
Winsock控件的属性、方法和事件在我上次写的《.用winsock制作 漏洞 扫描器》一文中已经叙述过，这里就不再介绍。大家还一定记得RemoteHostIP和LocalPort属 性吧。这就是对方的IP和自己的端口。聪明的你应该明白了吧。通过这两个属性就可以清楚的获得对方的IP地址和他正在扫描的本地端口。
因为不可能一个端口只有一个人会扫描，所以本程序我们需要使用到控件数组。这个概念的描述大家可以查找MSDN。本程序的流程是：
１、 定义需要监听的端口
２、 装载一定数量的Winsock1控件，从需要监听的端口列表中获得数据。一一开启监听功能。（Listen）
３、 当某一个控件接收到连接的事件发生，就把得到的RemoteIP和LocalPort加入日志
４、 加载一个Winsock2，继续捕获数据（Getdata）
５、 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)
For i2 = 1 To Winsock2.Count - 1
Unload Winsock2(i2)
Next i2
Command2.Caption = "监听"
End If
Private Sub Command3_Click()
Unload Me
Private Sub Form_Load()
txtLOG.Text = "日志:"
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
