3. Zone-H Reporter
Páginas: [1]   Ir Abajo
« anterior próximo »

Zone-H Reporter

  • 0 Respuestas
  • 2828 Vistas

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

Desconectado Dedalo

  • *
  • Underc0der
  • Mensajes: 117
  • Actividad:
    0%
  • Reputación 0
  • KUSH
  • Twitter: https://twitter.com/SeguridadBlanca
    • Ver Perfil
    • Twitter Personal

Zone-H Reporter

  • en: Junio 30, 2012, 04:44:53 pm
Esta t00l es un poco priv8 no muchos la tienen me la pasó un amigo hace un timesito y se las comparto para los que son defacers puedan reportar de manera mas rápida sus ataques...


Código: Perl
  1. #!/usr/bin/perl
  2.  
  3. #####################################
  4. #               Zone-H Notify                                          #                            
  5. #####################################
  6.  
  7. ############
  8. use LWP::UserAgent;
  9. ############
  10. system('cls');
  11. system ('title Powered By PrinceofHacking');
  12. ############
  13.  
  14. print "                         #####################\n   ";
  15. print "                      #    Zone-Notify    #\n  ";
  16. print "                       #        USO        #\n  ";
  17. print "                       # [1] Single Deface #\n";
  18. print "                         # [2] Mass   Deface #\n";
  19. print "                         # [3] Help & About  #\n";
  20. print "                         #####################\n\n   ";
  21.  
  22. $pick=<STDIN>;
  23. if ($pick>3) {
  24. print "Unknown Command\n";
  25. }
  26. if ($pick ==1)
  27. {
  28.  
  29. print "Mode : Single Deface\n\n";
  30. print "Defacer [Nickname] :\n";
  31. $Def=<STDIN>;
  32. print "Dominio:\n";
  33. $Dom=<STDIN>;
  34. if ($Dom =~ /http:\/\//)
  35. {
  36. $U="http://zone-h.org/notify/single";
  37. $lwp=LWP::UserAgent->new;
  38. $res=$lwp  -> post($U,[
  39. 'defacer'     => $Def,
  40. 'domain1'   => $Dom,
  41. 'hackmode' => '15',
  42. 'reason'       => '1',
  43. 'submit'       => 'Send',
  44. ]);
  45. if ($res->content =~ /color="red">(.*)<\/font><\/li>/) {
  46. print "Result => $1";
  47. }
  48. else
  49. {
  50. print "Error\n";
  51. }
  52. }
  53. else
  54. {
  55. $new="http://" . "$Dom";
  56. $U="http://zone-h.org/notify/single";
  57. $lwp=LWP::UserAgent->new;
  58. $res=$lwp  -> post($U,[
  59. 'defacer'     => $Def,
  60. 'domain1'   => $new,
  61. 'hackmode' => '15',
  62. 'reason'       => '1',
  63. 'submit'       => 'Send',
  64. ]);
  65. if ($res->content =~ /color="red">(.*)<\/font><\/li>/) {
  66. print "Result => $1";
  67. }
  68. else
  69. {
  70. print "Error\n";
  71. }
  72. }
  73. }
  74. #############################################Mass###########################################
  75. if ($pick == 2){
  76. print "Mode : Mass Deface\n\n";
  77. open(site,"owned.txt");
  78.  
  79. @ARRAY=<site>;
  80.  
  81. close site;
  82. print "Defacer [Nickname] :\n";
  83. $Def=<STDIN>;
  84. foreach $mass(@ARRAY){
  85. if ($mass !~ /http:/) {
  86. $mass='http://' . $mass;
  87. }
  88. print "$mass\n";
  89.  
  90. $U="http://zone-h.org/notify/single";
  91. $lwp=LWP::UserAgent->new;
  92. $res=$lwp  -> post($U,[
  93. 'defacer'     => $Def,
  94. 'domain1'   => $mass,
  95. 'hackmode' => '15',
  96. 'reason'       => '1',
  97. 'submit'       => 'Send',
  98. ]);
  99. if ($res->content =~ /color="red">(.*)<\/font><\/li>/) {
  100. print "Result => $1\n\n";
  101. }
  102. else
  103. {
  104. print "Error\n";
  105. }
  106. }
  107. }
  108. #####################About##############
  109. if ($pick ==3)
  110. {
  111. print "Para la opcion [2] crear un texto con las paginas y guardarlo como : owned.txt\n";
  112. print "Example\n";
  113. print "http://link.com\n";
  114. print "http://link2.com\n";
  115. print "http://link3.com\n\n";
  116. }


Saludos,
Dedalo
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »