Escreva o programa mais curto que tentará se conectar às portas abertas em um computador remoto e verifique se elas estão abertas. (É chamado de Port Scanner )

Obtenha entrada dos argumentos da linha de comando.

your-port-scanner host_ip startPort endPort

Suponha que startPort <endPort (e endPort - startPort < 1000)

Saída: Todas as portas abertas entre esse intervalo devem espaço ou vírgula separadas.

sh / netcat, 39

nc -vz $1 $2-$3 2>&1|cut -f3 -d\ |xargs

O Netcat faz a varredura e retorna os resultados neste formulário em erro padrão:

localhost [127.0.0.1] 22 (ssh) open
localhost [127.0.0.1] 25 (smtp) open

cute xargsextraia o número da porta e faça uma única linha.

Lembre-me de desligar o SMTP nesse nó.

Perl, 92

$_='use I;$h=shift;grep I->new("$h:$_"),shift..shift';
s/I/IO::Socket::INET/g;@_=eval;say"@_"

Perl 5.10 ou posterior, execute com perl -E 'code here'.

Usos expressões regulares para comprimir tanto tempo IO::Socket::INET, então eval; formatação final feita com interpolação de matriz.

Por solicitação, uma explicação mais detalhada. Para ungolf, primeiro vamos redefinir o espaço:

$_ = << 'EOC';
  use I;
  $h = shift;
  grep I->new("$h:$_"), shift..shift;
EOC
s/I/IO::Socket::INET/g;
@_ = eval;
say "@_";

A linha anterior à evalsubstitui todas as (duas) ocorrências de 'I' por 'IO :: Socket :: INET', que é um truque padrão de golfe Perl para reduzir o impacto de inevitáveis ​​identificadores longos. Nomeando alguns dos temporários, o código é equivalente a isso:

use IO::Socket::INET;
$h = shift;
$p1 = shift;
$p2 = shift;
@_ = grep IO::Socket::INET->new("$h:$_"), ($p1 .. $p2);
say "@_";

Em poucas palavras: leia os argumentos do host e do intervalo de portas na linha de comando; tente uma conexão com todos eles em sequence ( IO::Socket::INET->new()); mantenha uma lista daqueles que conseguiram ( grep); exibir o resultado bem ( say).

sh / nmap / GNU grep / xargs - 36

nmap -p$2-$3 $1|grep -Po '^\d+'|xargs

Segue as especificações de entrada e saída:

$ sh 1109.sh 127.0.0.1 1 80
22 25 80

Ruby - 85

require"socket"
h,p,e=$*
p.upto(e){|p|begin
TCPSocket.new h,p
$><<"#{p} "
rescue
end}

BASH - 105

No BASH puro (ou seja, sem nmap ou netcat).

exec 2>&- && exec 2<> /dev/null
for p in $(seq $2 $3); do
    > /dev/tcp/$1/$p &&
    echo -n "$p "
done

Ao usar com um endereço que não seja o host local, o tempo limite é bastante longo (na ordem de minutos) ao encontrar uma porta fechada; portanto, é provável que algum tipo de função de tempo limite / alarme seja necessária.

PHP - 70

<?for(list(,$h,$p,$e)=$argv;$p<=$e;++$p)@fsockopen($h,$p)&&print"$p ";

Perl, 178

Eu sou novo no Perl, qualquer conselho sobre redução é apreciado!

use IO::Socket::INET;for($x=$ARGV[1];$x<$ARGV[2]+1;$x++){if(fork()){if($sock=new IO::Socket::INET(PeerAddr=>$ARGV[0],PeerPort=>$x,Proto=>'tcp')){print"$x ";}close($sock);exit;}}