كود:
[OPTIONS]
--help
--verbose be verbose for debugging
--ports ports to scan for
e.g : 80-90,8080-8090,443,23,22
--targets target hosts to scan for through proxy. Default is localhost
e.g: localhost,10.1.1.1-10.1.1.100,myhost.somedomain.com
--timeout timeout in seconds to wait for a response. default is 2 seconds
--delay delay in seconds between requests. Default is 0.5.
request method (CONNECT/GET/OPTIONS/TRACE/etc). default is GET ,Set proxy with environment variables *_proxy
e.g: export http_proxy=http://proxy.my.place:8080
كود:
#!/usr/bin/perl -w
# P R O X Y- S C A N ver0.1 $ 2007
use Getopt::Long;
use LWP::UserAgent;
use strict;
my $DEBUG;
my $ports;
my $targets;
my $proxy;
my $method;
my $delay;
my $timeout;
my $userAgent = "proxyScan/0.1";
######################################################################
# main()
&getArgs;
# process each target host separated by comma's.
foreach my $targetHost (split(/,/, $targets)) {
# check if it's an IP range
if ($targetHost
=~ /^(\d+\.\d+\.\d+\.\d+)-(\d+\.\d+\.\d+\.\d+)$/) {
# save start and end of range as decimal
my $startIp = &ip2dec($1);
my $endIp = &ip2dec($2);
# sanity check the range
if ($startIp > $endIp) {
print "$0: startIp is greater than endIp ";
print "in $targetHost\n";
die;
}
# iterate each IP address in the range
for (my $dec=$startIp; $dec <= $endIp; $dec++) {
# scan each IP by for each port
foreach my $targetPort (split(/,/, $ports)) {
# if the port is a range
if ($targetPort =~ /^(\d+)-(\d+)$/) {
my $startPort = $1;
my $endPort = $2;
if ($startPort > $endPort) {
print "$0: startPort is",
" greater than endPort",
" in $targetPort\n";
die;
}
for (my $port=$startPort;
$port <= $endPort; $port++) {
my $ip=&dec2ip($dec);
&scanPort($ip,$port);
}
# otherwise a single port
} else {
my $ip=&dec2ip($dec);
&scanPort($ip,$targetPort);
}
}
}
# process single IP's, or hostnames
} else {
# scan this host for each port
foreach my $targetPort (split(/,/, $ports)) {
# if the port is a range
if ($targetPort =~ /^(\d+)-(\d+)$/) {
my $startPort = $1;
my $endPort = $2;
if ($startPort > $endPort) {
print "$0: startPort is",
" greater than endPort",
" in $targetPort\n";
die;
}
for (my $port=$startPort;
$port <= $endPort; $port++) {
my $ip=$targetHost;
&scanPort($ip,$port);
}
# otherwise a single port
} else {
my $ip=$targetHost;
&scanPort($ip,$targetPort);
}
}
}
}
# the end, only funtions from here on
exit;
######################################################################
# Check and set options from command line args
#
sub getArgs() {
Getopt::Long::Configure('bundling',
'no_ignore_case');
my $optVerbose;
my $optHelp;
my $optPorts;
my $optTimeout;
my $optDelay;
my $optMethod;
my $optTargets;
GetOptions
("v|verbose" => \$optVerbose,
"h|help" => \$optHelp,
"p|ports=s" => \$optPorts,
"o|timout=s" => \$optTimeout,
"d|delay=s" => \$optDelay,
"m|method=s" => \$optMethod,
"t|targets=s" => \$optTargets);
if ($optHelp) { # then help / usage option
print "Usage: $0 [options below]\n";
print " ------------Q8Crackers----------------\n";
print "Options:\n";
print " --help",
"\tthis message.\n";
print " --verbose",
"\tbe verbose for debugging.\n";
print " --ports",
"\tports to scan for.\n";
print "\t\tExample: 80-90,8080-8090,443,23,22\n";
print " --targets",
"\ttarget hosts to scan for through proxy. Default is localhost.\n";
print "\t\tExample: localhost,10.1.1.1-10.1.1.100,myhost.somedomain.com\n";
print " --timeout",
"\ttimeout in seconds to wait for a response. default is 2 seconds\n";
print " --delay",
"\tdelay in seconds between requests. Default is 0.5.\n";
print " --method",
"\trequest method (CONNECT/GET/OPTIONS/TRACE/etc). default is GET.\n";
print "\n";
print "Set proxy with environment variables *_proxy. ";
print "Example: export http_proxy=http://proxy.my.place:8080/\n\n";
exit;
}
if ($optVerbose) { # set debugging / verbose output
$DEBUG=1;
} else {
# default
my $DEBUG=0;
}
if ($optPorts) { # ports to scan through
if ($optPorts =~ /^[\d,-]+$/) {
$ports = $optPorts;
} else {
die "$0: invalid ports.\n";
}
} else {
# default port to 80
$ports = "80";
}
if ($optTargets) { # target hosts to scan through proxy
if ($optTargets =~ /^[\d\w\.,-]+$/) {
$targets = $optTargets;
} else {
die "$0: invalid targets.\n";
}
} else {
# default targets to localhost only
$targets = "localhost";
}
if ($optTimeout) { # timout in secs for a response
if ($optTimeout =~ /^\d+$/) {
$timeout = $optTimeout;
} else {
die "$0: invalid timeout.\n";
}
} else {
# default timeout
$timeout = "2";
}
if ($optDelay) { # delay in secs between request
if ($optDelay =~ /^\d+$/) {
$delay = $optDelay;
} else {
die "$0: invalid delay.\n";
}
} else {
# default delay
$delay = "0.5";
}
if ($optMethod) { # HTTP method
if ($optMethod =~ /^\w+$/) {
$method = uc($optMethod);
} else {
die "$0: invalid method.\n";
}
} else {
# default method
$method = "GET";
}
}
######################################################################
# Scan for a target and port
#
sub scanPort() {
my $target = shift
|| die "$0: no target passed to scanPort()\n";
my $port = shift
|| die "$0: no port passed to scanPort()\n";
if ($target && $port) {
# Create a user agent object
my $ua = LWP::UserAgent->new;
$ua->agent("$userAgent ");
$ua->timeout($timeout);
$ua->env_proxy;
my $url = "http://".$target.":".$port;
if ($DEBUG) {
if ($ENV{http_proxy}) {
print "proxy = $ENV{http_proxy}\n";
} else {
print "proxy = [NOT SET]\n";
}
print "port = $port\n";
print "target = $target\n";
print "url = $url\n";
}
# Create a request
my $req = HTTP::Request->new($method => $url);
# Pass request to the user agent and get a response back
my $res = $ua->request($req);
# Check the outcome of the response
my $passFail;;
if ($res->is_success) {
$passFail="pass";
} else {
$passFail="fail";
}
print "result=\"$passFail\",";
print "URL=\"$url\",";
print "method=\"$method\",";
if ($ENV{http_proxy}) {
print "proxy=\"$ENV{http_proxy}\",";
} else {
print "proxy=\"[NOT SET]\",";
}
print "result=\"".$res->status_line, "\"\n";
# uncomment for the response content
#print $res->content;
# sleep a while based on the delay set
# the delay is important. without this LWP
# will send out request as fast as it can and
# we may miss the response.
sleep($delay);
} else {
die "$0: you must specify at least on host and one port\n";
}
}
######################################################################
# Convert IP addresses to decimal for use with ranges
#
sub ip2dec() {
my $hex;
my $ip = shift || return;
# Sanity check arguments and example regex of an IP address, almost.
if ($ip !~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ ) {
die "$0: Invalid IP address given to ip2dec - $ip\n";
}
# Convert to Hex
foreach my $octet (split(/\./,$ip, 4)) {
die "Invalid IP address given\n"
if($octet < 0 || $octet > 255);
$hex .= sprintf("%02x",$octet);
}
# Convert to decimal and return
return hex($hex);
}
######################################################################
# Convert Decimal to IP address
#
sub dec2ip {
my $dec = shift || return;
# Sanity check arguments
if ($dec !~ /^\d+$/ ) {
die "$0: Invalid decimal IP given to dec2ip - $dec\n";
}
my $hexagain = sprintf("%08x", $dec);
my $octet1 = substr($hexagain,0,2);
my $octet2 = substr($hexagain,2,2);
my $octet3 = substr($hexagain,4,2);
my $octet4 = substr($hexagain,6,2);
my $dec1 = hex($octet1);
my $dec2 = hex($octet2);
my $dec3 = hex($octet3);
my $dec4 = hex($octet4);
return "$dec1.$dec2.$dec3.$dec4";
}
رد: proxyScan (pl) v0.1
