Broadcastdaten vom Netz holen (IPv4) (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]16274[/thread]

Broadcastdaten vom Netz holen (IPv4)

Tags: perl5 socket broadcast IO::Socket::INET IPv4 unpack endian Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+3 replies
JoeMiller

2011-05-11 10:13
User since
2011-04-20
3 Artikel
BenutzerIn
Hallo zusammen,

ich versuche, Daten vom Netz zu holen. Diese Daten werden per UDP-Broadcast ins Subnetz gespült. Im tcpdump auf eth0 sieht das so aus:
Code: (dl )

1 2 3 4 5 6

11:03:15.885446 IP 10.40.3.5.2000 > 10.40.3.255.2000: UDP, length 1020 11:03:15.932432 IP 10.40.3.5.2000 > 10.40.3.255.2000: UDP, length 598 11:03:15.975834 IP 10.40.3.5.2000 > 10.40.3.255.2000: UDP, length 1025 11:03:16.025577 IP 10.40.3.5.2000 > 10.40.3.255.2000: UDP, length 1024 11:03:16.072304 IP 10.40.3.5.2000 > 10.40.3.255.2000: UDP, length 178 11:03:16.105481 IP 10.40.3.5.2000 > 10.40.3.255.2000: UDP, length 960
Mein Linux-Rechner hat die Adresse 10.40.3.250:
Code: (dl )

1 2

eth0 Link encap:Ethernet Hardware Adresse 00:19:99:xx:xx:xx inet Adresse:10.40.3.250 Bcast:10.40.3.255 Maske:255.255.255.0
mein Perl5.10.0-Ansatz hierzu sieht wie folgt aus:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

#!/usr/bin/perl use strict; use warnings; use IO::Socket; my($sock, $nachricht, $maxlen, $portno); my $maxlen=1024; $sock = IO::Socket::INET -> new ( PeerAddr => '10.40.3.255', PeerPort => 2000, # LocalAddr => '10.40.3.250', Broadcast => 1, Proto => 'udp') or die "socket-problem: $@"; while ($sock->recv($nachricht, $MAXLEN)) { print "Message: %0x\n", $nachricht; } close($sock);
aber bei $sock->recv wartet das Programm auf Daten und bekommt keine. Mit LocalAddr geht's auch nicht, und es spielt auch keine Rolle ob ich Broadcast=1 angebe oder nicht.

Ich bin sicher, dass ich kurz vor der Lösung stehe, aber mal wieder einen kleinen Denkfehler drin hab. Daher bitte ich euch um Hilfe. Wo liegt das Problem?

Sobald der Socket Daten empfängt, hab ich übrigens das nächste Problem: Die Daten werden byteweise vertauscht sein. Also statt 0xAABBCCDD werde ich 0xBBAADDCC erhalten. Ich hab früher viel Assembler programmiert, aber im Zusammenhang mit Netzwerken hätte ich diese LittleEndian-/BigEndian-Problematik am wenigsten erwartet... wie auch immer.
Kann ich dem socket gleich noch ein unpack("S"...)oder was ähnliches mit auf den Weg geben? Und was passiert, wenn ein Paket eine ungerade Anzahl an Bytes lang ist?

Herzlichen Dank schonmal vorab.
- rosti
  
  2011-05-11 10:47
  
  User since
  2011-03-19
  3747 Artikel
  BenutzerIn
  
  Little/Big Endian: Das ist abhängig von der Rechner-Architektur.
  
  Aus >perldoc -f pack
  
  Quote
  Some systems may have even weirder byte orders such as
  
  0x56 0x78 0x12 0x34
  0x34 0x12 0x78 0x56
  
  You can see your system's preference with
  
  print join(" ", map { sprintf "%#02x", $_ }
  unpack("C*",pack("L",0x12345678))), "\n";
  
  Unabhängig von der Architektur (big/little E.) sind für numerische Werte de pack()-Schablonen: "N" Network-Order, big-endian, "V" Vax-Order, little-endian. Damit kannst Du die Order auch umdrehen.
  
  Socket: Du machst ein Socket auf in Deinem Script. Wenn beim Lesen des Socket/Handle nichts kommt, liegt es daran, dass der Server nichts sendet.
  
  Je nachdem, was für ein Protocol gefahren wird, bei HTTP ists z.B. so, dass erst der Request in das Socket geschrieben wird und danach wird die Response aus dem Socket gelesen.
  
  HTTP läuft jedoch über TCP, in Sachen UDP habe ich per Socket/Perl noch nichts gemacht. Hier müsste ich mich auch erst einlesen.
  
  https://www.rolfrost.de/
  
  Forum zu Fragen unserer Zeit
- Gast Gast
  
  2011-05-11 12:17
  Peer addr braucst du nicht => ist zum senden
  Local addr muss die von deinem interface sein.
  
  broadcast msg kommen dann von selbst bei dir an. der IP stack reicht die hoch da sie ja broadcast sind.
  
  das folgende script tut. kannst du mit
  
  nc -b -u <IP> 2000
  
  testen
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  #!/usr/bin/perl -w # udpqotd - UDP message server use strict; use IO::Socket; my($sock, $oldmsg, $newmsg, $hisaddr, $hishost, $MAXLEN, $PORTNO); $MAXLEN = 1024; $PORTNO = 2000; $sock = IO::Socket::INET->new(LocalPort => $PORTNO, Proto => 'udp') or die "socket: $@"; print "Awaiting UDP messages on port $PORTNO\n"; $oldmsg = "This is the starting message."; while ($sock->recv($newmsg, $MAXLEN)) { my($port, $ipaddr) = sockaddr_in($sock->peername); $hishost = gethostbyaddr($ipaddr, AF_INET); print "Client $hishost said ``$newmsg''\n"; $sock->send($oldmsg); $oldmsg = "[$hishost] $newmsg"; } die "recv: $!"
  
  Last edited: 2011-05-11 12:46:58 +0200 (CEST)

View all threads created 2011-05-11 10:13.