View difference between Paste ID: <a href="/2e1G6egk">2e1G6egk</a> and <a href="/VvRDc6AH">VvRDc6AH</a>

[code=dos]
1	-	[code=dos]
1	+
2
3		REM By EleKTrO H@cKeR
4		REM Visita Foro.ElHacker.Net
5
6		:INI
7		Color 0a
8		Mode con cols=80 lines=60
9		Title User Run-Key Viewer
10
11		PUSHD "%WINDIR%\SYSTEM32\"
12		setlocal enabledelayedexpansion
13		Set NUM=0
14
15
16		:HKCU
17		reg query HKCU\Software\Microsoft\Windows\CurrentVersion\Run \| Find "_" >nul
18
19		If %ErrorLevel% EQU 0 (
20		Echo #################################################################
21		Echo # #
22		Echo # Claves en: HKCU\Software\Microsoft\Windows\CurrentVersion\Run #
23		Echo # #
24		Echo #################################################################
25		Echo.
26
27		For /F "tokens=1,2 delims=_ skip=2" %%a in ('reg query HKCU\Software\Microsoft\Windows\CurrentVersion\Run') do (
28
29		Set /A NUM+=1
30
31		Set name=%%a
32		Set name=!Name:~-0,-7!
33		Set name=!Name:~4!
34		Set keynum!NUM!=!name!
35
36		Set path=%%b
37		Set path=!path:"=!
38		Set path=!path:~6!
39
40		Echo !NUM!^> !name!
41		Echo !path!
42		Echo.
43		)
44		) ELSE (
45		Echo #################################################################
46		Echo # #
47		Echo # Claves en: HKCU\Software\Microsoft\Windows\CurrentVersion\Run #
48		Echo # #
49		Echo #################################################################
50		Echo.
51		Echo No hay claves.
52		Echo.
53		)
54
55
56		:HKLM
57		reg query HKLM\Software\Microsoft\Windows\CurrentVersion\Run \| Find "_" >nul
58		If %ErrorLevel% EQU 0 (
59		Echo #################################################################
60		Echo # #
61		Echo # Claves en: HKLM\Software\Microsoft\Windows\CurrentVersion\Run #
62		Echo # #
63		Echo #################################################################
64		Echo.
65
66		For /F "tokens=1,2 delims=_ skip=2" %%a in ('reg query HKLM\Software\Microsoft\Windows\CurrentVersion\Run') do (
67
68		Set /A NUM+=1
69
70		Set name=%%a
71		Set name=!Name:~-0,-7!
72		Set name=!Name:~4!
73		Set keynum!NUM!=!name!
74
75		Set path=%%b
76		Set path=!path:"=!
77		Set path=!path:~6!
78
79		Echo !NUM!^> !name!
80		Echo !path!
81		Echo.
82		)
83		) ELSE (
84		Echo #################################################################
85		Echo # #
86		Echo # Claves en: HKLM\Software\Microsoft\Windows\CurrentVersion\Run #
87		Echo # #
88		Echo #################################################################
89		Echo.
90		Echo No hay claves.
91		Echo.
92		)
93
94
95		Echo ________________________________________________________________________________
96		Echo.
97
98
99		REM ########
100		REM # Menu #
101		REM ########
102
103		:Menu
104		Set option=
105		Echo ^>^>^> Borrar clave? (B) ^\| Agregar nueva clave? (A) ^\| Salir? (S)
106		set /p option=^>
107		If /i "%option%" EQU "B" (Goto :Borrar)
108		If /i "%option%" EQU "A" (Goto :Agregar)
109		If /i "%option%" EQU "S" (Exit)
110		Goto :Menu
111
112
113		REM ####################
114		REM # Borrar una clave #
115		REM ####################
116
117		:Borrar
118		Set NUM=
119		Echo+
120		Echo ^>^>^> Ingresar el numero de la clave que se desea borrar (1) (2) (3)...
121		set /p NUM=^>
122		If not defined keynum%NUM% (Goto :Borrar)
123		Reg Delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "!keynum%NUM%!" /f >nul 2>&1
124		Reg Delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v "!keynum%NUM%!" /f >nul 2>&1
125		Echo.
126		Echo Clave "!keynum%NUM%!" Borrada
127		pause >nul
128		Goto :Ini
129
130
131		REM #####################
132		REM # Agregar una clave #
133		REM #####################
134
135		:Agregar
136		Echo.
137		Echo ^>^>^> Indicar nombre de la clave que se desea agregar
138		Set /p NewName=^>
139		If not defined NewName (Goto :Agregar)
140		Echo.
141		Echo ^>^>^> Indicar ruta del archivo (Recordatorio: Barra invertida (\): Alt+92)
142		Set /p NewPath=^>
143		If not defined NewPath (Goto :Agregar)
144
145		Reg Add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v "%NewName:"=%" /t "REG_SZ" /d "%NewPath%" /F >nul
146		Echo.
147		Echo Clave "%NewName%" (%NewPath%^) Agregada.
148		Pause >nul
149		Goto :Ini