Perl Check Port - Entenda melhor os sockets
Publicado por Perfil removido (última atualização em 17/01/2013)
[ Hits: 3.707 ]
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; }
Tweetin - Poste tweets pelo terminal
Pesquisar palavras no Diário Oficial da União
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
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Não to conseguindo resolver este problemas ao instalar o playonelinux (1)
Excluir banco de dados no xampp (1)
[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