[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
pequeno port scanner q eu fiz em autoit[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
- Código:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author: hacker fts315
Script Function:
scanner de porta
#ce ----------------------------------------------------------------------------
dim $ip, $ini, $fim, $cont, $proto, $fts, $portas
$ip = InputBox("IP Alvo","Digite o ip da maquina")
$ini = InputBox("Porta Inicial","Digite a porta inicial (0-65535)")
$fim = InputBox("Porta Final","Digite a porta final (0-65535)")
$proto = InputBox("Protocolo","Digite o protocolo (tcp-udp-ambos)")
;scanneia tcp
if ($proto == "tcp") Then
TCPStartup()
for $cont = $ini to $fim
$fts = TCPConnect($ip,$cont)
ConsoleWrite($cont)
if ($fts > 0) Then
ConsoleWrite(" - aberta")
$portas &= "porta aberta: "
$portas &= $cont
$portas &= @CR
endif
ConsoleWrite(@CR)
next
msgbox(0x00,"portas tcp",$portas)
TCPCloseSocket($fts)
endif
;scanneia udp
if ($proto == "udp") Then
UDPStartup()
for $cont = $ini to $fim
$fts = UDPOpen($ip,$cont)
ConsoleWrite($cont)
if ($fts > 0) Then
ConsoleWrite(" - aberta")
$portas &= "porta aberta: "
$portas &= $cont
$portas &= @CR
endif
ConsoleWrite(@CR)
next
msgbox(0x00,"portas udp ",$portas)
UDPCloseSocket($fts)
endif
;scanneia tcp e udp
if ($proto == "ambos") Then
TCPStartup()
UDPStartup()
for $cont = $ini to $fim
;tcp
$fts = TCPConnect($ip,$cont)
ConsoleWrite($cont & " (tcp)")
if ($fts > 0) Then
ConsoleWrite(" - aberta")
$portas &= "porta aberta (tcp): "
$portas &= $cont
$portas &= @CR
endif
ConsoleWrite(@CR)
;udp
$fts = UDPOpen($ip,$cont)
ConsoleWrite($cont & " (udp)")
if ($fts > 0) Then
ConsoleWrite(" - aberta")
$portas &= "porta aberta (udp): "
$portas &= $cont
$portas &= @CR
endif
ConsoleWrite(@CR)
next
msgbox(0x00,"portas tcp e udp ",$portas)
UDPCloseSocket($fts)
endif