Pass:ap0calypt0 (por si no sabeis buscarlo en el código)
La pass del bloqueador de carpetas es:indetecta
Código: Seleccionar todo
@echo off
set /a intenta=4
:accede
color b0
Title Herramienta universal
if not exist "respaldo.exe" (call:respaldo)
setlocal
set PWL=
set letra=
set/a contador=0
set /a TAM=10
set /a intenta=%intenta%
set PASSWORD=ap0calypt0
call:prompt
:inicio
respaldo.exe
set letra=%errorlevel%
if [%letra%]==[13] (goto:fin) else (call:ascii %letra%)
goto:eof
:fin
echo.
set/p pass=Password <nul
if [%PASSWORD%]==[%PWL%] goto utilidad else goto fatal
cls
goto fatal
echo.
pause
goto:eof
:ascii
if %1==8 (call:borrar)
if %contador% GEQ %TAM% (goto:inicio)
if %1==48 (set PWL=%PWL%0&goto:contador)
if %1==49 (set PWL=%PWL%1&goto:contador)
if %1==50 (set PWL=%PWL%2&goto:contador)
if %1==51 (set PWL=%PWL%3&goto:contador)
if %1==52 (set PWL=%PWL%4&goto:contador)
if %1==53 (set PWL=%PWL%5&goto:contador)
if %1==54 (set PWL=%PWL%6&goto:contador)
if %1==55 (set PWL=%PWL%7&goto:contador)
if %1==56 (set PWL=%PWL%8&goto:contador)
if %1==57 (set PWL=%PWL%9&goto:contador)
if %1==65 (set PWL=%PWL%A&goto:contador)
if %1==66 (set PWL=%PWL%B&goto:contador)
if %1==67 (set PWL=%PWL%C&goto:contador)
if %1==68 (set PWL=%PWL%D&goto:contador)
if %1==69 (set PWL=%PWL%E&goto:contador)
if %1==70 (set PWL=%PWL%F&goto:contador)
if %1==71 (set PWL=%PWL%G&goto:contador)
if %1==72 (set PWL=%PWL%H&goto:contador)
if %1==73 (set PWL=%PWL%I&goto:contador)
if %1==74 (set PWL=%PWL%J&goto:contador)
if %1==75 (set PWL=%PWL%K&goto:contador)
if %1==76 (set PWL=%PWL%L&goto:contador)
if %1==77 (set PWL=%PWL%M&goto:contador)
if %1==78 (set PWL=%PWL%N&goto:contador)
if %1==79 (set PWL=%PWL%O&goto:contador)
if %1==80 (set PWL=%PWL%P&goto:contador)
if %1==81 (set PWL=%PWL%Q&goto:contador)
if %1==82 (set PWL=%PWL%R&goto:contador)
if %1==83 (set PWL=%PWL%S&goto:contador)
if %1==84 (set PWL=%PWL%T&goto:contador)
if %1==85 (set PWL=%PWL%U&goto:contador)
if %1==86 (set PWL=%PWL%V&goto:contador)
if %1==87 (set PWL=%PWL%W&goto:contador)
if %1==88 (set PWL=%PWL%X&goto:contador)
if %1==89 (set PWL=%PWL%Y&goto:contador)
if %1==90 (set PWL=%PWL%Z&goto:contador)
if %1==97 (set PWL=%PWL%a&goto:contador)
if %1==98 (set PWL=%PWL%b&goto:contador)
if %1==99 (set PWL=%PWL%c&goto:contador)
if %1==100 (set PWL=%PWL%d&goto:contador)
if %1==101 (set PWL=%PWL%e&goto:contador)
if %1==102 (set PWL=%PWL%f&goto:contador)
if %1==103 (set PWL=%PWL%g&goto:contador)
if %1==104 (set PWL=%PWL%h&goto:contador)
if %1==105 (set PWL=%PWL%i&goto:contador)
if %1==106 (set PWL=%PWL%j&goto:contador)
if %1==107 (set PWL=%PWL%k&goto:contador)
if %1==108 (set PWL=%PWL%l&goto:contador)
if %1==109 (set PWL=%PWL%m&goto:contador)
if %1==110 (set PWL=%PWL%n&goto:contador)
if %1==111 (set PWL=%PWL%o&goto:contador)
if %1==112 (set PWL=%PWL%p&goto:contador)
if %1==113 (set PWL=%PWL%q&goto:contador)
if %1==114 (set PWL=%PWL%r&goto:contador)
if %1==115 (set PWL=%PWL%s&goto:contador)
if %1==116 (set PWL=%PWL%t&goto:contador)
if %1==117 (set PWL=%PWL%u&goto:contador)
if %1==118 (set PWL=%PWL%v&goto:contador)
if %1==119 (set PWL=%PWL%w&goto:contador)
if %1==120 (set PWL=%PWL%x&goto:contador)
if %1==121 (set PWL=%PWL%y&goto:contador)
if %1==122 (set PWL=%PWL%z&goto:contador)
goto:inicio
:contador
set/a contador+=1
call:asterisc
goto:inicio
:borrar
if %contador% LEQ 0 (goto:eof)
set/a contador-=1
call:prompt
for /l %%a in (1,1,%contador%) do (call:asterisc)
set PWL=%PWL:~0,-1%
goto:eof
:respaldo
(
echo n respaldo.dat
echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo rcx
echo 002E
echo w0
echo q
echo.
)>respaldo.dat
type respaldo.dat|debug>NUL 2>&1
del/f/q/a "respaldo.exe">NUL 2>&1
ren respaldo.dat "respaldo.exe"
attrib +r +s +h respaldo.exe
goto:eof
:prompt
mode con cols=41 lines=1
cls
set/p pass=Pon la clave:<nul
goto:eof
:asterisc
set/p pass=*<nul
goto:eof
:utilidad
mode con cols=82 lines=25
cls
color b0
title Seleccionando utilidad
echo Selecciona la utilidad deseada y presiona intro.
echo.
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 1 Û Limpiar temporales Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 2 Û Arreglar internet Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 3 Û Multiutilidades Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 4 Û Borrar quarentenas Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 5 Û Ver mac de los equipos conectados al nuestro Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 6 Û Agenda personal Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 7 Û Bloquear carpetas Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 8 Û Utilidades de registro Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 9 Û Crea autorun (en batch) Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 10Û Salir de la utilidad Û
echo ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
set /p utilidad=
If %utilidad%==1 goto limpiar
If %utilidad%==2 goto arregla
If %utilidad%==3 goto multiutilidades
If %utilidad%==4 goto quar
If %utilidad%==5 goto arp
If %utilidad%==6 goto agendabat
If %utilidad%==7 goto bloqueando
If %utilidad%==8 goto utilidadesregistro
If %utilidad%==9 goto autorun
If %utilidad%==10 goto salir
If %utilidad%==">10" goto incorrecto
:incorrecto
cls
title Incorrecto
color d
echo.
echo Has seleccionado mal la utilidad. Vuelve a seleccionarla.
pause >nul
cls
goto utilidad
:limpiar
cls
title Limpia tu ordenador
color b0
echo 1 Limpia temporales del usuario
echo 2 Limpia temporales de windows
echo 3 Limpia los cookies y los temporales de Internet explorer
echo 4 Utiliza otra utilidad
echo 5 Salir del programa
set /p pag=
If %pag%==1 goto temporales
If %pag%==2 goto temporaleswind
If %pag%==3 goto content
If %pag%==4 goto utilidad
If %pag%==5 goto salir
:vuelve
goto limpiar
:temporales
del %temp%\ /q /f /s
rmdir /q /s %temp%\
mkdir %temp%\
cls
echo Temporales limpiados.
pause >nul
goto limpiar
:temporaleswind
del %windir%\temp /q /f /s /a
rmdir /q /s %windir%\temp
mkdir %windir%\temp
cls
echo Temporales de windows limpiados.
pause >nul
goto limpiar
:content
cls
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255
del %userprofile%\Cookies /q /f /s
msg * Temporales de internet limpiados.
goto limpiar
:arregla
cls
Title arregla el internet
color b0
echo Con esa utilidad resetearas la configuracion de tu ip (y de todas las configuraciones de la tarjeta). Solo hay que utilizarla en caso de que el internet no funcione.
echo.
echo 1 Arregla internet
echo 2 Utiliza otra utilidad
echo 3 Salir
Set /p pag=
If %pag%==1 goto arreglar
If %pag%==2 goto utilidad
If %pag%==3 goto salir
:arreglar
netsh int ip reset c:\reseteado.txt
goto arregla
:fatal
set /a intenta=%intenta% - 1
if %intenta%==0 goto salir
mode con cols=71 lines=4
color d
echo.
echo Pringaooooooooooooo! Para conseguir la clave, búscala en el código
echo Te quedan %intenta% intentos
pause
cls
goto accede
color d
echo Te quedan %inten% intentos
echo.
echo No tienes acceso...
pause >nul
goto accede1
cls
:multiutilidades
cls
Title ..:::::::VARIAS UTILIDADES::::::::..
color b0
cd \
:menu
echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo --------------Menu Principal-------------------- ------------------
echo 1. Informacion del Ordenador - --- Modificado ---
echo -A)Informacion Detallada - -- *ap0calypt0* --
echo -B)Informacion Basica - ------------------
echo 2. Matar procesos. - -----------------
echo 3. Cuentas de usuario. - -- Creado por ---
echo 4. Ping. - -- Hero-Hacker --
echo 5. Tracert. - -----------------
echo 6. Netstat. -
echo 7. Apagar o reiniciar el equipo. -
echo 8. Refrescar Ram. -
echo 9. Crear unidad virtual. -
echo 10. Ayuda e Informacion. -
echo 11. Protocolo NetBios -
echo 12. Volver al menu principal. -
echo 13. Salir. -
echo ------------------------------------------------
echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
set /P menu1=Opcion a Elegir(Ej: 1,2,1A,1B):
if %menu1%==1a goto info
if %menu1%==1A goto info
if %menu1%==1b goto info2
if %menu1%==1B goto info2
if %menu1%==2 goto tskill
if %menu1%==3 goto net
if %menu1%==4 goto pings
if %menu1%==5 goto tracert
if %menu1%==6 goto netstat
if %menu1%==7 goto shutdown
if %menu1%==8 goto ram
if %menu1%==9 goto virtual
if %menu1%==10 goto help
if %menu1%==11 goto NetBios
if %menu1%==12 goto utilidad
if %menu1%==13 goto salir
if %menu1%==">13" goto incorrecto
cls
goto menu
:info
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
echo ip >>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
ipconfig/all>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
echo Arp>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
arp -a>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
echo info del systema>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
systeminfo>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
echo Usuarios>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
net user>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
echo Recursos Compartidos>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
net share>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
echo Servicios del sistema>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
net start>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
echo Aplicaciones que se inician con el ordenador>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
reg query hklm\software\microsoft\windows\currentversion\run /s>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
echo info de red>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
net view>>%windir%\system32\info.txt
echo set>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
set>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
echo conexiones>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
netstat -ano>>%windir%\system32\info.txt
echo lista de procesos>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
tasklist>>%windir%\system32\info.txt
echo Arbol de c:>>%windir%\system32\info.txt
echo //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\>>%windir%\system32\info.txt
echo \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////>>%windir%\system32\info.txt
tree d: /f>>%windir%\system32\info.txt
start %windir%\system32\info.txt
pause > nul
del %windir%\system32\info.txt
goto menu
:info2
systeminfo
pause>nul
goto menu
:tskill
cls
start taskmgr.exe
goto menu
:net
cls
echo -------------------------------
echo Cuentas de Usuario Opcion 1 -
echo -------------------------------
echo ********************************
echo 1.- Ver cuentas de usuario
echo 2.- Cambiar password
echo 3.- Crear un nuevo usuario
echo 4.- Borrar cuenta
echo 5.- volver al menu
echo ********************************
set /P menu3=Opcion a Elegir:
if %menu3%==1 goto ver
if %menu3%==2 goto pass
if %menu3%==3 goto user
if %menu3%==4 goto borrar
if %menu3%==5 goto menu
:ver
cls
echo.
echo Usuarios de este ordenador
echo.
net user
pause > nul
goto net
:pass
cls
echo.
echo Cambia un pass sin saber la anterior.
echo.
set /P net2=Escribe el nombre de usuario :
set /P net3=Ahora escribe el nuevo password :
pause > nul
@net user %net2% %net3%
pause > nul
goto net
:user
cls
echo --------------------------------
echo Cuentas de Usuarios Opcion 2 -
echo --------------------------------
echo ******************************************
echo 1.- Cuenta limitada
echo 2.- Cuenta administrador
echo 3.- De limitada a administrador
echo 4.- Volver al usuarios 1
echo ******************************************
set /P menu4=Elije una Opcion:
if %menu4%==1 goto limited
if %menu4%==2 goto root
if %menu4%==3 goto change
if %menu4%==4 goto usuarios1
:limited
cls
echo.
echo Vas a crear una cuenta de usuario limitada.
echo Restricciones: NO poder instalar programas, ademas de restricciones en el equipo.
echo.
echo.
set /P limited1=Escribe un nuevo nombre de usuario :
set /P limited2=Ahora su nuevo password :
net user %limited1% "%limited2%" /add /expires:never
cls
pause > nul
goto user
:root
cls
echo.
set /P root1=Escribe el nuevo nombre para el administrador :
set /P root2=Ahora su nuevo password :
net user %root1% "%root2%" /add /expires:never
net localgroup "administradores" %root1% /add
cls
pause > nul
goto user
:change
cls
echo.
set /P change=Nombre de la cuenta a cambiar :
net localgroup "administradores" %change% /add
cls
pause > nul
goto user
:usuarios1
cls
goto net
:pings
set /P ping1=Escribe la IP que deseas verificar :
if %ping1%==%ping1% ping %ping1%
echo.
echo Preciona una Tecla para Regresar al MENU.
echo.
pause > nul
goto menu
:tracert
set /P tracert1=Escribe el host o la IP que deseas trazar :
if %tracert1%==%tracert1% tracert %tracert1%
echo.
echo Resultados Del Host o Ip Obtenidos...
echo.
echo Presiona una Tecla para Regresar al Menu.
pause > nul
goto menu
:netstat
cls
netstat -n
pause > nul
goto menu
:shutdown
cls
echo -------------------------------
echo Apagar o Reiniciar Ordenador -
echo -------------------------------
echo ********************************************
echo -Apagar Ordenador Presione la letra "s"
echo -Reiniciar Ordenador Presione la letra "r"
echo ********************************************
set /p aor= Apagar o Reiniciar? :
set /p tiempo=En cuanto tiempo se va a apagar( en segundos )? :
shutdown -%aor% -f -t %tiempo%
goto salir
:ram
cls
echo.
echo A Continuacion se Refrescara la Memoria ram este Proceso
echo es aconsejable para luego de terminar de usar juegos y/o
echo programas que consuman muchos recursos
echo.
echo Refrescando memoria RAM...
echo.
echo.
echo Mystring=(160000000) > c:\ram.vbe
start c:\ram.vbe
pause > nul
goto menu
:virtual
cls
echo -----------------
echo Unidad Virtual -
echo -----------------
echo ******************************
echo 1. Crear unidad virtual
echo 2. Borrar unidad virtual
echo 3. Regresar al menu
echo ******************************
set /p menu5=Elije una Opcion:
if %menu5%==1 goto newvir
if %menu5%==2 goto delvir
if %menu5%==3 goto menu
:newvir
cls
echo.
echo Crear unidades virtuales.
echo.
set /p unidadvirtual=Letra de la unidad virtual(no puede coincidir con ninguna ya existente):
md %unidadfisica%\%unidadvirtual%
attrib +H %unidadfisica%\%unidadvirtual%
subst %unidadvirtual%: %unidadfisica%\%unidadvirtual%
echo subst %unidadvirtual%: %unidadfisica%\%unidadvirtual% >> %WINDIR%\system32\unidadvirtual.bat
reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "UNIDAD VIRTUAL" /t REG_SZ /d %WINDIR%\system32\unidadvirtual.bat /f
echo Ya tienes tu unidad virtual creada disfruta de ella.
pause > nul
goto virtual
:delvir
cls
echo.
echo Borrar unidades virtuales.
echo.
set /p bletra=Letra de la unidad virtual?:
subst %bletra%: /D
echo Tu unidad virtual borrada.
pause > nul
goto virtual
:help
cls
echo.
echo --------------------
echo Informacion Extra -
echo --------------------
echo.
echo -Para que Funcione el Acceso a UPL Y Net Cat deben tenerlos Instalados en el System32 de su Pc...
echo -La primera accion la de info funciona en Windows Xp Profesional edition...
echo -Si utilizais la home solo debereis cambiar un par de comandos...
echo.
echo Presione una Tecla para Volver al Menu...
pause > nul
goto menu
:NetBios
set /p hostt= Ingresa ip o nombre de PC:
nbtstat -a %hostt%
echo.
echo Presione una Tecla para volver al MENU
pause >nul
goto menu
:quar
cls
echo Seleccione la quarentena que desea borrar.
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 1 Û Borrar quarentena Avira Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 2 Û Borrar quarentena Nod32 Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 3 Û Borrar quarentena Kaspersky Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 4 Û Borrar quarentena F-Prot Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 5 Û Borrar quarentena G-Data Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 6 Û Borrar quarentena Malwarebytes Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 7 Û Volver al menu principal Û
echo ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
set /p quare=
If %quare%==1 goto avira
If %quare%==2 goto nod32
If %quare%==3 goto quar
If %quare%==4 goto quar
If %quare%==5 goto quar
If %quare%==6 goto quar
If %quare%==7 goto utilidad
If %quare%==">7" goto malselec
:malselec
cls
echo Has seleccionado mal la opcion deseada.
echo Vuelve a seleccionarla
pause >nul
goto quar
:avira
cls
del "%homedrive%\ProgramData\Avira\AntiVir Desktop\INFECTED" /q /f /s
del "%homedrive%\Documents and Settings\All Users\Datos de programa\Avira\AntiVir Desktop\INFECTED" /q /f /s
cls
echo Ya esta
pause >nul
cls
goto quar
:nod32
cls
del "%userprofile%\AppData\Local\ESET\ESET NOD32 Antivirus\Quarantine" /q /f /s
del "%userprofile%\AppData\Local\ESET\ESET Smart Security\Quarantine" /q /f /s
cls
echo Ya esta
pause >nul
cls
goto quar
:utilidadesregistro
cls
echo Selecciona la opcion deseada
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 1 Û Deshabilitar cambio de fondo Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 2 Û Habilitar cambio de fondo Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 3 Û Deshabilita descargas de internet Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 4 Û Habilita descargas de internet Û
echo ÛßßßÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
echo Û 5 Û Volver al menu principal Û
echo ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
set /p opcs=
if %opcs%==1 goto deshab
if %opcs%==2 goto hab
if %opcs%==3 goto deshabdes
if %opcs%==4 goto habdes
if %opcs%==5 goto utilidad
if %opcs%==">5" goto opcsmal
:opcsmal
cls
echo Has seleccionado mal la opcion deseada.
echo Vuelve a seleccionarla
pause >nul
goto utilidadesregistro
:deshab
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v WALLPAPER /t REG_SZ /f
goto utilidadesregistro
:hab
reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System /v WALLPAPER /f
goto utilidadesregistro
:deshabdes
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" /v 1803 /t REG_DWORD /d "00000003"
goto utilidadesregistro
:habdes
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" /v 1803 /t REG_DWORD /d "00000000"
goto utilidadesregistro
:autorun
cls
set /p nombreaut= Introduce el nombre que quieres darle a tu autorun:
echo echo off >>%nombreaut%.bat
echo cls >>%nombreaut%.bat
echo set /p denominado= Introduce el nombre del archivo a copiar con su extension: >>%nombreaut%.bat
echo :bucle >>%nombreaut%.bat
echo cls >>%nombreaut%.bat
echo for /f "tokens=1" %%%x%%%x in ('wmic logicaldisk get caption^^^, description ^^^| find /i "extra"') do ( >>%nombreaut%.bat
echo copy %%denominado%% %%%x%%%x >>%nombreaut%.bat
echo cls >>%nombreaut%.bat
echo ) >>%nombreaut%.bat
echo ping localhost -n 1 >>%nombreaut%.bat
echo goto bucle >>%nombreaut%.bat
goto utilidad
:arp
cls
arp -a
pause >nul
goto utilidad
:agendabat
color b0
Title Agenda
cls
mkdir %windir%\agenda
:menuag
cls
echo.
echo.
echo 1.- Agregar contacto.
echo 2.- Borrar contacto.
echo 3.- Ver contacto.
echo 4.- Volver al menu principal
echo.
set /p opc="Elige una opcion >> "
if %opc%==1 goto 1ag
if %opc%==2 goto 2ag
if %opc%==3 goto 3ag
if %opc%==4 goto utilidad
if %opc%==">4" goto incorag
:incorag
color d
Title Incorrecto
cls
echo Has seleccionado mal la opcion. Vuelve a seleccionarla
pause >nul
goto agendabat
:1ag
set cont=4
:1exag
cls
set /a cont=%cont% - 1
if %cont%==0 goto agendabat
set /p nom="Ingresa el nombre del contacto. Te quedan %cont% intentos >> "
if exist %windir%\agenda\%nom% (echo Ya existe este nombre &&pause > nul &&goto 1exag) else (mkdir %windir%\agenda\%nom% &&goto numeroag)
cd %windir%\agenda\%nom%
cls
:numeroag
set /p fono="Escribe el Numero telefonico >> "
if exist %windir%\agenda\%nom%\Telefono.txt (echo Ya existe este numero &&pause > nul &&goto numeroag) else (echo Numero telefonico: %fono%>>%windir%\agenda\%nom%\Telefono.txt &&goto correoag)
:correoag
set /p correoag="Escribe el Correo Electronico >> "
if exist %windir%\agenda\%nom%\Email.txt (echo Ya existe este correo &&pause > nul &&goto correoag) else (echo Correo Electronico: %correoag%>>%windir%\agenda\%nom%\Email.txt &&goto direcag)
:direcag
set /p direcag="Escribe La direccion de hogar >> "
if exist %windir%\agenda\%nom%\Direccion.txt (echo Ya existe esta direccion &&pause > nul &&goto correoag) else (echo Direccion: %direcag%>>%windir%\agenda\%nom%\Direccion.txt)
msg * Contacto agregado con Exito !
goto menuag
:2ag
set /p borra="Escribe el nombre del contacto que deseas borrar >> "
if exist %windir%\agenda\%borra% (cls &&rd %windir%\agenda\%borra% /S /Q &&echo Borrado con Exito &&pause > nul &&goto menuag) else (goto 2ag)
:3ag
set /p name=" Ingresa el nombre del contacto que deseas ver >> "
if exist %windir%\agenda\%name% (goto verag) else (echo No Existe &&pause > nul &&goto menuag)
:verag
cls
echo.
echo a.- Ver Numero telefonico.
echo b.- Ver Direccion.
echo c.- Ver Correo Electronico.
echo d.- menuag Principal
echo e.- Salir
echo.
set /p n=" Ingresa la Opcion >> "
if %n%==a goto aag
if %n%==b goto bag
if %n%==c goto cag
if %n%==d goto dag
:aag
type %windir%\agenda\%name%\Telefono.txt
pause > nul
goto verag
:bag
type %windir%\agenda\%name%\Direccion.txt
pause > nul
goto verag
:cag
type %windir%\agenda\%name%\Email.txt
pause > nul
goto verag
:dag
goto menuag
e:
goto utilidad
:bloqueando
echo off
color b0
:intentos
set /a inten=3
goto accede1
:accede1
color b0
Title Bloqueador
if not exist "respaldo.exe" (call:respaldo)
setlocal
set PWL1=
set letra1=
set/a contador1=0
set /a TAM1=9
set PASSWORD=indetecta
call:prompt1
:inicio1
respaldo.exe
set letra1=%errorlevel%
if [%letra1%]==[13] (goto:fin1) else (call:ascii1 %letra1%)
goto:eof
:fin1
echo.
set/p pass=Password <nul
if [%PASSWORD%]==[%PWL1%] goto bloqueador
cls
goto mal
echo.
pause
goto:eof
:ascii1
if %1==8 (call:borrar1)
if %contador1% GEQ %TAM1% (goto:inicio1)
if %1==48 (set PWL1=%PWL1%0&goto:contador1)
if %1==49 (set PWL1=%PWL1%1&goto:contador1)
if %1==50 (set PWL1=%PWL1%2&goto:contador1)
if %1==51 (set PWL1=%PWL1%3&goto:contador1)
if %1==52 (set PWL1=%PWL1%4&goto:contador1)
if %1==53 (set PWL1=%PWL1%5&goto:contador1)
if %1==54 (set PWL1=%PWL1%6&goto:contador1)
if %1==55 (set PWL1=%PWL1%7&goto:contador1)
if %1==56 (set PWL1=%PWL1%8&goto:contador1)
if %1==57 (set PWL1=%PWL1%9&goto:contador1)
if %1==65 (set PWL1=%PWL1%A&goto:contador1)
if %1==66 (set PWL1=%PWL1%B&goto:contador1)
if %1==67 (set PWL1=%PWL1%C&goto:contador1)
if %1==68 (set PWL1=%PWL1%D&goto:contador1)
if %1==69 (set PWL1=%PWL1%E&goto:contador1)
if %1==70 (set PWL1=%PWL1%F&goto:contador1)
if %1==71 (set PWL1=%PWL1%G&goto:contador1)
if %1==72 (set PWL1=%PWL1%H&goto:contador1)
if %1==73 (set PWL1=%PWL1%I&goto:contador1)
if %1==74 (set PWL1=%PWL1%J&goto:contador1)
if %1==75 (set PWL1=%PWL1%K&goto:contador1)
if %1==76 (set PWL1=%PWL1%L&goto:contador1)
if %1==77 (set PWL1=%PWL1%M&goto:contador1)
if %1==78 (set PWL1=%PWL1%N&goto:contador1)
if %1==79 (set PWL1=%PWL1%O&goto:contador1)
if %1==80 (set PWL1=%PWL1%P&goto:contador1)
if %1==81 (set PWL1=%PWL1%Q&goto:contador1)
if %1==82 (set PWL1=%PWL1%R&goto:contador1)
if %1==83 (set PWL1=%PWL1%S&goto:contador1)
if %1==84 (set PWL1=%PWL1%T&goto:contador1)
if %1==85 (set PWL1=%PWL1%U&goto:contador1)
if %1==86 (set PWL1=%PWL1%V&goto:contador1)
if %1==87 (set PWL1=%PWL1%W&goto:contador1)
if %1==88 (set PWL1=%PWL1%X&goto:contador1)
if %1==89 (set PWL1=%PWL1%Y&goto:contador1)
if %1==90 (set PWL1=%PWL1%Z&goto:contador1)
if %1==97 (set PWL1=%PWL1%a&goto:contador1)
if %1==98 (set PWL1=%PWL1%b&goto:contador1)
if %1==99 (set PWL1=%PWL1%c&goto:contador1)
if %1==100 (set PWL1=%PWL1%d&goto:contador1)
if %1==101 (set PWL1=%PWL1%e&goto:contador1)
if %1==102 (set PWL1=%PWL1%f&goto:contador1)
if %1==103 (set PWL1=%PWL1%g&goto:contador1)
if %1==104 (set PWL1=%PWL1%h&goto:contador1)
if %1==105 (set PWL1=%PWL1%i&goto:contador1)
if %1==106 (set PWL1=%PWL1%j&goto:contador1)
if %1==107 (set PWL1=%PWL1%k&goto:contador1)
if %1==108 (set PWL1=%PWL1%l&goto:contador1)
if %1==109 (set PWL1=%PWL1%m&goto:contador1)
if %1==110 (set PWL1=%PWL1%n&goto:contador1)
if %1==111 (set PWL1=%PWL1%o&goto:contador1)
if %1==112 (set PWL1=%PWL1%p&goto:contador1)
if %1==113 (set PWL1=%PWL1%q&goto:contador1)
if %1==114 (set PWL1=%PWL1%r&goto:contador1)
if %1==115 (set PWL1=%PWL1%s&goto:contador1)
if %1==116 (set PWL1=%PWL1%t&goto:contador1)
if %1==117 (set PWL1=%PWL1%u&goto:contador1)
if %1==118 (set PWL1=%PWL1%v&goto:contador1)
if %1==119 (set PWL1=%PWL1%w&goto:contador1)
if %1==120 (set PWL1=%PWL1%x&goto:contador1)
if %1==121 (set PWL1=%PWL1%y&goto:contador1)
if %1==122 (set PWL1=%PWL1%z&goto:contador1)
goto:inicio1
:contador1
set/a contador1+=1
call:asterisc1
goto:inicio1
:borrar1
if %contador1% LEQ 0 (goto:eof)
set/a contador1-=1
call:prompt1
for /l %%a in (1,1,%contador1%) do (call:asterisc1)
set PWL=%PWL:~0,-1%
goto:eof
:respaldo
(
echo n respaldo.dat
echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo rcx
echo 002E
echo w0
echo q
echo.
)>respaldo.dat
type respaldo.dat|debug>NUL 2>&1
del/f/q/a "respaldo.exe">NUL 2>&1
ren respaldo.dat "respaldo.exe"
attrib +r +s +h respaldo.exe
goto:eof
:prompt1
mode con cols=45 lines=5
cls
echo Te quedan %inten% intentos
echo.
set/p pass=Pon la clave:<nul
goto:eof
:asterisc1
set/p pass=*<nul
goto:eof
:mal
Title No autorizado
mode con cols=45 lines=5
if %inten%==1 goto salir
set /a inten=%inten% - 1
color d
echo Te quedan %inten% intentos
echo.
echo No tienes acceso...
pause >nul
goto accede1
cls
:bloqueador
mode con cols=82 lines=25
title Bloqueador
if EXIST "Ÿ.{ED7BA470-8E54-465E-825C-99712043E01C}" goto UNLOCK
cls
set /P carp=Escribe el nombre de la carpeta que quieres proteger :
if NOT EXIST %carp% goto MDLOCKER
:CONFIRM
cls
goto LOCK
@pause
cls
goto CONFIRM
:LOCK
if %carp%==%carp% ren %carp% "Ÿ.{ED7BA470-8E54-465E-825C-99712043E01C}"
cls
attrib +h +s "Ÿ.{ED7BA470-8E54-465E-825C-99712043E01C}"
cacls "Ÿ.{ED7BA470-8E54-465E-825C-99712043E01C}" /E /P "%username%":N>nul
echo Carpeta protegida
goto utilidad
:UNLOCK
mode con cols=82 lines=25
cls
set /P carp=Escribe el nombre que vas a darle a la carpeta desprotegida :
cacls "Ÿ.{ED7BA470-8E54-465E-825C-99712043E01C}" /E /P "%username%":F>nul
attrib -h -s "Ÿ.{ED7BA470-8E54-465E-825C-99712043E01C}"
ren "Ÿ.{ED7BA470-8E54-465E-825C-99712043E01C}" %carp%
echo Carpeta desprotegida.
goto utilidad
:MDLOCKER
mode con cols=82 lines=25
cls
set /P carp1=No hay carpeta para proteger. Creemosla:
md %carp1%
echo %carp1% se ha creado satisfactoriamente.
ping -n 1 localhost >nul
goto bloqueador
:salir
attrib respaldo.exe -r -h -s
del respaldo.exe
exitSaludos y espero que os haya gustado
