#!/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;
 }