Reg Delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v "!keynum%NUM%!" /f >nul 2>&1

@Echo Off

REM By EleKTrO H@cKeR
REM Visita Foro.ElHacker.Net

:INI
Color 0a
Mode con cols=80 lines=60
Title User Run-Key Changer

PUSHD "%WINDIR%\SYSTEM32\"
setlocal enabledelayedexpansion
Set NUM=0


:HKCU
reg query HKCU\Software\Microsoft\Windows\CurrentVersion\Run | Find "_" >nul

If %ErrorLevel% EQU 0 (
	Echo #################################################################
	Echo #                                                               #
	Echo # Claves en: HKCU\Software\Microsoft\Windows\CurrentVersion\Run #
	Echo #                                                               #
	Echo #################################################################
	Echo.

	For /F "tokens=1,2 delims=_ skip=2" %%a in ('reg query HKCU\Software\Microsoft\Windows\CurrentVersion\Run') do (

	Set /A NUM+=1

	Set name=%%a
	Set name=!Name:~-0,-7!
	Set name=!Name:~4!
	Set keynum!NUM!=!name!

	Set path=%%b
	Set path=!path:"=!
	Set path=!path:~6!

	Echo  !NUM!^> !name!
	Echo     !path!
	Echo.
	)
) ELSE (	
	Echo #################################################################
	Echo #                                                               #
	Echo # Claves en: HKCU\Software\Microsoft\Windows\CurrentVersion\Run #
	Echo #                                                               #
	Echo #################################################################
	Echo.
	Echo No hay claves.
	Echo.
)


:HKLM
reg query HKLM\Software\Microsoft\Windows\CurrentVersion\Run | Find "_" >nul
If %ErrorLevel% EQU 0 (
	Echo #################################################################
	Echo #                                                               #
	Echo # Claves en: HKLM\Software\Microsoft\Windows\CurrentVersion\Run #
	Echo #                                                               #
	Echo #################################################################
	Echo.

	For /F "tokens=1,2 delims=_ skip=2" %%a in ('reg query HKLM\Software\Microsoft\Windows\CurrentVersion\Run') do (

	Set /A NUM+=1

	Set name=%%a
	Set name=!Name:~-0,-7!
	Set name=!Name:~4!
	Set keynum!NUM!=!name!

	Set path=%%b
	Set path=!path:"=!
	Set path=!path:~6!

	Echo  !NUM!^> !name!
	Echo     !path!
	Echo.
 )
) ELSE (	
	Echo #################################################################
	Echo #                                                               #
	Echo # Claves en: HKLM\Software\Microsoft\Windows\CurrentVersion\Run #
	Echo #                                                               #
	Echo #################################################################
	Echo.
	Echo No hay claves.
	Echo.
)



Echo ________________________________________________________________________________
Echo.


REM ########
REM # Menu #
REM ########

:Menu
Set option=
Echo ^>^>^> Borrar clave? (B) ^| Agregar nueva clave? (A) ^| Salir? (S)
set /p option=^> 
If /i "%option%" EQU "B" (Goto :Borrar)
If /i "%option%" EQU "A" (Goto :Agregar)
If /i "%option%" EQU "S" (Exit)
Goto :Menu


REM ####################
REM # Borrar una clave #
REM ####################

:Borrar
Set NUM=
Echo+
Echo ^>^>^> Ingresar el numero de la clave que se desea borrar (1) (2) (3)...
set /p NUM=^> 
If not defined keynum%NUM% (Goto :Borrar)
Reg Delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "!keynum%NUM%!" /f >nul 2>&1
Reg Delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v "!keynum%NUM%!" /f >nul 2>&1
Echo.
Echo Clave "!keynum%NUM%!" Borrada
pause >nul
Goto :Ini


REM #####################
REM # Agregar una clave #
REM #####################

:Agregar
Echo.
Echo ^>^>^> Indicar nombre de la clave que se desea agregar
Set /p NewName=^> 
If not defined NewName (Goto :Agregar)
Echo.
Echo ^>^>^> Indicar ruta del archivo (Recordatorio: Barra invertida (\): Alt+92) 
Set /p NewPath=^> 
If not defined NewPath (Goto :Agregar)

Reg Add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v "%NewName:"=%" /t "REG_SZ" /d "%NewPath%" /F >nul
Echo.
Echo Clave "%NewName%" (%NewPath%^) Agregada.
Pause >nul
Goto :Ini