vb socket 編寫入侵監聽程式

2021-04-22 12:14:55 字數 3322 閱讀 7816

上網的時候很容易遭到探測,一般探測你個人的入侵者技術不會高明到**去。所以根本不能稱上黑客,所以本文就用入侵者來代替。他們對普通網民的掃瞄可以是多埠單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位址和他正在掃瞄的本地埠。

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 = "日誌:" & 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

txtlog.selstart = len(txtlog.text)

txtlog.seltext = tmptext

end sub

總結:其實一些程式的原理很簡單,我們只要善於實踐,並且能夠把所學的只是運用到你的程式中去,我想編出類似的程式是很簡單的。如木馬、埠掃瞄器、客戶端工具、cgi漏洞掃瞄器……。vb的winsock控制項雖說不是底層操作。及不上c語言的socket程式設計的功能。但實現普通的操作還是很有用的。簡單的例子就是cookie欺騙,用vb來編寫這種程式十分簡單。

vb socket 編寫入侵監聽程式

上網的時候很容易遭到探測,一般探測你個人的入侵者技術不會高明到 去。所以根本不能稱上黑客,所以本文就用入侵者來代替。他們對普通網民的掃瞄可以是多埠單ip的掃瞄或者多ip單埠掃瞄。前者是通過一些ip工具來取得你的ip,然後嘗試利用埠掃瞄獲取你的資訊,看你的計算機有沒有預先中了木馬。然後通過網上的木馬埠...

linux驅動編寫(入門)

csdn 大牛 feixiaoxing 在我離職之前,工作內容幾乎不涉及到驅動方面的知識。我所要做的內容就是把客戶對裝置的請求拆分成乙個乙個的介面,呼叫驅動的設定進行配置就可以了。當然,至於驅動下面是怎麼實現那就要根據具體情況而定了。比如說,有的驅動是晶元廠商直接寫好的,假設晶元廠商提供了對應平台的...

linux驅動編寫(入門)

分享一下我老師大神的人工智慧教程!零基礎,通俗易懂!在我離職之前,工作內容幾乎不涉及到驅動方面的知識。我所要做的內容就是把客戶對裝置的請求拆分成乙個乙個的介面,呼叫驅動的設定進行配置就可以了。當然,至於驅動下面是怎麼實現那就要根據具體情況而定了。比如說,有的驅動是晶元廠商直接寫好的,假設晶元廠商提供...