上網的時候很容易遭到探測，一般探測你個人的入侵者技術不會高明到**去。所以根本不能稱上黑客，所以本文就用入侵者來代替。他們對普通網民的掃瞄可以是多埠單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位址和他正在掃瞄的本地埠。
１、 定義需要監聽的埠
２、 裝載一定數量的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)
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驅動編寫（入門）
分享一下我老師大神的人工智慧教程！零基礎，通俗易懂！在我離職之前，工作內容幾乎不涉及到驅動方面的知識。我所要做的內容就是把客戶對裝置的請求拆分成乙個乙個的介面，呼叫驅動的設定進行配置就可以了。當然，至於驅動下面是怎麼實現那就要根據具體情況而定了。比如說，有的驅動是晶元廠商直接寫好的，假設晶元廠商提供...