summaryrefslogtreecommitdiff
path: root/software/tests/beacon/decode.pl
blob: 2d570c0869f97ab3d4be6f6123c537f810c3c9db (plain) (blame)
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#!/usr/bin/perl -w

use strict;
use MIME::Base32 qw( RFC ); 

my @beacons;
if(!$ARGV[0] || $ARGV[0] eq "-") {
  @beacons = <STDIN>;
} else {
  open(my $fh, "<", $ARGV[0]) or die "Unable to open file " . $ARGV[0];
  @beacons = <$fh>;  
  close($fh)
}

foreach(@beacons) { 
  my $beacon = $_;
  $beacon =~ s/\s*$//g; 
  $beacon =~ s/^\s*//g; 

  if($beacon =~ /([^ ]+) ([A-Z2-7]{3}) ([A-Z2-7])/) {
    my $preamble = $1;
    my $cnt = $2;
    my $checksum = $3;

    my $cntval = unpack("n", MIME::Base32::decode($cnt . "=")) >> 1;
    my $csval_recv = unpack("C", MIME::Base32::decode($checksum . "=")) >> 3;

    my $csval_calc = 0;
    my @values = unpack("C*", $preamble);
    @values = (@values, unpack("C*", $cnt));
    foreach(@values) { $csval_calc ^= $_ - ord(' '); }
    $csval_calc = ($csval_calc & 0x1F) ^ (($csval_calc & 0x20) >> 5);
   
    print $beacon . " ->  cnt: " . sprintf("%04X", $cntval);
    if($csval_calc != $csval_recv) {
      print "  checksom wrong! (" . sprintf("%02X", $csval_recv) . " vs. " . sprintf("%02X", $csval_calc) . ")\n";
    } else {
      print "  checksom ok! (" . sprintf("%02X", $csval_recv) . ")\n";
    }


  } else {
    print $beacon . " -> Beacon format error!\n";
  }


}