Vulnerability Development mailing list archives
proxy tool
From: Talley Anonymous Remailer <nobody () talley remailer org>
Date: 15 Dec 2001 02:05:21 -0000
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-------------------------
Current thread:
- proxy tool Talley Anonymous Remailer (Dec 14)
- Re: proxy tool Steve De Doncker (Dec 15)
- Re: proxy tool Valdis . Kletnieks (Dec 15)
- Re: proxy tool Michel Arboi (Dec 15)