用编写入侵监听程序计划

上的时候很容易遭到探测，一般探测你个人的入侵者技术不会高明到哪里去。所以根本不能称上黑客，所以本文就用入侵者来代替。他们对普通民的扫描可以是多端口单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。本程序的流程是：

１、 定义需要监听的端口

２、 装载一定数量的Winsock1控件，从需要监听的端口列表中获得数据。一一开启监听功能。（Listen）

３、 当某一个控件接收到连接的事件发生，就把得到的RemoteIP和LocalPort加入日志

４、 加载一个Winsock2，继续捕获数据（Getdata）

５、 Winsock2数据到达记录数据

程序的基本概念都介绍完了，相信你对本程序已经有了一定的认识。现在我们就来开始我们的工作：

程序的控件以及说明如下：

控件名控件类型属性Label1LabelCaption=”增加端口”Command1commandCaption=”添加”Command2commandCaption=”监听”Command3commandCaption=”退出”ListportsListbox无TxtLogRichtextbox无

[下一页]

程序的代码以及说明如下：

‘本程序在VB6.0＋Windows2000下测试通过！

Dim tmpstr As String

Dim NOW_OUT As Integer \'\'\'\'总共出去连接的有几个Winsock

Private Sub Command1_Click()

dItem xt

End Sub

Private Sub Command2_Click()

On Error Resume Next

If ption = \"监听\" Then

价格则会自动攀升。) For i = 0 To stCount - 1

Load Winsock1(i + 1) \'\'\'\'加载监听端口的winsock1数组控件

Winsock1(i + 1).LocalPort = st(i) \'\'\'\'设定端口

Winsock1(i + 1).Listen \'\'\'\'监听

Next i

ption = \"停止\"

Else

For i = 1 To unt - 1

Unload Winsock1(i)

Next i

For i2 = 1 To unt - 1

Unload Winsock2(i2)

Next i2

ption = \"监听\"

End If

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

xt = \"日志:\" vbCrLf

NOW_OUT = 1

End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)

Load Winsock2(NOW_OUT) \'\'\'\'加载建立连接的Winsock2数组控件

Winsock2(NOW_OUT).Accept requestID \'\'\'\'建立连接

Winsock1(Index).Close

Winsock1(Index).Listen \'\'\'\'Winsock1继续监听

NOW_OUT = NOW_OUT + 1 \'\'\'\'连接的控件累加

myAddLog \"来自\" Winsock1(Index).RemoteHostIP \"连接到本地端口:\" Winsock1(Index).LocalPort

\'\'\'\'显示捕获的连接

End Sub

Private Sub Winsock2_DataArrival(Index As Integer, ByVal bytesTotal As Long)

Winsock2(Index).GetData tmpstr \'\'\'\'通过Getdata捕获数据

myAddLog \"来自\" Winsock2(Index).RemoteHostIP \"的数据：\" tmpstr \'\'\'\'显示捕获的数据

End Sub

Sub myAddLog(tmptext As String) \'\'\'\'加入日志

tmptext = tmptext vbCrLf

lStart = Len(xt)

lText = tmptext

End Sub

总结：其实一些程序的原理很简单，我们只要善于实践，并且能够把所学的只是运用到你的程序中去，我想编出类似的程序是很简单的。如木马、端口扫描器、客户端工具、CGI漏洞扫描器……。VB的Winsock控件虽说不是底层操作。及不上C语言的Socket编程的功能。但实现普通的操作还是很有用的。简单的例子就是Cookie欺骗，用VB来编写这种程序十分简单。

重庆哪白癜风医院好
冠心病合并高血压吃什么药
南京治疗盆腔炎费用多少钱