#!/usr/bin/perl
#
# Usage :
#
#  sockscan2.pl <SOCKSFILE> <TARGET> <STARTPORT> <ENDPORT>
#
#
# written by SnakeByte [ SnakeByte@kryptocrew.de ]
# www.kryptocrew.de/snakebyte/
#

use Net::SOCKS;

if ( @ARGV != 4 ) {
    print "\nThis tool performs a portscan on a host,\n";
    print "and to make it possible, to defeat an IDS , which\n";
    print "by scanning from various socks proxies\n";
    print "written by SnakeByte [Snakebyte\@kryptocrew.de]\n\n";
    print "Usage : \n";
    print "sockscan2 <SOCKSFILE> <TARGET> <STARTPORT> <ENDPORT>\n\n";
    exit;
}

print "sockscan2 by SnakeByte [ SnakeByte\@kryptocrew.de ]\n";

$proxyfile = @ARGV[0];
$target    = @ARGV[1];
$startport = @ARGV[2];
$endport   = @ARGV[3];

print "scanning $target ...\n";
open( FILE, "<$proxyfile" );
@proxylist = <FILE>;
close FILE;

$a = -1;

for ( $i = $startport ; $i <= $endport ; $i++ ) {

    $a++;
    if ( $a <= (@proxylist) ) { $a = 0; }
    ( $proxy, $proxyport ) = split( ":", @proxylist[$a] );

    my $sock = new Net::SOCKS(
        socks_addr       => $proxy,
        socks_port       => $proxyport,
        protocol_version => 4
    );

    $f = $sock->connect( peer_addr => $target, peer_port => $i );

    if ( $sock->param('status_num') == SOCKS_OKAY ) {
        print "--- Port $i open ! --- \n";
    }
    $sock->close();
}

print "\nScan finished..\n";