seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Participe do fórum, é rápido e fácil

seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Você não está conectado. Conecte-se ou registre-se

[download] FTS Port Scanner (autoit)

Ir para baixo  Mensagem [Página 1 de 1]

1[download] FTS Port Scanner (autoit) Empty [download] FTS Port Scanner (autoit) Qui Nov 01, 2012 5:02 pm

Kodo no Kami

Kodo no Kami
master
master

[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

https://endoffile.umforum.net

Ir para o topo  Mensagem [Página 1 de 1]

Permissões neste sub-fórum
Não podes responder a tópicos