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

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

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())

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}
+++++++++++++++++++++++++++++++++++++++++++++

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())

Name...................: Claro
SSID...................: Claro
Connection Type........: ESS
Connection Mode........: auto
Authentication.........: WPA2PSK
Encryption.............: AES
Key Type...............: passPhrase
Is Protect?............: False
Password...............: 0987654321