R4tz - Portscan basicão
Publicado por Danillo Souza (última atualização em 18/05/2010)
[ Hits: 4.697 ]
Ele é bem simples, você passa como parâmetro o host, opcionalmente as portas de início e fim e o nome do arquivo log que ele vai gerar.
A partir daí ele percorre as portas (caso você tenha especificado, vai percorrer somente aquela faixa) verificando quais estão abertas para uma conexão TCP/IP, depois imprime na tela e salva no arquivo uma linha dizendo a porta atual e o estado dela (open/closed).
#!/usr/bin/perl -w use strict; use IO::Socket::INET; ## Pra postar aqui tirei o POD do começo do arquivo, mas deixei no script pra download. sub usage { printf "Usage: %s <hostaddr> [<init> <endp> <logfile>]\n", $0; printf " <hostaddr> - Adress to check.\n"; printf " <init> - Initial port(default is 1).\n"; printf " <endp> - Final port(default is 65000).\n"; printf " <logfile> - File to save log(default is log.ports).\n"; exit; } my $host = $ARGV[0] || usage; my $init = $ARGV[1] || 1; my $endp = $ARGV[2] || 65000; my $file = $ARGV[3] || 'log.ports'; my $tmp_sock = ''; ($init, $endp) = ($init < $endp) ? ($init, $endp) : ($endp, $init); open ARQ, ">", $file; foreach (($init .. $endp)) { $tmp_sock = IO::Socket::INET->new( PeerAddr => $host, PeerPort => $_, Proto => 'tcp', Type => SOCK_STREAM ); if ($tmp_sock) { printf "[%05d] - Open.\n", $_; printf ARQ "[%05d] - Open.\n", $_; } else { printf "[%05d] - Closed.\n", $_; printf ARQ "[%05d] - Closed.\n", $_; } } close ARQ;
Script de conectividade wireless
Nenhum comentário foi encontrado.
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Flatpak: remover runtimes não usados e pacotes
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Estou com sede em aprender sobre o nosso querido Linux. (1)
big linux sem audio como resolver (2)
Como faz para dar um update-grub por shell script [RESOLVIDO] (3)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta