[HaBo]

der_tabak · 15.10.11, 23:30

Ich habe ein Gerät im Netzwerk, dessen IP-Adresse ich nicht kenne, um diese nun Herauszufinden sende ich einen Broadcast, das Gerät antwortet ebenfalls mit einem Broadcast. In Wireshark kommt die Antwort von Gerät auch an, nur weiss ich nicht wie ich Perl dazu bringe den Broadcast zu empfangen:

Der Broadcast Richtung Perl->Gerät ist mit dem Zielport 6799.
Der Broadcast Richtung Gerät->Perl ist mit dem Zielport 6800.

Daher kommt am Rechner ein Broadcast am Port 6800 an.

Gegoogelt habe ich natürlich auch, und schon diverse Methoden durchprobiert.

Code:

my $buffer;
my $remote_addr;
my $socket = IO::Socket::INET->new(PeerAddr => '255.255.255.255:6799',
                                   Proto => 'udp',
                                   LocalAddr => Net::Address::IP::Local->public,
                                   LocalPort => 6800,
                                   Broadcast => 1) or die "Can't bind: $@\n";

$socket->send("find");

while(1) {
       $socket->recv($buffer, 128);

       $remote_addr = $socket->peerport();
       print "$remote_addr: $buffer\n";
}

Danke im Voraus.

// Edit: OK, habs hinbekommen:

Code:

my $socket = IO::Socket::INET->new(PeerAddr => '255.255.255.255:6799',
                                   Proto => 'udp',
                                   LocalAddr => Net::Address::IP::Local->public,
                                   LocalPort => 6800,
                                   Reuse => 1,
                                   Broadcast => 1) or die "Can't bind: $@\n";

my $broadcast_socket = IO::Socket::INET->new(Proto => 'udp',
                                             LocalPort => 6800,
                                             Reuse => 1,
                                             Broadcast => 1) or die "Can't bind: $@\n";

Anzeige

- Anzeige -

15.10.11, 23:30	#1 (permalink)
der_tabak Registriert seit: 25.04.08 Likes: 1	Perl, Sockets und Broadcasts Anzeige Ich habe ein Gerät im Netzwerk, dessen IP-Adresse ich nicht kenne, um diese nun Herauszufinden sende ich einen Broadcast, das Gerät antwortet ebenfalls mit einem Broadcast. In Wireshark kommt die Antwort von Gerät auch an, nur weiss ich nicht wie ich Perl dazu bringe den Broadcast zu empfangen: Der Broadcast Richtung Perl->Gerät ist mit dem Zielport 6799. Der Broadcast Richtung Gerät->Perl ist mit dem Zielport 6800. Daher kommt am Rechner ein Broadcast am Port 6800 an. Gegoogelt habe ich natürlich auch, und schon diverse Methoden durchprobiert. Code: my $buffer; my $remote_addr; my $socket = IO::Socket::INET->new(PeerAddr => '255.255.255.255:6799', Proto => 'udp', LocalAddr => Net::Address::IP::Local->public, LocalPort => 6800, Broadcast => 1) or die "Can't bind: $@\n"; $socket->send("find"); while(1) { $socket->recv($buffer, 128); $remote_addr = $socket->peerport(); print "$remote_addr: $buffer\n"; } Danke im Voraus. // Edit: OK, habs hinbekommen: Code: my $socket = IO::Socket::INET->new(PeerAddr => '255.255.255.255:6799', Proto => 'udp', LocalAddr => Net::Address::IP::Local->public, LocalPort => 6800, Reuse => 1, Broadcast => 1) or die "Can't bind: $@\n"; my $broadcast_socket = IO::Socket::INET->new(Proto => 'udp', LocalPort => 6800, Reuse => 1, Broadcast => 1) or die "Can't bind: $@\n"; Geändert von der_tabak (16.10.11 um 00:16 Uhr)

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
Perl - Sockets	ChiefWiggum	Code Kitchen	4	15.07.10 10:42
[C] Sockets	_Sam_	Code Kitchen	2	21.03.09 20:51
Sockets.	ChiefWiggum	Code Kitchen	7	16.11.08 19:32
Hardware Broadcasts werden verschluckt	blueflash	Network · LAN, WAN, Firewalls	5	15.07.07 15:06
Switch spinnt ?!? / Broadcasts im Netz bei E-Mule	Gizmo22	Network · LAN, WAN, Firewalls	5	08.02.04 18:59

[HaBo]

Perl, Sockets und Broadcasts