-
Notifications
You must be signed in to change notification settings - Fork 6
/
RDP-Checker.au3
78 lines (60 loc) · 2.32 KB
/
RDP-Checker.au3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
#cs ------------------------------------------------------------
Au3 Exe : RDP Scanner , ( checks only 3389 port ) ...
Author : 9aylas
Twitter : @9aylas - Stoner Life
Made in [213]
E0F at 03/09/2017
#ce ------------------------------------------------------------
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <Array.au3>
$suck = GUICreate("RDP Checker - 9aylas", 290, 195, 205, 118)
$go = GUICtrlCreateButton("Check", 85, 160, 51, 25)
$load = GUICtrlCreateButton("Load", 9, 160, 51, 25)
$saveas = GUICtrlCreateButton("Save", 152, 160, 51, 25)
$CLEAN = GUICtrlCreateButton("CLS", 230, 160, 51, 25)
$ips = GUICtrlCreateEdit("", 8, 16, 129, 137, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
$goods = GUICtrlCreateEdit("", 141, 16, 142, 137, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUISetState(@SW_SHOW)
$port1 = "3389" ; rdp port
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $go
_scan()
CASE $clean
GUICtrlSetData($goods,"") ; cleaning the editbox !
GUICtrlSetData($ips,"") ; also here
Case $load
$here = FileOpenDialog("Load the fucking ip list ", @scriptdir , "(*.*)") ; load txt file
$here0 = FileRead($here)
if @error = false then
GUICtrlSetData($ips,$here0) ; ips_editbox recives the data ( txt file )
Else
MsgBox(16,"- Error "," WTF ? ")
endif
case $saveas
$ass = GUICtrlRead($goods)
$asss = FileSaveDialog("Save ips",@scriptdir,"file (*.txt)")
FileWrite($asss,$ass & @CRLF)
EndSwitch
WEnd
Func _scan()
TCPStartup()
$timerstart = TimerInit()
$arrIP = StringSplit(GUICtrlRead($ips), @CRLF, 3) ; parse ips to array
For $IP In $arrIP ; foreach ip in array ips
Sleep(500) ; take sometime to make a good connection
$test = TCPConnect($IP, $port1) ; making connectionn.. ip:port
If $test <> -1 Then GUICtrlSetData($goods, $IP & " #Good" & @CRLF, "newline") ; condition , if the ip+port = (true) , then write results in goods_editbox
Sleep(200)
Next
TCPShutdown()
$timerend = TimerDiff($timerstart)
TrayTip("9AYLASCANNER", "Finished :)", 7, 1)
EndFunc