Advertisement
ImDeepWithWindows

wifipass.cmd

Sep 24th, 2017
186
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. @goto :batch
  2.  
  3. =========================================================================================
  4. look at this file's code, doing this is so simple
  5. theres litterally a command for exporting your wifi
  6. setting into a file and leaving the wifi nets pass
  7. un-encrypted in that file lol
  8.  
  9.  
  10. this is WiFiPass.cmd update 4
  11.  
  12. the difference between update3 and update4 is update4 works on wifi-network names
  13. that have spaces in them and all previous versions dont
  14.  
  15. by ImDeepWithWindows from http://hackforums.net
  16.  
  17. newest version of this App can be found at http://batch.nhserver.ml
  18. if there are any updates made to it
  19. =========================================================================================
  20.  
  21.  
  22. :batch
  23. @echo off
  24. title %~n0
  25. echo. >"%homedrive%\AdminPriv.test"
  26. if exist "%homedrive%\AdminPriv.test" goto :has_uac_elev
  27. cls
  28. echo.requesting UAC elevation ...
  29. echo.set x = createobject("shell.application")>"%temp%\uacelev.vbs"
  30. echo.x.shellexecute "%comspec%","/D /C "^&chr("34")^&"@%~dpnx0"^&chr("34"),"%homedrive%\","runas",1 >>"%temp%\uacelev.vbs"
  31. echo.x.shellexecute "%comspec%","/D /C @del /f /q "^&chr("34")^&wscript.scriptfullname^&chr("34"),"%homedrive%\","open",0 >>"%temp%\uacelev.vbs"
  32. start "" "%temp%\uacelev.vbs"
  33. exit
  34. :has_uac_elev
  35. del /f /q "%homedrive%\AdminPriv.test" >nul
  36. for /f "tokens=5" %%A in ('netsh wlan show int') do if "%%A"=="(wlansvc)" (
  37. echo.--
  38. echo.You're computer is not set-up to be able to connect to WiFi,
  39. echo.so there is no WiFi-password to show because you aren't
  40. echo.connected to WiFi.
  41. goto :nxt_c
  42. )
  43. for /f "tokens=3,4,5" %%A in ('netsh wlan show int') do (
  44. if /I "%%A %%B %%C"=="no wireless interface" (
  45. echo.--
  46. echo.This computer doesn't have the hardware needed to
  47. echo.connect to WiFi, so there is no WiFi-password to show
  48. echo.such it isn't connected to WiFi.
  49. goto :nxt_c
  50. )
  51. )
  52. mkdir "%temp%\ForTempXMLfile" >nul
  53. for /f "tokens=1,* delims=: skip=8" %%A in ('netsh wlan show int') do set "currnetwork=%%B" & goto :nxt_a
  54. :nxt_a
  55. set "currnetwork=%currnetwork:~1%"
  56. netsh wlan export profile name="%currnetwork%" folder="%temp%\ForTempXMLfile" key=clear >nul
  57. for /f "tokens=*" %%a in ('dir /b %temp%\ForTempXMLfile\') do set "currfile=%%a"
  58. for /f "tokens=2 delims=^> skip=21" %%a in ('type %temp%\ForTempXMLfile\%currfile%') do set "networkpass=%%a" & goto :nxt_b
  59. :nxt_b
  60. set "networkpass=%networkpass:</keyMaterial=%"
  61. del /f /q "%temp%\ForTempXMLfile\*" >nul
  62. rmdir "%temp%\ForTempXMLfile" >nul
  63. cls
  64. echo.
  65. echo.--
  66. if "%currnetwork%"=="Notstarted" echo.this computer is not connected to a WiFi network right now &goto :nxt_c
  67. echo.Network-Name: [ "%currnetwork%" ]
  68. echo.Network-Password: [ "%networkpass%" ]
  69. :nxt_c
  70. echo.--
  71. echo.
  72. echo.
  73. echo.tap ^<space^> to close
  74. pause >nul
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement