ruser un-key viewer

@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 Viewer

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