Perl Check Port - Entenda melhor os sockets
Publicado por Perfil removido (última atualização em 17/01/2013)
[ Hits: 3.879 ]
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; }
Obtendo o IP público (Internet) usando o Perl
Nenhum coment�rio foi encontrado.
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Overclocking Permanente para Drastic no Miyoo Mini Plus
Problemas de chaves (/usr/share/keyrings) no Debian
Converter os repositórios Debian para o novo formato com as chaves
E aí? O Warsaw já está funcionando no Debian 13? (10)
Problema com o Centro de Aplicativos Ubuntu 25.04 (3)
linux mint reconhece microfone de lapela como fone de ouvido sem micro... (6)