proxy tool

[Talley Anonymous Remailer <nobody () talley remailer org>]

hiya all,
Ok well after been bored 2nite I thought i would code a qwick tool to
check for proxy/wingates..I couldn't really seem to find one out there 
for *nix. but i suppose if u got nmap running it really don't matter.
Anyway been bored I started coding..decided to share the results..
feel free to rip apart/modify..if it's any use to you use it!

any comments;
feel free to mail me: deadbeat () sdf lonestar org

Greetz,

AnG3rY_sQ1ruL

any comments? feel free to mail me: deadbeat () sdf lonestar org

-------------------snippy snippy------------------------------
#!/usr/bin/perl


#Greetz,

#Here is a proxy check script for perl...written for both *nix and

#windows systems... Hope U'll Find it of some use....

#Written by kazper a.k.a AnG3rY_sQ1ruL : NetW0rK_gh0$ts M0b...

#Shouts: Hiya Y'aLL... N e 1 who knoW's me. :)






use Socket;

$port1 = "80";

$port2 = "81";

$port3 = "88";

$port4 = "1080";

$port5 = "1745";

$port6 = "3128";

$port7 = "8000";

$port8 = "8001";

$port9 = "8002";

$port10 = "8080";


sub scan_host

{

        $port = $_[0];

        $remote = $_[1];

        if ($port =~ /\D/) { $port = getservbyname($port, 'tcp'); }

        die("\nNo port specified.\n") unless $port;

        $iaddr = inet_aton($remote) || die("\nFailed to find host: $remote\n");

        $paddr = sockaddr_in($port, $iaddr);

        $proto = getprotobyname('tcp');

        socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die("\nFailed to open socket: $!\n");

        if(connect(SOCK, $paddr))# || die("Unable to connect: $!");

        {

                print "\nMaYb PhuN on p0rT: $port\n";

        }

        close(SOCK);

}

if (!$ARGV[0]) {
        
        print "\nChecks host for proxy capabilities... ;).";
        
        print "\nWritten by kazper a.k.a AnG3rY_sQ1ruL : NetW0rK_gh0sts M0b...";
        
        print "\nUsage:perl $0 <host> \n";
        
        exit;

}

$host = $ARGV[0];

$time = localtime(time);

print "\nScanning $host at $time\n";

scan_host($port1, $host);

#scan_host($port2, $host);

#scan_host($port3, $host);

scan_host($port4, $host);

scan_host($port5, $host);

#scan_host($port6, $host);

scan_host($port7, $host);

scan_host($port8, $host);

scan_host($port9, $host);

scan_host($port10, $host);

print "\nDone, now go and haf phun..\n";

------------------------------------snippy snippy-------------------------