H3llGhost+2008-06-07 22:30:05--
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
use strict;
use warnings;
use IO::Socket;
use IO::Select;
use IO::Handle;
my $g_masterserver_address = "*.*.*.*";
my $g_masterserver_port = "27501";
my $timeout = 0;
my $address = $g_masterserver_address;
my $port = $g_masterserver_port;
my $dest = sockaddr_in($port, inet_aton($address));
my ($rin, $rout, $test);
my $msg = chr(0xff).chr(0xff)."Z".chr(0xff);
my $s_socket;
my $proto = getprotobyname('udp');
socket($s_socket, AF_INET, SOCK_DGRAM, $proto);
my $bytes = send($s_socket, $msg, 0, $dest);
print("sent $bytes bytes to '$address:$port'");
my $buffer = '';
my $s_output;
while (my $rc = $s_socket->recv($s_output, 1024) ) {
print $s_output;
$buffer .= $s_output;
}
exit(0);
Danke für die IP-Adresse. Schön zu wissen, dass dort kein Paketfilter aktiv ist...
Wenn das nächste mal dieser Port offen ist, werd ich deinen Server erstmal
lahmlegen, denn $buffer kann ja wachsen bis dein Server aus allen nähten
platzt :D
//
ModEdit GwenDragon: IP anonymisiert