[batch-vbs] ejemplo de crackeo por brute force

[The Shadow]

info:
    -permite el uso de diccionarios (archivos que dentro contienen una lista de palabras para q el programa las analize)
    -agrega las letras mayusculas del abecedario al analisis
    -reconoce por si mismo la cantidad de caracteres q posee la clave ... osea q ya no es necesario especificar la longitud de la clave
    -evita al minimo los errores humanos en la introduccion de datos (introducir una clave nula o no introducir clave, introducir una clave de mas de 9 caracteres, introducir espacios dentro de la clave, introducir un diccionario que no exista, etc)
    -igual q n la version anterior... el prog puede trabajar desde una llamada del cmd (como un comando)... la sintaxis a cambiado a:
      c:\>fb3 X Y
      donde c:\=ruta donde esta el programa; fb3=nombre del programa; X=clave; Y=ruta del diccionario*
      si no se va a usar diccionario la sintaxis cambia a:
      c:\>fb3 X
      donde c:\=ruta donde esta el programa; fb3=nombre del programa; X=clave
    ejemplos:
      1) c:\>fb3 a52
      2) c:\>fb3 localroot dic1.txt
    explicaciones:
      1) buskra la pass "a52" por fuerza bruta
      2) buskra la pass "localroot" con el diccionario "dic1.txt", si no la encuentra, buskra por fuerza bruta

ejemplo de un diccionario compatible:
--------------------------dic1.txt-----
admin
root
1a2b
system
sysroot
null
123456789
mariana
111111111
slipknot
abcd
localroot
time
quote
------------------------fin(dic1.txt)---------
code del soft:
-------------------------------------------------------------------------------fb3.bat------------------------

@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

-------------------------------------------------------------------------------------fin(fb3.bat)------

Saludos