#!/usr/bin/perl
#
#
# This script has been tested with Wingate 4
# and performs a portscan over a wingate telnet proxy.

use IO::Socket;

$proxy     = "192.74.53.1";    # the wingate ( telnet proxy )
$proxyport = "23";             # port

$target    = "192.74.53.2";    # target host
$StartPort = 1;                # portrange we scan
$EndPort   = 100;

for ( $targetport = $StartPort ; $targetport <= $EndPort ; $targetport++ ) {
    print("Port $targetport ...");
    $s = IO::Socket::INET->new(
        PeerAddr => $proxy,
        PeerPort => $proxyport,
        Proto    => "tcp"
    ) || die "wingate down..\n";

    $send = "$target:$targetport\n";
    print $s "$send";

    $a = "";
    read $s, $a, 85;

    if ( $a =~ "Connected" ) {
        print " open !\n";
        # print "$a\n";
    }
    else {
        print " closed\n";
    }
    close $s;
}