|
Χρειάστηκα να ξαναγράψω απ' την αρχή ένα script σε Perl για να στέλνει το beacon μου σε ένα iGate και να δίνει internetικά το στίγμα μου. Μιας και το έκανα opensource σκέφτηκα να το μοιραστώ μαζί σας.
use IO::Socket; my $sock = new IO::Socket::INET ( PeerAddr => 'sv2bzq.dyndns.org', PeerPort => '1313', Proto => 'tcp', ); die "Could not create socket: $!\n" unless $sock; print $sock "user SW6JIV\n"; print $sock "SW6JIV>APRS:=3938.70N/02051.13E-- lef at hamradio.gr -- Homemade Auto Linux Beacon\n"; close($sock);
Σας δίνω ως έχει τον κώδικα. Εσείς το μόνο που έχετε να αλλάξετε είναι το CALLSIGN σας σε 2 μεριές, τις συντεταγμένες και το σχόλιο που θέλετε. Με ένα cronjob μπορεί να κάνει τη δουλειά αυτόματα. Θυμίζω πως καλείτε το αρχείο από κονσόλα/shell με
$ perl onomaarxeiou
και πως δεν σας δίνει output.
Για την ιστορία, η παραπάνω τεχνική λέγεται code injection αφού, ανοίγοντας ένα socket προς τον server που θέλουμε και στην προκαθορισμένη MSG πόρτα του, "επιθετικά" αποστέλουμε τα δεδομένα του APRS beacon μας.
Οποιαδήποτε διόρθωση, παρατήρηση ή ερώτηση, καλοδεχούμενη! |
