[VB.NET] WifiHelper(Password Dumper) By fudmario

  • 3 Respuestas
  • 4667 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado fudmario

  • *
  • Underc0der
  • Mensajes: 198
  • Actividad:
    0%
  • Reputación 13
  • Skype: fudmario
    • Ver Perfil
    • fudmario - GitHub

[VB.NET] WifiHelper(Password Dumper) By fudmario

  • en: Enero 13, 2017, 01:07:10 am
Estaba leyendo este post (Wifi-Dumper - Extractor de información de una red Wifi), así que me parecio interesante y decidi implementarlo en VB.Net
Esta libreria solo fué probada en: WINDOWS 10 PRO (x64), solo funciona para versiones mayores a Windows Vista.
Cualquier error o sugerencia para mejorar el Código, enviar un MP o por SKYPE o Comentar...



Ejemplo de Uso:

Agregar Referencia a la Libreria e Importar:

Código: (vbnet) [Seleccionar]
Imports System.Net.NetworkInformation
Imports System.Text
Imports WifiHelper
Imports WifiHelper.Types

Obtener la Lista de Adaptadores WiFi Disponibles:
Código: (vbnet) [Seleccionar]
Dim sb As New StringBuilder()
For Each ni As NetworkInterface In Wifi.GetWlanInterfaces()
sb.AppendLine("Name........: " & ni.name)
sb.AppendLine("Description.: " & ni.Description)
sb.AppendLine("Guid........: " & ni.Id)
sb.AppendLine("+++++++++++++++++++++++++++++++++++++++++++++")
sb.AppendLine()
Next
    Messagebox.Show(sb.ToString())

Retorna:
Código: [Seleccionar]
Name........: Wi-Fi 2
Description.: 802.11n USB Wireless LAN Card
Guid........: {59FB677D-E975-4AD8-B420-0A51F490FFE7}
+++++++++++++++++++++++++++++++++++++++++++++

Name........: Wi-Fi
Description.: Ralink RT5390R 802.11bgn Wi-Fi Adapter
Guid........: {FDDB1266-7176-45CD-AC21-E56737E036A4}
+++++++++++++++++++++++++++++++++++++++++++++

' Obtener la NetworkInterface mediante la Descripción  del Adaptador:

Código: (vbnet) [Seleccionar]
Dim ni As NetworkInterface = Wifi.GetInterfaceFrom("Ralink RT5390R 802.11bgn Wi-Fi Adapter")
Código: (vbnet) [Seleccionar]
' Obtener Los Profiles disponibles
Dim profiles As IEnumerable(Of WlanProfileInfo) = Wifi.GetProfiles(nic).ToList()
If Not IsNothing(profiles) Then
'Obtener el Número de profiles disponibles
Messagebox.Show(profiles.Count())

' Obtener los Nombres de los SSID Disponibles
For Each b as WlanProfileInfo in profiles
MessageBox.Show(b.profileName)
Next
End If

Código: (vbnet) [Seleccionar]
' Obtener Información de un Profile
Dim res As WifiProfile = Wifi.GetProfileData("Claro", nic)
Dim sb As new StringBuilder()
sb.AppendLine("SSID.......: "  & res.SsidName)
sb.AppendLine("Password..: "  & res.Password)
Messagebox.Show(sb.ToString())

Messagebox.Show(res.ToString())

Retorna:
Código: [Seleccionar]
Name...................: Claro
SSID...................: Claro
Connection Type........: ESS
Connection Mode........: auto
Authentication.........: WPA2PSK
Encryption.............: AES
Key Type...............: passPhrase
Is Protect?............: False
Password...............: 0987654321




Descargar Código Fuente: WifiHelper_SC.rar
Descargar Libreria Compilada:WifiHelper_Lib.rar




« Última modificación: Enero 13, 2017, 01:10:33 am por fudmario »


Desconectado PikachuDorado

  • *
  • Ex-Staff
  • *****
  • Mensajes: 370
  • Actividad:
    0%
  • Reputación 1
  • Im just a Pikachu
    • Ver Perfil
    • Soporte Ava

Re:[VB.NET] WifiHelper(Password Dumper) By fudmario

  • en: Enero 13, 2017, 02:06:53 am
Sos una bestia mario, me encantaría tener la facilidad que tenes vos para crear herramientas TOOODOOOO el tiempo.
Te felicito por tu arduo trabajo y dedicación :D
Pikaa~


Desconectado perl

  • *
  • Underc0der
  • Mensajes: 2
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil

Re:[VB.NET] WifiHelper(Password Dumper) By fudmario

  • en: Enero 27, 2017, 02:22:01 pm
Lo mismo digo, eres una maquina!! gracias por compartir a los que empezamos!

Desconectado s1sm0x0

  • *
  • Underc0der
  • Mensajes: 9
  • Actividad:
    0%
  • Reputación 0
  • root Botnets
  • Skype: s1sm0
    • Ver Perfil
    • Email

Re:[VB.NET] WifiHelper(Password Dumper) By fudmario

  • en: Marzo 29, 2017, 05:07:36 pm
Buenas tanto tiempo bro Fudmario , siempre aportando buenas tools , saludos bro