FiRe-CrAsH (Normal User)
Newbie
Messaggi: 18
Iscritto: 08/03/2008
|
Codice sorgente - presumibilmente Altri Linguaggi |
#include <GUIConstants.au3>
#include<GuiEdit.au3>
#NoTrayIcon
GUICreate("PoRT-ScAN - FiRe-CrAsH", 411, 218, 193, 125)
GUISetBkColor(0x000000)
GUICtrlCreateLabel("Ip Address:", 8, 8, 71, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FF00)
$ip = GUICtrlCreateInput("", 8, 32, 105, 21)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FFFF)
GUICtrlSetBkColor(-1, 0x506072)
GUICtrlCreateLabel("From Port:", 8, 64, 65, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FF00)
$from = GUICtrlCreateInput("", 8, 88, 97, 21)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FFFF)
GUICtrlSetBkColor(-1, 0x5A7385)
$to = GUICtrlCreateInput("", 8, 144, 97, 21)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FFFF)
GUICtrlSetBkColor(-1, 0x5A7385)
GUICtrlCreateLabel("To Port:", 8, 120, 50, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FF00)
$screen = GUICtrlCreateEdit("", 136, 24, 265, 145, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FFFF)
GUICtrlSetBkColor(-1, 0x5C5C5C)
$scan = GUICtrlCreateButton("Start - Scan", 8, 176, 89, 33, 0)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x808080)
GUICtrlCreateLabel("PoRT-ScAN - FiRe-CrAsH@MsN.CoM", 152, 184, 222, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case $scan
GuiCtrlSetData($screen,"")
_GUiCtrlEdit_AppendText($screen,"[-] Scanning..."&@CRLF&@CRLF)
TcpStartUp()
For $ports = GuiCtrlRead($from) to GuiCtrlRead($to) step 1
$socket = TCpConnect(GuiCtrlRead($ip),$ports)
TcpCloseSocket($socket)
if $socket = "-1" Then
_GuiCtrlEdit_AppendText($screen,"[-] Port Close: "&$ports&@CRLF)
sleep("500")
Else
_GuiCtrlEdit_AppendText($screen,"[-] Port Open: "&$ports&@CRLF)
sleep("500")
EndIf
next
_GuiCtrledit_AppendText($screen,@CRLF&"[-] Scan Complete."&@CRLF&@CRLF)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
|
|
![Altri Linguaggi - [Autoit]PoRT-ScAN](/data/logos/logositov9.png)
