@echo off rem CMD script para el calculo de la clave WPA por defecto para redes rem wifi tipo WLAN_xxxx y JAZZTEL_xxxx creado por Rubok rem basado en CalcWLAN by a.s.r. rem Necesita algun ejecutable que devuelva el hash md5 de una cadena de texto rem puedes bajar uno desde aqui: http://www.fourmilab.ch/md5/ rem definir aqui la llamada a ese fecutable (ej: md5.exe -d) set MD5RUN=md5.exe -d set I=0 set t1=%1 set t2=%2 if "%t2%"=="" call :HELP REM Convierto el ESSID y BSSID a mayusculas call :MAYUS REM En HEAD guardo los 4 ultimos digitos hexadecimales del ESSID set HEADTMP=%t1:~0,4% REM si es de telefonica if "%HEADTMP%"=="WLAN" set HEAD=%t1:~5,4% REM si es de jazztel if "%HEADTMP%"=="JAZZ" set HEAD=%t1:~8,4% REM En BSSID guardo la mac sin los ":" set BSSID=%t2:~0,2%%t2:~3,2%%t2:~6,2%%t2:~9,2%%t2:~12,2%%t2:~15,2% REM EN BSSIDP guardo los 8 primeros caracteres del bssid set BSSIDP=%BSSID:~0,8% REM se junta todo con la cadena bcgbghgg set TEMPSTRING=bcgbghgg%BSSIDP%%HEAD%%BSSID% rem se calcula el hash md5 de la cadena for /f "tokens=*" %%%% in ('%MD5RUN%%TEMPSTRING%') do (set HASH=%%~%%) rem me quedo con los 20 primeros caracteres set HASH=%HASH:~0,20% rem lo paso a minusculas call :MINUS rem e imprimo el resultado final if "%I%"=="1" ( echo. echo La red %t1% con MAC %t2% echo tiene la clave por defecto: %HASH% echo. pause ) else ( echo %HASH% ) goto END :HELP echo. echo CMD script para el calculo de la clave WPA por defecto para redes echo wifi tipo WLAN_xxxx y JAZZTEL_xxxx creado por Rubok echo. echo basado en CalcWLAN by a.s.r. echo. echo Se puede usar con parametros tal que asi: echo Uso: %0 ESSID BSSID echo. echo ejemplo: %0 WLAN_8BB4 64:68:0C:A1:8B:B7 echo. echo O de forma interactiva si se ejecuta sin parametros como ahora echo. echo. set I=1 echo Introducir ESSID: set /P t1= echo Introducir BSSID: set /P t2= echo. exit /B :MAYUS set t1=%t1:a=A% set t1=%t1:b=B% set t1=%t1:c=C% set t1=%t1:d=D% set t1=%t1:e=E% set t1=%t1:f=F% set t1=%t1:g=G% set t1=%t1:h=H% set t1=%t1:i=I% set t1=%t1:j=J% set t1=%t1:k=K% set t1=%t1:l=L% set t1=%t1:m=M% set t1=%t1:n=N% set t1=%t1:ñ=Ñ% set t1=%t1:o=O% set t1=%t1:p=P% set t1=%t1:q=Q% set t1=%t1:r=R% set t1=%t1:s=S% set t1=%t1:t=T% set t1=%t1:u=U% set t1=%t1:v=V% set t1=%t1:w=W% set t1=%t1:x=X% set t1=%t1:y=Y% set t1=%t1:z=Z% set t2=%t2:a=A% set t2=%t2:b=B% set t2=%t2:c=C% set t2=%t2:d=D% set t2=%t2:e=E% set t2=%t2:f=F% set t2=%t2:g=G% set t2=%t2:h=H% set t2=%t2:i=I% set t2=%t2:j=J% set t2=%t2:k=K% set t2=%t2:l=L% set t2=%t2:m=M% set t2=%t2:n=N% set t2=%t2:ñ=Ñ% set t2=%t2:o=O% set t2=%t2:p=P% set t2=%t2:q=Q% set t2=%t2:r=R% set t2=%t2:s=S% set t2=%t2:t=T% set t2=%t2:u=U% set t2=%t2:v=V% set t2=%t2:w=W% set t2=%t2:x=X% set t2=%t2:y=Y% set t2=%t2:z=Z% exit /b :MINUS set HASH=%HASH:A=a% set HASH=%HASH:B=b% set HASH=%HASH:C=c% set HASH=%HASH:D=d% set HASH=%HASH:E=e% set HASH=%HASH:F=f% set HASH=%HASH:G=g% set HASH=%HASH:H=h% set HASH=%HASH:I=i% set HASH=%HASH:J=j% set HASH=%HASH:K=k% set HASH=%HASH:L=l% set HASH=%HASH:M=m% set HASH=%HASH:N=n% set HASH=%HASH:Ñ=ñ% set HASH=%HASH:O=o% set HASH=%HASH:P=p% set HASH=%HASH:Q=q% set HASH=%HASH:R=r% set HASH=%HASH:S=s% set HASH=%HASH:T=t% set HASH=%HASH:U=u% set HASH=%HASH:V=v% set HASH=%HASH:W=w% set HASH=%HASH:X=x% set HASH=%HASH:Y=y% set HASH=%HASH:Z=z% exit /b :END