Questa è la versione non colorata x essere inserita nella suite...
il funzionamento e classico...si inserisce l'ip da scannare...porta di inizio e porta di fine...e si aspettano i risultati
==>avvertimento: è molto lento...
p.s. ho fatto in modo che quando trova delle porte aperte emani un beep
CODICE
#include <GUIConstants.au3>
$Form1 = GUICreate("|Kn0k| Port Scanner", 436, 331, 193, 125)
$lblip = GUICtrlCreateLabel("Ip da scannare:", 8, 24, 114, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$inputip = GUICtrlCreateInput("xxx.xxx.xxx.xxx", 136, 24, 289, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Porte da", 56, 64, 64, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$porta1 = GUICtrlCreateInput("1", 136, 64, 49, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("A", 200, 64, 15, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$porta2 = GUICtrlCreateInput("666", 232, 64, 49, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$scanna = GUICtrlCreateButton("Scanna", 288, 64, 137, 33, 0)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("Risultato scansione", 8, 104, 417, 217)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$risultati= GUICtrlCreateedit("", 16, 128, 401, 185)
GUICtrlSetData(-1, "Nessun ip ancora scannato"&@CRLF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $scanna
Opt("TCPTimeout",1)
$ip=guictrlread($inputip)
$partenza=guictrlread ($porta1)
$arrivo=guictrlread ($porta2)
GUICtrlSetData($risultati,"Attendere, scansione in corso....."&@crlf,1)
TCPStartup()
for $percorso=$partenza to $arrivo
$connessione= TCPConnect ($ip,$percorso)
Switch $connessione
case -1
Switch @error
Case 1
GUICtrlSetData($risultati,$percorso & " <=Ip errato" & @CRLF,1)
Case 2
GUICtrlSetData($risultati,$percorso & " <=Porta chiusa" & @CRLF,1)
Case Else
GUICtrlSetData($risultati,$percorso& " <=Impossibile connettersi" & @CRLF,1)
EndSwitch
Case Else
TCPCloseSocket($connessione)
GUICtrlSetData($risultati,$percorso& " <=Successo!" & @CRLF,1)
beep(500,200)
EndSwitch
Next
TCPShutdown()
GUICtrlSetData($risultati,"Scansione completata",1)
EndSwitch
WEnd