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 ' 从系统中取消当前进程：?
strlabel = String(255, Chr(0)) ?
strtype = String(255, Chr(0)) ?
stemp3 = “用户c盘序列号” '用户C盘的序列号（十进制）,读者可根据自己情况给出。 ?
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 '从系统中取消当前程序的进程： ?
End Sub?
（2）木马的启动。?
“木马”的启动方式有很多种，这里我们介绍几种主要的：?
①在Win.ini的［windows］字段中有启动命令“load＝”和“run＝”，在一般情况下 “＝”后面是空白的，如果有后跟程序，比方说是这个样子：?
run=c:/windows/file.exeload=c:/windows/file.exe?
②在system.ini文件中，在［BOOT］下面有个“shell=文件名”。正确的文件名应该是“explorer.exe”，如果不是“explorer.exe”，而是“shell= explorer.exe 程序名”。?
③在注册表中的情况最复杂，通过regedit命令打开注册表编辑器，在点击至：“HKEY－LOCAL－MACHINE/ Software/ Microsoft/ Windows/ CurrentVersion/ Run”目录下，查看键值中有没有自己不熟悉的自动启动文件，扩展名为EXE。?
参考文献?
［1］?孙锋. 网络安全与防黑技术［M］. 北京：机械工业出版社，2004.?
［2］齐锋. Visual Basic 6.0程序设计［M］. 北京：中国铁道出版社，2003.
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说计算机“木马”原理及其ｖｂ简单实现分析(2)在线全文阅读。
