上網(wǎng)遭到探測(cè)用VB編寫(xiě)入侵監(jiān)聽(tīng)程序

上網(wǎng)的時(shí)候很容易遭到探測(cè)，一般探測(cè)你個(gè)人的入侵者技術(shù)不會(huì)高明到哪里去。所以根本不能稱(chēng)上黑客，所以本文就用入侵者來(lái)代替。他們對(duì)普通網(wǎng)民的掃描可以是多端口單IP的掃描或者多IP單端口掃描。前者是通過(guò)一些IP工具來(lái)取得你的IP，然后嘗試?yán)�用端口掃描獲取你的信息，看你的計(jì)算機(jī)有沒(méi)有預(yù)先中了木馬。然后通過(guò)網(wǎng)上的木馬端口列表，來(lái)獲得木馬名稱(chēng)。用相應(yīng)的客戶(hù)端軟件來(lái)連接到你的計(jì)算機(jī)。從而獲得密碼、以及你的秘密信息。后者則是通過(guò)利用如SuperScan等可以大范圍掃描IP的軟件，掃描打開(kāi)特定端口的機(jī)器。比如，可以?huà)呙璐蜷_(kāi)7626端口的機(jī)器，看對(duì)方是否中了冰河。然后，入侵者就用客戶(hù)端連接到服務(wù)器從而入侵你的計(jì)算機(jī)。

這些掃描是簡(jiǎn)單的TCP的ConNECt掃描。所以無(wú)法避開(kāi)防火墻的追蹤。網(wǎng)民就可以利用天網(wǎng)等防火墻軟件來(lái)獲取對(duì)方的IP。相信很多DIY迷或者編程愛(ài)好者總是想擁有屬于自己的類(lèi)似的工具。本文就給你講述如何用VB來(lái)獲得探測(cè)你的入侵者的IP地址，然后……我可沒(méi)有教你用藍(lán)屏炸彈或者蝸牛炸彈去炸它哦。畢竟，我們沒(méi)有入侵者的野心，本程序還可以讓你監(jiān)聽(tīng)80端口，來(lái)察看對(duì)方對(duì)你進(jìn)行的常規(guī)掃描。要看懂本文，你需要有一定的VB基礎(chǔ)。

好了，廢話(huà)少說(shuō)，我們來(lái)看看本程序的基本原理：

入侵者通過(guò)Connect本機(jī)的端口，然后通過(guò)是否成功，來(lái)獲得信息。由于TCP的三次握手原理。他必定會(huì)留下自己的IP，我們就利用這一個(gè)原理來(lái)獲得對(duì)方的IP。

Winsock控件的屬性、方法和事件在我上次寫(xiě)的《.用winsock制作漏洞掃描器》一文中已經(jīng)敘述過(guò)，這里就不再介紹。大家還一定記得RemoteHostIP和LocalPort屬性吧。這就是對(duì)方的IP和自己的端口。聰明的你應(yīng)該明白了吧。通過(guò)這兩個(gè)屬性就可以清楚的獲得對(duì)方的IP地址和他正在掃描的本地端口。

因?yàn)椴豢赡芤粋�(gè)端口只有一個(gè)人會(huì)掃描，所以本程序我們需要使用到控件數(shù)組。這個(gè)概念的描述大家可以查找MSDN。本程序的流程是：

１、 定義需要監(jiān)聽(tīng)的端口

２、 裝載一定數(shù)量的Winsock1控件，從需要監(jiān)聽(tīng)的端口列表中獲得數(shù)據(jù)。一一開(kāi)啟監(jiān)聽(tīng)功能。（Listen）

３、 當(dāng)某一個(gè)控件接收到連接的事件發(fā)生，就把得到的RemoteIP和LocalPort加入日志

４、 加載一個(gè)Winsock2，繼續(xù)捕獲數(shù)據(jù)（Getdata）

５、 Winsock2數(shù)據(jù)到達(dá)記錄數(shù)據(jù)

程序的基本概念都介紹完了，相信你對(duì)本程序已經(jīng)有了一定的認(rèn)識(shí)�，F(xiàn)在我們就來(lái)開(kāi)始我們的工作：

程序的控件以及說(shuō)明如下：

控件名 控件類(lèi)型 屬性

Label1 Label Caption=”增加端口”

Command1 command Caption=”添加”

Command2 command Caption=”監(jiān)聽(tīng)”

Command3 command Caption=”退出”

Listports Listbox 無(wú)

TxtLog Richtextbox 無(wú)

程序的代碼以及說(shuō)明如下：

‘本程序在VB6.0＋Windows2000下測(cè)試通過(guò)！

Dim tmpstr As String

Dim NOW_OUT As Integer ’’總共出去連接的有幾個(gè)Winsock

Private Sub Command1_Click()

ListPorts.AddItem txtADDPORT.Text

End Sub

Private Sub Command2_Click()

On Error Resume Next

If Command2.Caption = "監(jiān)聽(tīng)" Then

For i = 0 To ListPorts.ListCount - 1

Load Winsock1(i 1) ’’加載監(jiān)聽(tīng)端口的winsock1數(shù)組控件

Winsock1(i 1).LocalPort = ListPorts.List(i) ’’設(shè)定端口

Winsock1(i 1).Listen ’’監(jiān)聽(tīng)

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 = "監(jiān)聽(tīng)"

End If

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

txtLOG.Text = "日志:"
如果有需要服務(wù)器的租用與托管的敬請(qǐng)聯(lián)系QQ：１５０１２８１７５８（億恩星辰）　　　聯(lián)系電話(huà)：０３７１—６３３２２２２０

服務(wù)器租用/服務(wù)器托管中國(guó)五強(qiáng)！虛擬主機(jī)域名注冊(cè)頂級(jí)提供商！15年品質(zhì)保障！--億恩科技[ENKJ.COM]