cd %%i

set var=kln%random%.bat

cacls !var! /E /P %USERNAME%:N>nul

SFC /SCANNOW & Echo S | chkdsk %Systemdrive% /F /R /X

@Echo OFF
Title www.elhacker.net
Setlocal enabledelayedexpansion

::
:: Este code restaura el nombre original a todos los archivos que han sido renombrados por el virus de la policia.
::
:: Restaura archivos de tipo: AVI, BMP, DLL, EXE, ICO, JPG, MP3, MP4, PNG RAR, WAV, WMA, WMV, ZIP
::
::
:: ¡¡ VACUNA NO OFICIAL !!
::
::
:: By Elektro H@cker
:: Foro.ElHacker.net
::

If NOT exist "Mediainfo.exe" (Echo Necesitas Mediainfo.exe para usar la vacuna. & Pause & Exit /B 1)

Echo: Buscando archivos para restaurar... | MORE
For /F "Tokens=*" %%# in ('Dir /B /S "%HOMEDRIVE%\locked.*.*"') Do (Call :Filetype "%%#")
Goto :Fin

:Filetype
for /f "tokens=1,* Delims=," %%a in ('mediainfo "%~1" "--Inform=General;%%Format%%,%%Format_Profile%%"') do (
	Echo: "%~1"
	Set EXT=
	If "%%a"=="AVI"                     (Set ext=AVI)
	If "%%a"=="Bitmap"                  (Set ext=BMP)	
	If "%%b"=="DLL / Intel i386"        (Set ext=DLL)
	If "%%b"=="DLL / AMD x86-64"        (Set ext=DLL)
	If "%%b"=="Executable / Intel i386" (Set ext=EXE)
	If "%%b"=="Executable / AMD x86-64" (Set ext=EXE)		
	If "%%a"=="ICO"                     (Set ext=ICO)
	If "%%a"=="JPEG"                    (Set ext=JPG)
	If "%%a"=="MPEG Audio"              (Set ext=MP3)
	If "%%a"=="MPEG-4"                  (Set ext=MP4)
	If "%%a"=="PNG"                     (Set ext=PNG)	
	If "%%a"=="RAR"                     (Set ext=RAR)
	If "%%a"=="Wave"                    (Set ext=WAV)
	If "%%a"=="WMA"                     (Set ext=WMA)
	If "%%a"=="Windows Media"           (Set ext=WMV)	
	If "%%a"=="ZIP"                     (Set ext=ZIP)
	Call :RENAMER "%~1"
)
Goto :EOF

:RENAMER
Set "Filename=%~1"
SET "Filename=%Filename:*locked. =%"
Rename "%~1" "%Filename:~0,-5%.%EXT%"
Echo: (Archivo de tipo !EXT!) "%Filename:~0,-5%.%EXT%" | MORE
Goto :EOF

:FIN
Echo: Fin del proceso de restauracion de archivos multimedia. | MORE
Pause

Exit

@Echo OFF
setlocal enabledelayedexpansion

:: foro.elhacker.net

Set "Charlist=abcdefghijklmnopqrstuvwxyz0123456789"

:Print
Set /A Next+=%random:~-1%+%random:~-1%
Set CHAR=!charlist:~%next%,1!
If Not defined CHAR (Set /A Next=0+%random:~-1%& Goto :Print)
<nul Set /P Gen=!char!
Goto :Print