vb做黑客程序

只要掌握了原理，你也能寫出一個所謂的「黑客」程序。下面筆者帶領大家用vb親自編寫一個遠程控制程序。從而揭開它的神秘面紗。

一、所用控制項

在程序中將使用winsock控制項。winsock控制項是一個activex控制項，使用tcp協議或udp協議連接到遠程計算機上並與之交換數據。和定時器控制項一樣，winsock控制項在運行時是不可見的。winsock的工作原理是：客戶端向伺服器端發出連接請求，伺服器端則不停地監聽客戶端的請求，當兩者的協議溝通時，客戶端和伺服器端之間就建立了連接，這時客戶端和伺服器端就可以實現雙向數據傳輸。實際編程中，必須分別建立一個伺服器端應用程序和一個客戶端應用程序，兩個應用程序中分別有自己的winsock控制項。首先設置winsock控制項使用的協議，這裡我們使用tcp協議。現在，讓我們開始用vb建立兩個程序，一個是客戶端程序myclient，另一個是伺服器端程序myserver。

二、編寫客戶端程序

首先來建客戶端程序myclient。在myclient程序中建立一個窗體，載入winsock控制項，稱為tcpclient，表示使用的是tcp協議，再加入兩個文本框(text1和text2)，用來輸入伺服器的ip地址和埠號，然後建立一個按鈕(cd1)，用來建立連接，按下之後就可以對連接進行初始化了，代碼如下：

privatesubcd1_clicbxwx.org=bxwx.org

bxwx.org=val(bxwx.org)'埠號，預設為100bxwx.org'調用connect方法，與指定ip地址的計算機進行連接

cd1.enabled=false

endsub

連接之後就是如何處理所收到的數據的問題了。客戶端和伺服器端建立連接后，如果有任何一端接收到新的數據，就會觸發該端winsock控制項的dataarrival事件，在響應這個事件時，可以使用getdata方法獲得發送來的數據。比如可以在tcpclient的dataarrival事件中編寫代碼如下：

privatesubtcpclient_dataarrival(byvalbytestotallong)

dimxstrinbxwx.orgx'使用getdata獲得發送來的數據

.......

endsub

後面的省略部分表示對接收到的數據進行的具體處理，讀者可以根據實際情況編寫。

三、編寫伺服器端程序

先建立一個窗體，載入winsock控制項，名稱為tcpserver。另外在窗體上加入一個文本框text1用來顯示客戶機的ip地址和客戶機發送過來的數據信息。

當客戶端程序運行時，在客戶端程序按下連接按鈕后，客戶端向伺服器端程序請求連接，這時伺服器端的connectionrequest事件被觸發，所以伺服器端程序要解決連接問題，可以使用connectionrequest事件完成此功能。代碼如下：

'在窗體的load事件中對tcpserver控制項進行初始化

privatesubform_loabxwx.org=100bxwx.org'把伺服器置於監聽檢測狀態

endsub

'伺服器端接收到客戶端的連接請求，首先檢查當前狀態是否處於連接關閉狀態

privatesubtcpclient_connectionrequest(byvalrequestidlong)

bxwx.orgsckclosedthen'檢查控制項的state屬性是否為關閉bxwx.org'

bxwx.orgrequestid'

end

endsub

現在我們在伺服器端程序tcpserver的dataarrival事件中添加以下代碼，以便讓伺服器端程序可以接收客戶機端的指令，並運行相應的程序。

四、測試遠程控制程序

現在，你就可以將這兩個程序分別運行於兩台使用tcp/ip協議聯網的機器了。在客戶機端你按下連接按鈕，再輸入「c:bxwx.org」,可以看到在伺服器端立刻打開一個dos窗口，設想一下，如果它運行一些破壞性的命令會發生什麼事情？這就是一個最基本的遠程控制程序。當然，真正的黑客程序要複雜得多，但基本原理是相同的。現在你該恍然大悟了吧？