#!/usr/bin/perl
############################################
use IO::Socket;
#--------------Utilisation--------------#
if(@ARGV != 4){
print "
+------------------------------------------------------------------------------+
+------------Exploit for addition of reputation to the user--------------------+
+------------------------------------------------------------------------------+
+            Usage: pribavrepi.pl <host> <path> <port> <username>            +
+------------------------------------------------------------------------------+
+ <host>        => The host where forum is installed    |  [Ex: site.com]   +
+ <path>        => Path of the forum board              |  [Ex: /forum/]    +
+ <port>        => Forum board port                     |  [Default is 80]  +
+ <username>    => You username                         |  [Ex: MasterLamer]+
+------------------------------------------------------------------------------+
";exit();}
#--------------Data--------------#
$host      = $ARGV[0];
$path      = $ARGV[1];
$full      = "$host"."$path";
$port      = $ARGV[2];
$username  = $ARGV[3];
$OK        = 0;
$referer    = "http://"."$host"."$path"."login.php?redirect=";
$postit    = "$path"."login.php";
#--------------Hello world-----------------#
print "
+---------------------------------------------------------+
+---------- At present your reputation increases! --------+
+---------------------------------------------------------+

            [+] Username            | $username
            [+] Forum               | $host
            [+] Port                | $port
+---------------------------------------------------------+\n\n";

$i=0 ;
while ($i <= 100) {
    print "+";
          $send = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "www.voyageur2005.yandex.ru", PeerPort => "80");
          $i++;
          }
    print "\n Your reputation is raised on 100!!! ";

exit();