Perl Check Port - Entenda melhor os sockets
Publicado por Perfil removido (última atualização em 17/01/2013)
[ Hits: 3.624 ]
O script em si não é tão util, serve apenas para checar se determinada porta está aberta ou não em um host, porém para quem está iniciando em Perl, serve de base para a criação de sockets.
#!/usr/bin/perl # Kill port Check # Code by @Kouback_TR_ # Usando socket use IO::Socket::INET; if ($#ARGV < 0) { print "Kill port check\n\n"; print "USE: comando <host> <port>\n\n"; exit; } elsif ($#ARGV < 0) { exit; } elsif ($#ARGV < 1) { print "Kill port check\n\n"; print "USE: comando <host> <port>\n\n"; print "Informe a porta\n\n"; exit; } $host = $ARGV[0]; $port = $ARGV[1]; { $scan = IO::Socket::INET->new( PeerAddr => "$host", PeerPort => "$port", Timeout => "100", Proto => "tcp")|| die "Kill port check\n\n[+]Porta $port fachada em $host !!\n\n"; } while (1) { print "Kill port check\n\n"; print"[+]Porta $port aberta em $host !!\n\n"; exit; }
Burlando o "Protetor de links" INVERTIDO para download grátis
IPloc - Informações e localização de um determinado endereço IP
Avisar por e-mail se o IP da conexão ADSL mudar
Nenhum comentário foi encontrado.
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Curiosidade sobre DOOM Guy e Isabelle de Animal Crossing
Inicializando servidor Ubuntu na AWS e rodando apache em Container
Conheça o Octopi, outro frontend para o Pacman com acesso ao ARU (Arch Linux e derivados)
Terminal transparente no Debian 12 com interface i3wm usando Xfce4-Terminal e Compton
Como compilar o DOOM RETRO no Linux
Stacer - um otimizador gráfico básico de Linux
Corrigindo o erro de "WARNING: Possibly missing firmware for module" no Arch Linux
Após atualização do Ubuntu 22.04.4 LTS perdi a instalação da placa de ... (1)
Como colocar uma assinatura digital em um código compilado ! (0)
DRIVER DE ADPTADOR HDMI PARA USB (2)