Writing a port scanner...

Hmm....when I actually started using the script I ran across some things that didn't work quite right, so here is the updated fixed script with the original functionality (some of which I removed from the one I posted)

/nebulus

#The following code was taken out of an old 2600 I found under my bed :-)
#Print's Header information from a http request.

use HTTP::Response;
use LWP::UserAgent;
my $au = new LWP::UserAgent;
$au->agent('891681651651_981651651651');
my $req = new HTTP::Request(GET, "http://$ARGV[0]");
print $headers = $au->request($req)->headers_as_string;

For those of you that like the code and are using it, i thought it would be helpful if you guys had a list of the ports and common services associated with those ports... You can find a lit of such services here at http://www.hackerwhacker.com/portslist.html ... I hope this helps...

I just added a little feature to your code that is useful to me, sending the output to a file. You could always redirect it, but I figure things should all be contained in the code. It's just a simple:
open(PORTS, ">ports.log") || die "Can't open output file.\n";
then adding PORTS between the print statement and the text like
print PORTS "::$port [passed]::\n";

For you sys admins, this could even be exteneded to naming the file "$ENV{'computername'}-ports.log" (in win2k anyway)(choose the proper environment var. for your OS), saving it to a shared folder and deploying it as part of the login script. It would have to run at night or something since it takes some time....
Lots of great uses for this scanner. Excellent work!

Is this code not for windows.If you know any C# could you try to do your next tutorial in this language.That is about the only language I am familiar with besides some smaller languages.

Cool What did you write it in, man? Looks like perl, the thing about me is that once I get used to a language I get bored of it then completly forget everything I've learned once I've managed to move onto something else. lol

I haven't developed too many tools until now, but this is a nice addition to my small, but expanding collection.

THX for the info.