Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

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

  • 3 Respuestas
  • 4321 Vistas

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

Desconectado fudmario

  • *
  • Cramel
  • *
  • Mensajes: 197
  • Actividad:
    0%
  • Reputación 13
    • Ver Perfil
    • fudmario - GitHub
  • Skype: 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: vb.net
  1. Imports System.Net.NetworkInformation
  2. Imports System.Text
  3. Imports WifiHelper
  4. Imports WifiHelper.Types
  5.  

Obtener la Lista de Adaptadores WiFi Disponibles:
Código: vb.net
  1. Dim sb As New StringBuilder()
  2.         For Each ni As NetworkInterface In Wifi.GetWlanInterfaces()
  3.                 sb.AppendLine("Name........: " & ni.name)
  4.                 sb.AppendLine("Description.: " & ni.Description)
  5.                 sb.AppendLine("Guid........: " & ni.Id)
  6.                 sb.AppendLine("+++++++++++++++++++++++++++++++++++++++++++++")
  7.                 sb.AppendLine()
  8.         Next
  9.     Messagebox.Show(sb.ToString())
  10.  

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: vb.net
  1. Dim ni As NetworkInterface = Wifi.GetInterfaceFrom("Ralink RT5390R 802.11bgn Wi-Fi Adapter")

Código: vb.net
  1. ' Obtener Los Profiles disponibles
  2. Dim profiles As IEnumerable(Of WlanProfileInfo) = Wifi.GetProfiles(nic).ToList()
  3. If Not IsNothing(profiles) Then
  4.         'Obtener el Número de profiles disponibles
  5.         Messagebox.Show(profiles.Count())
  6.  
  7.         ' Obtener los Nombres de los SSID Disponibles
  8.         For Each b as WlanProfileInfo in profiles
  9.                 MessageBox.Show(b.profileName)
  10.         Next
  11. End If
  12.  

Código: vb.net
  1. ' Obtener Información de un Profile
  2. Dim res As WifiProfile = Wifi.GetProfileData("Claro", nic)
  3. Dim sb As new StringBuilder()
  4. sb.AppendLine("SSID.......: "  & res.SsidName)
  5. sb.AppendLine("Password..: "  & res.Password)
  6. Messagebox.Show(sb.ToString())
  7.  
  8. Messagebox.Show(res.ToString())
  9.  

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

  • *
  • Underc0der
  • Mensajes: 372
  • Actividad:
    0%
  • Reputación 1
  • Im just a Pikachu
    • Ver Perfil
    • Soporte Ava
« Respuesta #1 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
« Respuesta #2 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
    • Ver Perfil
    • Email
  • Skype: s1sm0
« Respuesta #3 en: Marzo 29, 2017, 05:07:36 pm »
Buenas tanto tiempo bro Fudmario , siempre aportando buenas tools , saludos bro

 

¿Te gustó el post? COMPARTILO!



[VB.NET] Opera Password Viewer

Iniciado por fudmario

Respuestas: 0
Vistas: 3036
Último mensaje Diciembre 07, 2016, 11:06:08 pm
por fudmario
[VB.NET] Chrome Password Viewer

Iniciado por fudmario

Respuestas: 6
Vistas: 6979
Último mensaje Marzo 31, 2018, 10:43:27 pm
por Som€body
GhostDoc Enterprise - Build 5.2.16200 | Patcher by fudmario

Iniciado por fudmario

Respuestas: 3
Vistas: 4063
Último mensaje Octubre 09, 2016, 07:27:04 pm
por atheros14
[VB.Net] Offset Locator Function's by fudmario

Iniciado por fudmario

Respuestas: 1
Vistas: 4701
Último mensaje Julio 21, 2018, 04:19:31 pm
por Pjoao1578
[Function] Adf.ly Decode by fudmario[vb.net]

Iniciado por fudmario

Respuestas: 5
Vistas: 4783
Último mensaje Junio 22, 2016, 05:07:37 pm
por Kr3L