Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- [code=dos]
- @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
- [/code]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement