Форум АНТИЧАТ - [PERL] Сканер портов. Требуется помощь

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - [PERL] Сканер портов. Требуется помощь (https://forum.antichat.xyz/showthread.php?t=90289)

[PERL] Сканер портов. Требуется помощь

Есть сканер портов на перле...сканит диапазон ипов на один открытый порт...скорость откровенно крейсерная... поправьте ошибки и помогите прикрутить многопоточность

Код:

#!/usr/bin/perl



use IO::Socket;

use threads;

use threads::shared;

print "Enter Start Host: ";

my $startip=<STDIN>;

print "Enter End Host: ";

my $endip=<STDIN>;



checkrange();

sub checkrange 

{

print "\n Start scaning...\n\n";

my @flist=split(/\./, $startip);

my @tlist=split(/\./, $endip);

my $fip=$flist[0]*256*256*256+$flist[1]*256*256+$flist[2]*256+$flist[3];

my $tip=$tlist[0]*256*256*256+$tlist[1]*256*256+$tlist[2]*256+$tlist[3];





for (my $i=$fip; $i<=$tip; $i++) {

        my $tmp=$i;

        my $d1=int($tmp / (256*256*256)); $tmp=$tmp-$d1*(256*256*256);

        my $d2=int($tmp / (256*256)); $tmp=$tmp-$d2*(256*256);

        my $d3=int($tmp / 256); $tmp=$tmp-$d3*256;

        my $d4=$tmp;

        my $ip="$d1.$d2.$d3.$d4";  

        sock($ip);

} 

        sub sock {        

        my $sock = new IO::Socket::INET 

                (

                PeerAddr => $_[0],

                   PeerPort => '80', 

                   PeerProto => 'tcp', 

                   t => '5',

                );

                if($sock) { 

                           print "$_[0] is Good\n"; 

                                  }else{ 

                                   print"$_[0] is Bad\n"

                                  } 

                                  }

                                  

                        }

print "Scaning finished. Press Enter to exit.";

 $exit = <STDIN>;

Тут недавно вроде как уже был подобный вопрос...исходники тоже есть)

я прошу поправить конкретно мой случай

люди ну ап в конце концов...репой не обижу

ненавижу перл! перл учат лохи. (c) KSURi.

Цитата:

ненавижу перл! перл учат лохи. (c) KSURi.

Чоткие пасаны все кодят на асме?

Kaimi ты же прошарен в перле...помоги новичку освоиться в нём

Нене...чоткее пасаны ждут похапе 6 и собираются кодить на нем... =\

чоткие патсаны на кубейсеке кодят
какой то страшный код, особенно вот это повергло в шок
my $fip=$flist[0]*256*256*256+$flist[1]*256*256+$flist[2]*256+$flist[3];
=\\\ это что за пздц? я даже код боюсь разбирать

Помню слип писал небольшой сканер ипов по порту, поищи
Мб канеш с этим кто то поможет, но не я =(

Меня пугает код) + Дофига сканеров портов по диапазону быстрых, зачем именно на перле