WideRange IP Scanner
Results 1 to 5 of 5

Thread: WideRange IP Scanner

  1. #1
    Senior Member tampabay420's Avatar
    Join Date
    Aug 2002
    Posts
    953

    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...

  2. #2
    Banned
    Join Date
    Sep 2002
    Posts
    17
    [glowpurple]kool thx dood[/glowpurple]

  3. #3
    Junior Member
    Join Date
    Mar 2002
    Posts
    12
    Quite useful !!!
    I have seen so many twists and turns,
    No wonder I bend rules Easily )

  4. #4
    Senior Member tampabay420's Avatar
    Join Date
    Aug 2002
    Posts
    953
    hey, wow- someone actually like it
    took a while for anyone to notice
    ------------------------------------------------>
    Perl is great IMO, very cut&paste friendly...
    just add remove the code you like to build
    custom probing applications... great for
    security audit against common exploits...
    ------------------------------------------------>
    Example: I ran an audit on a computer
    programming club(s) network... Looking
    for common exploits, it checked certain
    ports running what services looking for
    known attack method(s) - one of the scans
    looked for that semi-new WebDav vuln...
    anyway- it was more of a test for the app
    - their server(s) were all running the latest
    patches (linux) so they were fine
    ------------------------------------------------>
    hope you like the code... and if any one
    would like some help with a script like
    this, that would make for an interesting
    thread
    ------------------------------------------------>
    -take it easy
    yeah, I\'m gonna need that by friday...

  5. #5
    Banned
    Join Date
    Sep 2002
    Posts
    17

    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
  •