-
February 7th, 2003, 04:48 PM
#1
WideRange IP Scanner
Hey guys/gals,
| I just wrote this lil' script this morning...
| Maybe, i thought, some AO members could use it...
| Not documented too well, sorry :-(
| hope you enjoy...
Code:
use IO::Socket;
my ($line, $port, $sock, @servers);
print "\n\tWideRange PortScanner\n";
print "\n\tThis Script was written in TampaBay\n";
print "\tunix.server\@netzero.com\n";
print "\nPlease enter Main IP Range\n";
print "\t???.???.???.___\n";
print "> ";
$iprange = <STDIN>;
chomp $iprange;
print "\nEnter Starting point\n\t___.___.___.???\n> ";
$ipstart = <STDIN>;
chomp $ipstart;
print "\nEnter Ending point\n\t___.___.___.???\n> ";
$ipend = <STDIN>;
chomp $ipend;
print "\nEnter Port to poke.\n> ";
$port = <STDIN>;
chomp $port;
print "Action\tIP\t\tPort\tResult\n";
print "------\t--\t\t----\t------\n";
for ($i = $ipstart; $i <= $ipend ; $i++) {
print "poking\t" . $iprange . $i . " ";
$server = $iprange . $i;
$sock = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp');
if ($sock) {
print "\t$port\tpassed\n";
# Add Code To Log IP
# Add Code To Test Services
} else {
print "\t$port\tfailed\n";
}
}
print "\n\tDONE!\n";
-take it easy :-)
yeah, I\'m gonna need that by friday...
-
April 7th, 2003, 04:10 PM
#2
[glowpurple]kool thx dood[/glowpurple]
-
April 7th, 2003, 05:08 PM
#3
Junior Member
I have seen so many twists and turns,
No wonder I bend rules Easily )
-
April 7th, 2003, 05:50 PM
#4
-
April 8th, 2003, 03:42 PM
#5
iz this sorta like ..................
kinda like sub7 ip scanner cept it's lookin just 4 the server ;p
thx 1ce again
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
|