Estaba leyendo este post (Wifi-Dumper - Extractor de información de una red Wifi (https://underc0de.org/foro/wireless/wifi-dumper-extractor-de-informacion-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:
Imports System.Net.NetworkInformation
Imports System.Text
Imports WifiHelper
Imports WifiHelper.Types
Obtener la Lista de Adaptadores WiFi Disponibles:
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:
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:
Dim ni As NetworkInterface = Wifi.GetInterfaceFrom("Ralink RT5390R 802.11bgn Wi-Fi Adapter")
' 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
' 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:
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 (https://jumpshare.com/v/xiKQWrfGm7jO9gU6SYEw?b=Za0A2v9AQ4A52N2HRV4E)
Descargar Libreria Compilada:WifiHelper_Lib.rar (https://jumpshare.com/v/dGJj7byAU6PzAJMcVo6G?b=Za0A2v9AQ4A52N2HRV4E)
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
Lo mismo digo, eres una maquina!! gracias por compartir a los que empezamos!
Buenas tanto tiempo bro Fudmario , siempre aportando buenas tools , saludos bro