Требуется сканер портов на perl

[Stingers]

сабж. есть у кого?

[Sharky]

в теме "Полезные скрипты" выкладывали...ищи там

[alextoun]

#!/usr/bin/perl -w
use strict;
use List::Util qw(shuffle);
use Net::RawIP;
use Net::Pcap;
use NetPacket::Ethernet qw(eth_strip);
use NetPacket::IP qw(ip_strip);
use NetPacket::TCP;
use Time::HiRes qw(sleep);
use subs qw(time);

my (@ports, $daddr, $saddr, $data, $dev, $tscan, $err, $pid);
my $tcpflags = {fin => 0, rst => 0, psh => 0,
syn => 0, ack => 0, urg => 0,};

&Usage() if($ARGV[0] eq "-h");
$daddr = $ARGV[0];

for (my $i = 1; $i < $#ARGV; $i += 2) {
if ($ARGV[$i] eq "-p") {
if ($ARGV[$i+1] =~ /-/) {
push(@ports, $_) for($` .. $');
} elsif ($ARGV[$i+1] =~ /,/) {
@ports = split(/,/, $ARGV[$i+1]);
} else {
push(@ports, $ARGV[$i+1]);
}
@ports = shuffle(@ports); #be sneaky
} elsif ($ARGV[$i] eq "-f") {
$tcpflags->{$_} = 1 for(split(/,/, $ARGV[$i+1]));
} elsif ($ARGV[$i] eq "-s") {
$saddr = $ARGV[$i+1];
} elsif ($ARGV[$i] eq "-i") {
$dev = $ARGV[$i+1];
} elsif ($ARGV[$i] eq "-t") {
$tscan = $ARGV[$i+1];
} elsif ($ARGV[$i] eq "-d") {
$data = $ARGV[$i+1];
}
}

unless(defined($dev)) {
$dev = Net::Pcap::lookupdev(\$err);
}
unless(defined($saddr)) {
`ifconfig $dev` =~ /inet addr:([\d.]+)/;
$saddr = $1;
}
unless(defined($tscan)) {
$tscan = 0.1 * ($#ports + 1);
}
unless(defined($data)) {
$data = 0;
}

if ($pid = fork()) {
sleep(0.5); #give pcap a chans to start
my $raw = Net::RawIP->new || die "$!\n";
my $stime = $tscan / ($#ports+1);
my $sport = 10001;
for (@ports) {
$raw->set({ip => {saddr => $saddr,
daddr => $daddr,},
tcp => {source => $sport,
dest => $_,
check => 0, #autocorrect cksum
psh => $tcpflags->{psh},
syn => $tcpflags->{syn},
urg => $tcpflags->{urg},
ack => $tcpflags->{ack},
rst => $tcpflags->{rst},
fin => $tcpflags->{fin},
data => $data,},
});
$raw->send();
sleep($stime);
}
waitpid($pid, 0);
} else {

my ($pcap, $filter, $net, $mask, $kid);
my %n = ('4' => 'RST', '18' => 'SYN_ACK', '20' => 'ACK_RST');

$pcap = Net::Pcap::open_live($dev, 1500, 0, 0, \$err) || die "$err\n";
Net::Pcap::lookupnet($dev, \$net, \$mask, \$err);
Net::Pcap::compile($pcap, \$filter, "tcp and src host $daddr", 1, $mask);
Net::Pcap::setfilter($pcap, $filter);
Net::Pcap::setnonblock($pcap, 0, \$err);

if ($kid = fork()) { #cause nonblocking reads doesnt work
sleep(1.0 + $tscan);
kill(1, $kid);
} else {
while(1) {
Net::Pcap::dispatch($pcap, -1, \&HandlePkt, '');
}
exit;
}
Net::Pcap::close($pcap);

sub HandlePkt {
my($res, $hdr, $pkt) = @_;
my $tcp = NetPacket::TCP->decode(ip_strip(eth_strip($pkt)));
print "port: $tcp->{src_port}\n";
print "resp: $n{$tcp->{flags}}\n";
print "data: $tcp->{data}\n\n" if ($tcp->{data});
}
exit;
}


sub Usage() {
print "\n Usage:\n";
print " perl sweepr.pl [TARGET] -p [PORTS] -f [FLAGS] -d [DATA] -i [NIC] -s [SOURCE] -t [TIME]\n";
print " TARGET (mandatory) : ip address of target on the form a.b.c.d\n";
print " PORTS (mandatory) : specify ports to scan like: a OR a-b OR a,b,c,d \n";
print " FLAGS (mandatory) : comma separated list of tcp flags to set\n";
print " DATA (optional) : tcp payload to be included in sent packets\n";
print " NIC (optional) : network interface card to use.\n";
print " SOURCE (optional) : ip address of source. your own if not specified\n";
print " TIME (optional) : do a slow scan. specify time to spend scanning\n";
print " Examples :\n";
print " Spend 1 hour syn scanning ports 20 to 139 on target 192.168.1.1\n";
print " >perl sweepr.pl 192.168.1.1 -p 20-139 -f syn -t 3600\n";
print " Do a syn,psh on target 192.168.1.1 and include a payload of crap\n";
print " >perl sweepr.pl 192.168.1.1 -p 139 -f syn,psh -d 'CRAP'\n";
exit;
}

ps попробуй на питоне
быстрее будет
#!/usr/bin/python

import commands, sys, getopt, StringIO, re, string, ftplib
from ftplib import *

tmp, args = getopt.getopt(sys.argv[1:],"")

def getopen():

nmap = StringIO.StringIO(commands.getstatusoutput('nmap -P0 '+host)[1]).readlines()
return nmap

def sock(plist):

for port in plist:
print "\nChecking port:",port
try:
import socket, time

s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s.settimeout(15)
s.connect((host, int(port)))
time.sleep(4)
s.send("\r\n")
response = s.recvfrom(1024)[0]
s.close()
if response:
print "++[ Response:",host,"on port",port,"\n"
print "\t",response
except socket.error, msg:
s.close()
print "An error occurred:", msg

def http(p):

import httplib
try:# make a http HEAD request
h = httplib.HTTP(host+":"+p)
h.putrequest("HEAD", "/")
h.putheader("Host", host)
h.endheaders()
status, reason, headers = h.getreply()
print "\nChecking port:",p
print "++[ Response:",host,"on port",p,"\n"
print "\t",headers.get("Server"),"\n"
except:
print "Error: Name or service not known. Check your host."
pass

def ftp(p):

try:
print "Checking for anonymous login on",host
ftp = FTP(host)
ftp.login()
ftp.retrlines('LIST')
print "\t\nAnonymous login successful on",host,"\n"
ftp.quit()
except (ftplib.all_errors), msg: print "An error occurred:", msg

#................................................

if args == []:
print "Usage: ./ipbanscan.py <host>"
else:
host = args[0]
plist = []
www = ["80","8000","8080"]
print "\t--------------------------------------------------\n"
print "\n\t\t.:[ Scanning",args[0],"]:.\n"
nmap = getopen()
for tmp in nmap:
if re.search("\d+/tcp\s+(?=open)", tmp):
port = re.findall("\d+", tmp)
if port: plist.append(port[0])
print "Ports open:",len(plist),"\n"
for p in www:
if p in plist:
http(p)
plist.remove(p)
if "21" in plist:
ftp(21)
if "23" in plist:
print "\n\tTelnet server found on port 23. brute?"
sock(["23"])
plist.remove("23")
sock(plist)

[Buffalon]

ЗАчем такой большой код... .пишешшь fsocetopen(...) и сморишь порты по одному ... ..Если подключился то порт открыт.... .

[genom--]

на perl - кривизна трындец - сканер - через lwp - строк на 30 можно накропать + потоки прикрутить намного быстрее будет

[Kaimi]

на perl - кривизна трындец - сканер - через lwp - строк на 30 можно накропать + потоки прикрутить намного быстрее будет

лвп с потоками любит вылетать, лучше уж сокеты тогда

[genom--]

лвп с потоками любит вылетать, лучше уж сокеты тогда
лудше вынуть руки из попы и научиться делать код меньше и быстрее - и он вылетает не оттого что он с потоками пашет --- сори если что
ps - у тебя вылетает или из-за твоего кода кривого или из-за кривой сборки perl

to true --- ага а порты это вообще не веб так просто фигня консольная и какаянить муть типо bla_bla.com:110 --- нам вернет index.php ))

[Kaimi]

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

В студию многопоточник на перле с использованием lwp который будет например содержимое страниц парсить и не вылетать на 200+ потоках

[Stingers]

мм... немного непоняли вы :) мне нада чтобы я вписал диапазон или список Ip для скана, указал поррт для скана и он полетел :) ЗЫ питона на хосте нету

[krypt3r]

Может, там nmap есть? :)

[genom--]

tru какое нах udp - иди учи матчасть
В студию многопоточник на перле с использованием lwp который будет например содержимое страниц парсить и не вылетать на 200+ потоках

каждый поток хрет прим 2-3 метра оперативы - умножь на свои 200 это раз
во вторых они едят проц тоже довольно хорошо это два
чтобы парсить страницы и чтобы полноценно работали все 200 потоков тебе такой невьепенный канал будет нужен что ого-го -- это три