├── RDP-Checker.au3 ├── RDP-Checker.exe └── README.md /RDP-Checker.au3: -------------------------------------------------------------------------------- 1 | #cs ------------------------------------------------------------ 2 | 3 | Au3 Exe : RDP Scanner , ( checks only 3389 port ) ... 4 | Author : 9aylas 5 | Twitter : @9aylas - Stoner Life 6 | Made in [213] 7 | 8 | E0F at 03/09/2017 9 | 10 | #ce ------------------------------------------------------------ 11 | 12 | 13 | #include 14 | #include 15 | #include 16 | #include 17 | #include 18 | #include 19 | 20 | $suck = GUICreate("RDP Checker - 9aylas", 290, 195, 205, 118) 21 | $go = GUICtrlCreateButton("Check", 85, 160, 51, 25) 22 | $load = GUICtrlCreateButton("Load", 9, 160, 51, 25) 23 | $saveas = GUICtrlCreateButton("Save", 152, 160, 51, 25) 24 | $CLEAN = GUICtrlCreateButton("CLS", 230, 160, 51, 25) 25 | $ips = GUICtrlCreateEdit("", 8, 16, 129, 137, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL)) 26 | $goods = GUICtrlCreateEdit("", 141, 16, 142, 137, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL)) 27 | GUISetState(@SW_SHOW) 28 | 29 | $port1 = "3389" ; rdp port 30 | 31 | While 1 32 | $nMsg = GUIGetMsg() 33 | Switch $nMsg 34 | Case $GUI_EVENT_CLOSE 35 | Exit 36 | Case $go 37 | _scan() 38 | 39 | CASE $clean 40 | GUICtrlSetData($goods,"") ; cleaning the editbox ! 41 | GUICtrlSetData($ips,"") ; also here 42 | 43 | Case $load 44 | $here = FileOpenDialog("Load the fucking ip list ", @scriptdir , "(*.*)") ; load txt file 45 | $here0 = FileRead($here) 46 | if @error = false then 47 | GUICtrlSetData($ips,$here0) ; ips_editbox recives the data ( txt file ) 48 | Else 49 | MsgBox(16,"- Error "," WTF ? ") 50 | endif 51 | 52 | case $saveas 53 | $ass = GUICtrlRead($goods) 54 | $asss = FileSaveDialog("Save ips",@scriptdir,"file (*.txt)") 55 | FileWrite($asss,$ass & @CRLF) 56 | EndSwitch 57 | WEnd 58 | 59 | Func _scan() 60 | TCPStartup() 61 | $timerstart = TimerInit() 62 | 63 | $arrIP = StringSplit(GUICtrlRead($ips), @CRLF, 3) ; parse ips to array 64 | 65 | For $IP In $arrIP ; foreach ip in array ips 66 | 67 | Sleep(500) ; take sometime to make a good connection 68 | $test = TCPConnect($IP, $port1) ; making connectionn.. ip:port 69 | 70 | If $test <> -1 Then GUICtrlSetData($goods, $IP & " #Good" & @CRLF, "newline") ; condition , if the ip+port = (true) , then write results in goods_editbox 71 | 72 | Sleep(200) 73 | Next 74 | 75 | TCPShutdown() 76 | $timerend = TimerDiff($timerstart) 77 | TrayTip("9AYLASCANNER", "Finished :)", 7, 1) 78 | EndFunc 79 | -------------------------------------------------------------------------------- /RDP-Checker.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/9aylas/RDP-Checker/7a28458c8a878ab1ed1956ca051172a9661af54c/RDP-Checker.exe -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # RDP-Checker 2 | 3 | AutoIt Script Remot Desktop Checker 4 | - You can check a list of ip adresses loaded from txt file. 5 | - The checker gives u only good ones , where rdp port is open generally (3389) by default. 6 | 7 | ![alt text](https://i.imgur.com/843y2pP.png "screen$hot :)") 8 | 9 | Enjoy ! 10 | 11 | ./9aylas 12 | --------------------------------------------------------------------------------