Perl Check Port - Entenda melhor os sockets
Publicado por Perfil removido (última atualização em 17/01/2013)
[ Hits: 3.788 ]
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; }
Descubra se seu e-mail ou conta foi "pwned"
Baixar o Diário Oficial da União e salvar como um único PDF completo
Upload de múltiplos arquivos para Imageshack.us
Nenhum comentário foi encontrado.
Criar entrada (menuentry) ISO no Grub
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar o VIM 9.1 no Debian 12
Como saber o range de um IP público?
Muitas dificuldades ao instalar distro Linux em Notebook Sony Vaio PCG-6131L (VPCEA24FM)
Slackpkg+ (Slackpkg Plus) está de volta!
Como dividir duas janelas igualmente e lado-a-lado na sua tela
instalar o Linux em computadores Acer novos (1)
Youtube e networkmeneger para de funcionar [RESOLVIDO] (8)
Problemas com SQL em objeto TLabel ... (2)
Minha rede tem um espaço invisível que não dá pra digitar o nome da re... (1)