Underc0de

Programación General => C# - VB.NET => Mensaje iniciado por: fudmario en Enero 13, 2017, 01:07:10 am

Título: [VB.NET] WifiHelper(Password Dumper) By fudmario
Publicado por: fudmario en Enero 13, 2017, 01:07:10 am
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:

Código: (vbnet) You are not allowed to view links. Register or Login
Imports System.Net.NetworkInformation
Imports System.Text
Imports WifiHelper
Imports WifiHelper.Types

Obtener la Lista de Adaptadores WiFi Disponibles:
Código: (vbnet) You are not allowed to view links. Register or Login
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: You are not allowed to view links. Register or Login
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) You are not allowed to view links. Register or Login
Dim ni As NetworkInterface = Wifi.GetInterfaceFrom("Ralink RT5390R 802.11bgn Wi-Fi Adapter")
Código: (vbnet) You are not allowed to view links. Register or Login
' 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) You are not allowed to view links. Register or Login
' 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: You are not allowed to view links. Register or Login
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)




Título: Re:[VB.NET] WifiHelper(Password Dumper) By fudmario
Publicado por: PikachuDorado 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
Título: Re:[VB.NET] WifiHelper(Password Dumper) By fudmario
Publicado por: perl en Enero 27, 2017, 02:22:01 pm
Lo mismo digo, eres una maquina!! gracias por compartir a los que empezamos!
Título: Re:[VB.NET] WifiHelper(Password Dumper) By fudmario
Publicado por: s1sm0x0 en Marzo 29, 2017, 05:07:36 pm
Buenas tanto tiempo bro Fudmario , siempre aportando buenas tools , saludos bro