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

Iniciado por fudmario, Enero 13, 2017, 01:07:10 AM

Tema anterior - Siguiente tema

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

Enero 13, 2017, 01:07:10 AM Ultima modificación: Enero 13, 2017, 01:10:33 AM por fudmario

Estaba leyendo este post (No tienes permitido ver los links. Registrarse o Entrar a mi cuenta), así que me parecio interesante y decidi implementarlo en No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
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

Imports System.Net.NetworkInformation
Imports System.Text
Imports WifiHelper
Imports WifiHelper.Types


Obtener la Lista de Adaptadores WiFi Disponibles:
Código: vbnet

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: php

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


Código: vbnet

' 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

' 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: php

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: No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
Descargar Libreria Compilada:No tienes permitido ver los links. Registrarse o Entrar a mi cuenta








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~


Lo mismo digo, eres una maquina!! gracias por compartir a los que empezamos!

Buenas tanto tiempo bro Fudmario , siempre aportando buenas tools , saludos bro