摘 要：簡易介紹“木馬”的危害性及種類，了解其從病毒中單獨(dú)剝離出來的原因，并通過vb程序?qū)崿F(xiàn)來詳細(xì)闡述其工作原理。

關(guān)鍵詞：木馬；VB；注冊表；應(yīng)用程序　 ?

“木馬”原指古希臘士兵藏在木馬內(nèi)進(jìn)入敵方城市從而占領(lǐng)敵方城市的故事。許多計算機(jī)用戶特別是新手對安全問題了解不多，所以并不知道自己的計算機(jī)中了“木馬”之后應(yīng)該如何清除。關(guān)鍵是得知道“木馬”的工作原理，在了解其原理之后，查殺木馬也就變得簡單易行了。?

1 木馬分類

（1）遠(yuǎn)程控制木馬。

遠(yuǎn)程控制木馬是數(shù)量最多，危害最大，同時知名度也最高的一種木馬，它可以讓攻擊者完全控制被感染的計算機(jī)，攻擊者可以利用它完成一些甚至連計算機(jī)主人本身都不能順利進(jìn)行的操作。

（2）密碼發(fā)送木馬。

密碼發(fā)送型的木馬是專門為了****被感染計算機(jī)上的密碼而編寫的，木馬一旦被執(zhí)行，就會自動搜索內(nèi)存，Cache，臨時文件夾以及各種敏感密碼文件，一旦搜索到有用的密碼，木馬就會利用免費(fèi)的電子郵件服務(wù)將密碼發(fā)送到指定的郵箱。

（3）鍵盤記錄木馬。

這種特洛伊木馬就是記錄受害者的鍵盤敲擊并且在LOG文件里查找密碼，隨著Windows的啟動而啟動。

（4）DoS攻擊木馬。

隨著DoS攻擊越來越廣泛的應(yīng)用，被用作DoS攻擊的木馬也越來越流行起來。當(dāng)你入侵了一臺機(jī)器，給他種上DoS攻擊木馬，那么日后這臺計算機(jī)就成為你DoS攻擊的最得力助手了。

（5）FTP木馬。

這種木馬可能是最簡單的木馬了，其歷史悠久，它的惟一功能就是打開21端口，等待用戶連接?，F(xiàn)在新FTP木馬還加上了密碼功能，這樣，只有攻擊者本人才知道正確的密碼，從而進(jìn)人用戶計算機(jī)。

（6）反彈端口型木馬。

反彈端口型木馬的服務(wù)端 (被控制端)使用主動端口，客戶端 (控制端)使用被動端口。木馬定時監(jiān)測控制端的存在，發(fā)現(xiàn)控制端上線立即彈出端口主動連結(jié)控制端打開的主動端口。?

2 木馬的工作原理

（1）木馬的隱藏。

下面是一個用vb編輯的木馬程序，用于隱藏木馬。

程序的具體編制操作

①新建一個工程名命名為Hidden, 在工程hidden中添加模塊Modulel，應(yīng)用程序標(biāo)題也改為Hidden。

在模塊Module1中加入如下聲明：

Public Declare Function GetCurrentProcessId Lib “kernel32”

‘獲得當(dāng)前進(jìn)程ID函數(shù)的聲明。

Public Declare Function RegisterServiceProcess Lib “kernel32”

‘在系統(tǒng)中注冊當(dāng)前進(jìn)程ID函數(shù)的聲明。

②在Project1中新建一個窗體Form1，設(shè)置Form1的屬性：

在代碼窗口添加如下代碼：

Private Declare Function GetDriveType Lib “kernel32” Alias “GetDriveTypeA”

獲得當(dāng)前驅(qū)動器信息函數(shù)的聲明：?

Private Sub Form_Load() ?

Dim drive_no As Long, drive_flag As Long ?

Dim drive_chr As String, drive_disk As String ?

Dim serial_no As Long, kkk As Long ?

Dim stemp3 As String, dflag As Boolean ?

Dim strlabel As String, strtype As String，strc As Long?

RegisterServiceProcess GetCurrentProcessId, 1 ‘ 從系統(tǒng)中取消當(dāng)前進(jìn)程：?

strlabel = String(255, Chr(0)) ?

strtype = String(255, Chr(0)) ?

stemp3 = “用戶c盤序列號” ‘用戶C盤的序列號(十進(jìn)制),讀者可根據(jù)自己情況給出。 ?

dflag = False ?

For drive_no = 0 To 25 ?

drive_disk = Chr(drive_no + 67) ?

drive_chr = drive_disk & “:/” ?

drive_flag = GetDriveType(drive_chr) ?

If drive_flag = 3 Then ?

kkk = GetVolumeInformation(drive_chr, strlabel, Len(strlabel), serial_no, 0, 0, strtype,Len(strtype)) ‘通過GetVolumeInformation獲得磁盤序列號： ?

Select Case drive_no ?

Case 0 ?

strc = serial_no ?

End Select ?

If serial_no = stemp3 Then ?

dflag = True ?

Exit For ?

End If ?

End If ?

Next drive_no ?

If drive_no = 26 And dflag = False Then ‘非法用戶 ?

GoTo err: ?

End If ?

MsgBox (“HI，合法用戶!”) ?

Exit Sub ?

err: ?

MsgBox (“錯誤!你的C：盤ID號是” & strc) ?

End Sub ?

Private Sub Form_Unload(Cancel As Integer) ?

RegisterServiceProcess GetCurrentProcessId, 0 ‘從系統(tǒng)中取消當(dāng)前程序的進(jìn)程： ?

End Sub?

(2)木馬的啟動。?

“木馬”的啟動方式有很多種，這里我們介紹幾種主要的：?

①在Win.ini的[windows]字段中有啟動命令“load=”和“run=”，在一般情況下 “=”后面是空白的，如果有后跟程序，比方說是這個樣子：?

run=c:/windows/file.exeload=c:/windows/file.exe?

②在system.ini文件中，在[BOOT]下面有個“shell=文件名”。正確的文件名應(yīng)該是“explorer.exe”，如果不是“explorer.exe”，而是“shell= explorer.exe 程序名”。?

③在注冊表中的情況最復(fù)雜，通過regedit命令打開注冊表編輯器，在點(diǎn)擊至：“HKEY-LOCAL-MACHINE/ Software/ Microsoft/ Windows/ CurrentVersion/ Run”目錄下，查看鍵值中有沒有自己不熟悉的自動啟動文件，擴(kuò)展名為EXE。?

參考文獻(xiàn)?

[1]?孫鋒. 網(wǎng)絡(luò)安全與防黑技術(shù)[M]. 北京：機(jī)械工業(yè)出版社，2004.?

[2]齊鋒. Visual Basic 6.0程序設(shè)計[M]. 北京：中國鐵道出版社，2003.