ANTICHAT - Показать сообщение отдельно

Цитата:

Сообщение от [sL1p]

Сканер портов бай ми. Тренируюсь(:

PHP код:


		
			
#!/usr/bin/perl

use warnings;

use strict;

use IO::Socket;



print "Enter IP adress: ";

my $ip_addr = <STDIN>;



print "Enter Port's Range: ";

my $al = <STDIN>;



print "Choose Protocol (tcp/udp): ";

my $PRT = <STDIN>;



my ($from, $to) = split(/-/,$al);



open (RS,">results.txt");



chomp($ip_addr,$from,$PRT);



print "\n[~] Scaning in procces..\n";



while ($from <= $to)

{

my $sock = new IO::Socket::INET -> new(Proto => $PRT, PeerPort => $from, PeerAddr => $ip_addr, timeout => 10);

    

    if (!$sock)

    {

        print RS $ip_addr,":",$from, "- Closing\n";

        $from++;

    }

    

    else

    {

        print RS $ip_addr,":",$from, "- Opened!\n";

        $from++;

    }

}



print "[!] Scaning over!\n";

close RS;

Пишете ИП, Диапазон портов в виде 1-888, и выбираете протокол. Tcp/udp.

а можно наоборот чтоб диапазон ипов на открытие одно порта сканило