17.10.2007, 14:05
|
|
Leaders of Antichat - Level 4
Регистрация: 16.01.2006
Сообщений: 1,966
Провел на форуме:
21768337
Репутация:
3486
|
|
Сканер портов бай ми. Тренируюсь(:
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. |
|
|