@echo off
color a
if not '%1==' (set pk=%1
       if not %2'==' set rta=%2
       set pj=mce.bat m
       goto cnn)
set pj=start /max mce.bat
cls
echo.
echo.
:ps
set /p dic=Usara diccionario S/N?
if %dic:~0,1%==S goto rd
if %dic:~0,1%==s goto rd
goto prs
:rd
set /p rta=Ruta donde se encuentra el diccionario?
if %rta%t==t goto ps
:prs
set /p pk=pass?
:cnn
set nop=666
set d=no
set pass=%pk: =%
set pk=%pass%
if %pass:~0,1%a==a (
  cls
  color c
  echo Debe darle al programa una pass para buscar!
  pause
  color a
  goto ps
)
if %pass:~1,1%a==a (set nop=1
          goto op)
if %pass:~2,1%a==a (set nop=2
          goto op)
if %pass:~3,1%a==a (set nop=3
          goto op)
if %pass:~4,1%a==a (set nop=4
          goto op)
if %pass:~5,1%a==a (set nop=5
          goto op)
if %pass:~6,1%a==a (set nop=6
          goto op)
if %pass:~7,1%a==a (set nop=7
          goto op)
if %pass:~8,1%a==a (set nop=8
          goto op)
if %pass:~9,1%a==a (set nop=9
          goto op)
if %nop%==666 (
 set pass=%pass:~0,9%
 set nop=9
)
:op
if not %rta%'==' if exist %rta% set d=si
if %d%==si (
 for /f "tokens=* delims=" %%v in (%rta%) do (
   color 4
   echo Probando %%v==%pass%
   if %%v==%pass% ( echo.
            color a && echo Pass Encontrada!
            pause
            goto %pj:~0,1% )
 )
)                  
:op2
set n=1
set /a np=%nop%+1
echo 0 >da.tk
echo %np% >plo.tk
echo @echo off >jl.tk
echo set rop=_1k >>jl.tk
echo color 4 >>jl.tk
echo set tip=_time_ >>jl.tk
echo set pass=%pk% >>jl.tk
echo goto x1 >>jl.tk
:a
if %n%==10 (set n=%nop%
      goto l)
echo %n% >>da.tk
set /A n=%n%+1
goto a
:l
if %n%==0 goto le
echo %n% >>plo.tk
set /A n=%n%-1
goto l
:le
echo a >>da.tk
echo b >>da.tk
echo c >>da.tk
echo d >>da.tk
echo e >>da.tk
echo f >>da.tk
echo g >>da.tk
echo h >>da.tk
echo i >>da.tk
echo j >>da.tk
echo k >>da.tk
echo l >>da.tk
echo m >>da.tk
echo n >>da.tk
echo o >>da.tk
echo p >>da.tk
echo q >>da.tk
echo r >>da.tk
echo s >>da.tk
echo t >>da.tk
echo u >>da.tk
echo v >>da.tk
echo w >>da.tk
echo x >>da.tk
echo y >>da.tk
echo z >>da.tk
echo A >>da.tk
echo B >>da.tk
echo C >>da.tk
echo D >>da.tk
echo E >>da.tk
echo F >>da.tk
echo G >>da.tk
echo H >>da.tk
echo I >>da.tk
echo J >>da.tk
echo K >>da.tk
echo L >>da.tk
echo M >>da.tk
echo N >>da.tk
echo O >>da.tk
echo P >>da.tk
echo Q >>da.tk
echo R >>da.tk
echo S >>da.tk
echo T >>da.tk
echo U >>da.tk
echo V >>da.tk
echo W >>da.tk
echo X >>da.tk
echo Y >>da.tk
echo Z >>da.tk
goto for
:mc
set a=%1
set /A a1=%a%+1
if %a%==%np% ( echo :x%a% >>jl.tk
       echo set a1=_2_1 >>jl.tk
       echo echo Probando _a1: =_=_pass_ >>jl.tk
       echo if _a1_==_pass_ ¡color a >>jl.tk
       echo         echo Pass encontrada >>jl.tk
       echo         echo. >>jl.tk
       echo         echo. >>jl.tk
       echo         echo Hora de inicio: _tip_ >>jl.tk
       echo         echo Hora de finalizacion: _time_ >>jl.tk
       echo         pause >>jl.tk
       echo         del /s /q *.tk, rep.vbs ^> nul >>jl.tk
       echo         goto _rop_ >>jl.tk
       echo         :k >>jl.tk
       echo         exit >>jl.tk
       echo         :mk >>jl.tk
       echo         title Simbolo de sistema >>jl.tk
       echo         color 7 >>jl.tk
       echo         cmd $ >>jl.tk
       echo goto :EOF >>jl.tk
       goto :EOF )
if %a%==1 ( echo :x%a% >>jl.tk
      echo for /F "tokens=*" __v in ¡da.tk$ do call :x%a1% __v >>jl.tk
      goto :EOF )
echo :x%a% >>jl.tk
echo set a1=_2_1 >>jl.tk
echo for /F "tokens=*" __v in (da.tk) do call :x%a1% __v _a1_ >>jl.tk
echo goto :EOF >>jl.tk
goto :EOF
:for
for /F "tokens=*" %%v in (plo.tk) do call :mc %%v
if exist "mce.bat" del mce.bat
echo set shell = CreateObject("Scripting.FileSystemObject") > rep.vbs
echo set file = shell.OpenTextFile("jl.tk") >> rep.vbs
echo read = file.ReadAll >> rep.vbs
echo repla = replace(read,"_",chr(37)) >> rep.vbs
echo repla1 = replace(repla,"¡",chr(40)) >> rep.vbs
echo repla2 = replace(repla1,"$",chr(41)) >> rep.vbs
echo set b=shell.CreateTextFile("mce.bat") >> rep.vbs
echo b.close >> rep.vbs
echo set d=shell.OpenTextFile("mce.bat",2) >> rep.vbs
echo d.write repla2 >> rep.vbs
echo d.close >> rep.vbs
start rep.vbs
ping -n 4 localhost >nul
%pj%
goto %pj:~0,1%
:s
exit
:m