|
|
| Line 5: |
Line 5: |
| | A [[Piñata Vision barcode/List of barcodes|list of barcodes]] is also available to go along with the script. | | A [[Piñata Vision barcode/List of barcodes|list of barcodes]] is also available to go along with the script. |
| | | | |
| − | The script is written in perl. Perl is generally installed on Mac or Linux operating systems, and binaries and documentation are available for many other systems. (If you're looking for a version of Perl for your system, the free [http://www.activestate.com/activeperl ActivePerl] Community Edition is recommended. | + | The script is written in Perl. Perl is generally installed on Mac or Linux operating systems, and binaries and documentation are available for many other systems. (If you're looking for a version of Perl for your system, the free [http://www.activestate.com/activeperl ActivePerl] Community Edition is recommended. |
| | | | |
| | If you have any questions about the script or the barcode in general, or if you make any barcode discoveries, please feel welcome to share them at the [http://pinataisland.info/forum/showthread.php?t=18745 forum]. Have fun delving into the secrets of the barcode! | | If you have any questions about the script or the barcode in general, or if you make any barcode discoveries, please feel welcome to share them at the [http://pinataisland.info/forum/showthread.php?t=18745 forum]. Have fun delving into the secrets of the barcode! |
| Line 34: |
Line 34: |
| | == Sample decoder script == | | == Sample decoder script == |
| | | | |
| − | <pre>
| + | The decoder script is hosted at GitHub: [http://github.com/pinatavision/pv-decoder github.com/pinatavision/pv-decoder] |
| − | #!/usr/bin/perl -w
| |
| − | | |
| − | use warnings;
| |
| − | use strict;
| |
| − | | |
| − | use feature "switch";
| |
| − | | |
| − | # Decode a barcode associated with a Piñata Vision (PV) card
| |
| − | | |
| − | # Version 1.0 05DEC2012 Kathryn Jensen
| |
| − | | |
| − | # More details about the barcode can be found at:
| |
| − | # http://pinataisland.info/viva/Pinata_Vision_barcode
| |
| − | | |
| − | # Data encoded within the barcode is obfuscated using three techniques/steps:
| |
| − | | |
| − | # 1. Shuffling (rearranging the order of bits), using a shuffle table
| |
| − | # 2. Negation (inverting various bits), using XOR with a bitmask
| |
| − | # 3. Logical transformation, using AND, OR, XOR on groups of 4 bits
| |
| − | | |
| − | # Each barcode row is individually obfuscated (based on its check digit),
| |
| − | # so there are 16 variations on how a row's bits can get obscured.
| |
| − | | |
| − | my @shuffle = (
| |
| − | [ 0, 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, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, ],
| |
| − | [ 0, 30, 1, 31, 2, 32, 3, 33, 4, 34, 5, 35, 6, 36, 7, 37, 8, 38, 9, 39, 10, 40, 11, 41, 12, 42, 13, 43, 14, 44, 15, 45, 16, 46, 17, 47, 18, 48, 19, 49, 20, 50, 21, 51, 22, 52, 23, 53, 24, 54, 25, 55, 26, 56, 27, 57, 28, 58, 29, 59, ],
| |
| − | [ 0, 20, 40, 1, 21, 41, 2, 22, 42, 3, 23, 43, 4, 24, 44, 5, 25, 45, 6, 26, 46, 7, 27, 47, 8, 28, 48, 9, 29, 49, 10, 30, 50, 11, 31, 51, 12, 32, 52, 13, 33, 53, 14, 34, 54, 15, 35, 55, 16, 36, 56, 17, 37, 57, 18, 38, 58, 19, 39, 59, ],
| |
| − | [ 0, 12, 24, 36, 48, 1, 13, 25, 37, 49, 2, 14, 26, 38, 50, 3, 15, 27, 39, 51, 4, 16, 28, 40, 52, 5, 17, 29, 41, 53, 6, 18, 30, 42, 54, 7, 19, 31, 43, 55, 8, 20, 32, 44, 56, 9, 21, 33, 45, 57, 10, 22, 34, 46, 58, 11, 23, 35, 47, 59, ],
| |
| − | [ 0, 9, 18, 27, 36, 44, 52, 1, 10, 19, 28, 37, 45, 53, 2, 11, 20, 29, 38, 46, 54, 3, 12, 21, 30, 39, 47, 55, 4, 13, 22, 31, 40, 48, 56, 5, 14, 23, 32, 41, 49, 57, 6, 15, 24, 33, 42, 50, 58, 7, 16, 25, 34, 43, 51, 59, 8, 17, 26, 35, ],
| |
| − | [ 0, 7, 14, 21, 28, 35, 42, 48, 54, 1, 8, 15, 22, 29, 36, 43, 49, 55, 2, 9, 16, 23, 30, 37, 44, 50, 56, 3, 10, 17, 24, 31, 38, 45, 51, 57, 4, 11, 18, 25, 32, 39, 46, 52, 58, 5, 12, 19, 26, 33, 40, 47, 53, 59, 6, 13, 20, 27, 34, 41, ],
| |
| − | [ 0, 6, 12, 18, 24, 30, 35, 40, 45, 50, 55, 1, 7, 13, 19, 25, 31, 36, 41, 46, 51, 56, 2, 8, 14, 20, 26, 32, 37, 42, 47, 52, 57, 3, 9, 15, 21, 27, 33, 38, 43, 48, 53, 58, 4, 10, 16, 22, 28, 34, 39, 44, 49, 54, 59, 5, 11, 17, 23, 29, ],
| |
| − | [ 0, 5, 10, 15, 20, 25, 30, 35, 40, 44, 48, 52, 56, 1, 6, 11, 16, 21, 26, 31, 36, 41, 45, 49, 53, 57, 2, 7, 12, 17, 22, 27, 32, 37, 42, 46, 50, 54, 58, 3, 8, 13, 18, 23, 28, 33, 38, 43, 47, 51, 55, 59, 4, 9, 14, 19, 24, 29, 34, 39, ], | |
| − | [ 0, 4, 8, 12, 16, 20, 24, 28, 32, 36, 39, 42, 45, 48, 51, 54, 57, 1, 5, 9, 13, 17, 21, 25, 29, 33, 37, 40, 43, 46, 49, 52, 55, 58, 2, 6, 10, 14, 18, 22, 26, 30, 34, 38, 41, 44, 47, 50, 53, 56, 59, 3, 7, 11, 15, 19, 23, 27, 31, 35, ],
| |
| − | [ 0, 4, 8, 12, 15, 18, 21, 24, 27, 30, 33, 36, 39, 42, 45, 48, 51, 54, 57, 1, 5, 9, 13, 16, 19, 22, 25, 28, 31, 34, 37, 40, 43, 46, 49, 52, 55, 58, 2, 6, 10, 14, 17, 20, 23, 26, 29, 32, 35, 38, 41, 44, 47, 50, 53, 56, 59, 3, 7, 11, ],
| |
| − | [ 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 59, 1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, ],
| |
| − | [ 0, 3, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 1, 4, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 2, 5, ],
| |
| − | [ 0, 3, 6, 9, 12, 15, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 1, 4, 7, 10, 13, 16, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 2, 5, 8, 11, 14, 17, ],
| |
| − | [ 0, 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36, 39, 42, 44, 46, 48, 50, 52, 54, 56, 58, 1, 4, 7, 10, 13, 16, 19, 22, 25, 28, 31, 34, 37, 40, 43, 45, 47, 49, 51, 53, 55, 57, 59, 2, 5, 8, 11, 14, 17, 20, 23, 26, 29, 32, 35, 38, 41, ],
| |
| − | [ 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, ],
| |
| − | [ 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, ],
| |
| − | );
| |
| − | | |
| − | my @negate = (
| |
| − | '878F0B496878F0B0',
| |
| − | '9607CF2B59607CF0',
| |
| − | 'A59E03CD2A59E030',
| |
| − | 'B416C7AF1B416C70',
| |
| − | 'C3AD1A41EC3AD1B0',
| |
| − | 'D225DE23DD225DF0',
| |
| − | 'E1BC12C5AE1BC130',
| |
| − | 'F034D6A79F034D70',
| |
| − | 'F0B496878F0B4970',
| |
| − | 'E13C52E5BE13C530',
| |
| − | 'A59E03CD2A59E030',
| |
| − | 'B416C7AF1B416C70',
| |
| − | 'C32D5A61FC32D5B0',
| |
| − | 'D2A59E03CD2A59F0',
| |
| − | '878F0B496878F0B0',
| |
| − | '9607CF2B59607CF0',
| |
| − | );
| |
| − | | |
| − | # Read a (tab-delimited) list of barcodes (and PV card filenames) from STDIN
| |
| − | | |
| − | # A list of barcodes can be found online at:
| |
| − | # http://pinataisland.info/viva/Pinata_Vision_barcode/List_of_barcodes
| |
| − | | |
| − | while (<>) {
| |
| − |
| |
| − | # D76190A053BCFB6B Vision_Single_PlaceTag_BifTree_hazelnut_1014.jpg
| |
| − |
| |
| − | my $barcode; # 16-digit (per row) barcode; rows delimited by space
| |
| − | my $filename; # Filename of PV card corresponding to this barcode
| |
| − |
| |
| − | chomp; # remove newline from end of row
| |
| − |
| |
| − | # Extract a barcode and (optional) tab-delimited filename
| |
| − |
| |
| − | ($barcode, $filename) = /([0-9A-F ]+)\t?(.*)/xms;
| |
| − |
| |
| − | next unless $barcode; # no barcode found?
| |
| − |
| |
| − | # Split a space-delimited (multiple row) barcode into separate rows
| |
| − |
| |
| − | my @rows = split(/ /, $barcode);
| |
| − |
| |
| − | # Unobfuscate each row into a single record of encoded data
| |
| − |
| |
| − | my $encoded_data = ''; # Concatinated rows of unobfuscated data
| |
| − |
| |
| − | foreach (@rows) {
| |
| − |
| |
| − | # Append this row's encoded data
| |
| − |
| |
| − | $encoded_data .= &unobfuscate_row($_);
| |
| − | }
| |
| − |
| |
| − | # Handle human-readable display of encoded data
| |
| − |
| |
| − | print "$filename -> ";
| |
| − | &decode_data($encoded_data);
| |
| − | print "\n";
| |
| − | | |
| − | }
| |
| − | | |
| − | # Unobfuscate a barcode row and return its encoded data
| |
| − | | |
| − | sub unobfuscate_row {
| |
| − |
| |
| − | # A barcode row consists of 15 digits (60 bits) of obfuscated data,
| |
| − | # followed by a 16th (4 bit) check digit.
| |
| − |
| |
| − | my $row = shift(@_);
| |
| − |
| |
| − | die "bad row length" if length($row) != 16;
| |
| − |
| |
| − | # Determine the specific obfuscation used (based on the check digit)
| |
| − | # Convert the check digit from hex to decimal, for use as an array index
| |
| − |
| |
| − | my $index = hex(substr($row, -1));
| |
| − |
| |
| − | # Deobfuscation involves applying a logical transformation, negating
| |
| − | # various bits, then (re)shuffling them (back into their proper order)
| |
| − | | |
| − | # First, perform a logical translation on each hex nibble (4 bits)
| |
| − |
| |
| − | # (Since the result of a translation is known [based on each possible
| |
| − | # input], we can skip the actual logical operations and directly
| |
| − | # transform each translated value back to its original input value)
| |
| − |
| |
| − | # print STDERR "Obfuscated = $row ";
| |
| − | | |
| − | $row =~ tr/76543210EFABCD98/0-9A-F/;
| |
| − |
| |
| − | # print STDERR "Negated = $row ";
| |
| − |
| |
| − | # Next, pack the row's hex string as a 64-bit value, XOR it with the
| |
| − | # correct negate mask, then unpack it as a binary string for unshuffling
| |
| − |
| |
| − | my $temp = pack('H*', $row) ^ # XOR Barcode row (as 64-bit int)
| |
| − | pack('H*', $negate[$index]); # With negate mask (as 64-bit int)
| |
| − | | |
| − | # $row = unpack('H*', $temp);
| |
| − | # print STDERR "Shuffled = $row ";
| |
| − |
| |
| − | $row = unpack('B*', $temp);
| |
| − |
| |
| − | # Last, unshuffle the bits to get back to the original encoded data
| |
| − |
| |
| − | # (Ignore the check digit, and only unshuffle the first 60 bits)
| |
| − | | |
| − | my $encoded_data = '';
| |
| − |
| |
| − | for (0..59) {
| |
| − | $encoded_data .= substr($row, $shuffle[$index][$_], 1);
| |
| − | }
| |
| − | | |
| − | # $row = unpack('H*', pack('B*', $encoded_data));
| |
| − | # print STDERR "Encoded = $row\n";
| |
| − |
| |
| − | # Encoded data is now unobfuscated
| |
| − | | |
| − | return $encoded_data;
| |
| − | }
| |
| − | | |
| − | # Decode a PV card's encoded data into human-readable format
| |
| − | | |
| − | # Data is preceeded by a 5-bit payload type (identifying the type of data that follows)
| |
| − | | |
| − | # +---------+---------+----
| |
| − | # |Type|Data|Type|Data| ...
| |
| − | # +---------+---------+----
| |
| − | | |
| − | sub decode_data {
| |
| − |
| |
| − | my $raw = shift(@_); # Encoded binary data
| |
| − |
| |
| − | my $offset = 0; # Current offset within encoded data
| |
| − |
| |
| − | my $end_of_data = 0; # End of data flag. Set if type:00000, data:0000 occurs
| |
| − |
| |
| − | my $payload_type = q{}; # Current payload type
| |
| − |
| |
| − | my $PAYLOAD_TYPE_SIZE = 5;
| |
| − |
| |
| − | while (!$end_of_data) {
| |
| − |
| |
| − | $payload_type = substr($raw, $offset, $PAYLOAD_TYPE_SIZE);
| |
| − | $offset += $PAYLOAD_TYPE_SIZE;
| |
| − |
| |
| − | # move on to a new card, if we've gotten out-of-sync and scanned past the end of the barcode
| |
| − | $end_of_data = 1 if (!defined $payload_type);
| |
| − |
| |
| − | given($payload_type) {
| |
| − |
| |
| − | my $payload_data = q{}; # payload data. Type of data varies, based on the payload type
| |
| − |
| |
| − | when ("00000") { # Start or end of encoded data.
| |
| − |
| |
| − | my $PAYLOAD_00000_SIZE = 4;
| |
| − |
| |
| − | # 0000 is end of data. 0001 is start of data.
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_00000_SIZE);
| |
| − | $offset += $PAYLOAD_00000_SIZE;
| |
| − |
| |
| − | if ($payload_data eq "0000") {
| |
| − | $end_of_data = 1;
| |
| − | print "00000/EndOfData";
| |
| − | } elsif ($payload_data eq "0001") {
| |
| − | # start of data. No-op
| |
| − | print "00000/StartOfData ";
| |
| − | } else {
| |
| − | print STDERR "don't recognize type $payload_type data: $payload_data";
| |
| − | }
| |
| − |
| |
| − | }
| |
| − | when ("00001") { # ID
| |
| − |
| |
| − | my $PAYLOAD_00001_SIZE = 12;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_00001_SIZE);
| |
| − | $offset += $PAYLOAD_00001_SIZE;
| |
| − |
| |
| − | print "00001/ID: ", oct("0b".$payload_data), " ";
| |
| − |
| |
| − | }
| |
| − | when ("00010") { # Trick stick reskin
| |
| − |
| |
| − | my $PAYLOAD_00010_SIZE = 12;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_00010_SIZE);
| |
| − | $offset += $PAYLOAD_00010_SIZE;
| |
| − |
| |
| − | print "00010/TrickStick: ", oct("0b".$payload_data), " ";
| |
| − |
| |
| − | }
| |
| − | when ("00011") { # Starting date
| |
| − |
| |
| − | my $PAYLOAD_00011_SIZE = 12;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_00011_SIZE);
| |
| − | $offset += $PAYLOAD_00011_SIZE;
| |
| − |
| |
| − | my $day = oct("0b".substr($payload_data, 0, 5));
| |
| − | my $month = oct("0b".substr($payload_data, 5, 4));
| |
| − | my $unknown = oct("0b".substr($payload_data, 9, 3));
| |
| − |
| |
| − | print "00011/StartDate: $month/$day ";
| |
| − |
| |
| − | }
| |
| − | when ("00100") { # Ending date
| |
| − |
| |
| − | my $PAYLOAD_00100_SIZE = 12;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_00100_SIZE);
| |
| − | $offset += $PAYLOAD_00100_SIZE;
| |
| − |
| |
| − | my $day = oct("0b".substr($payload_data, 0, 5));
| |
| − | my $month = oct("0b".substr($payload_data, 5, 4));
| |
| − | my $unknown = oct("0b".substr($payload_data, 9, 3));
| |
| − |
| |
| − | print "00100/EndDate: $month/$day ";
| |
| − |
| |
| − | }
| |
| − | when ("00111") { # Name, variable length
| |
| − |
| |
| − | # The name is NUL-terminated. The only way we can determine the payload length is by
| |
| − | # reading 5 bits at a time, and checking for 00000 (NUL).
| |
| − |
| |
| − | my $name = q{}; # pinata name
| |
| − | $payload_data = q{};
| |
| − |
| |
| − | my $shift = 1; # Capitalize the first letter, and any letter following a space
| |
| − |
| |
| − | # Read the first 5 bits, and increment the offset to prepare for reading the following character
| |
| − |
| |
| − | my $letter = substr($raw, $offset, 5);
| |
| − | $offset += 5;
| |
| − | $payload_data .= $letter;
| |
| − |
| |
| − | while ($letter ne "00000") { # while not NUL (end of name reached)...
| |
| − | if ($letter eq "00001") { # is it a space? Append a space, and set the shift flag
| |
| − | $name .= " ";
| |
| − | $shift = 1;
| |
| − | } else {
| |
| − | # a = "00010" = 2, so we need to subtract 1 before adding it to 64 (uppercase) or 96 (lowercase)
| |
| − | $name .= chr(oct("0b$letter") - 1 + ($shift ? 64 : 96));
| |
| − | $shift = 0;
| |
| − | }
| |
| − | $letter = substr($raw, $offset, 5);
| |
| − | $offset += 5;
| |
| − | $payload_data .= $letter;
| |
| − |
| |
| − | # handle case if we get out of sync and read past the end of the data
| |
| − | $letter = "00000" if !defined $letter;
| |
| − | }
| |
| − |
| |
| − | print "00111/Name: $name ";
| |
| − |
| |
| − | }
| |
| − | when ("01000") { # Gamertag identifier (hash?)
| |
| − |
| |
| − | my $PAYLOAD_01000_SIZE = 30;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_01000_SIZE);
| |
| − | $offset += $PAYLOAD_01000_SIZE;
| |
| − |
| |
| − | #print "01000/Gamertag: ", oct("0b".$payload_data), "\n";
| |
| − | print "01000/Gamertag: $payload_data ";
| |
| − |
| |
| − | }
| |
| − | when ("01001") { # Wildcard trait
| |
| − |
| |
| − | my $PAYLOAD_01001_SIZE = 2;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_01001_SIZE);
| |
| − | $offset += $PAYLOAD_01001_SIZE;
| |
| − |
| |
| − | print "01001/Wildcard: ", oct("0b".$payload_data), " ";
| |
| − |
| |
| − | }
| |
| − | when ("01010") { # Variant color
| |
| − |
| |
| − | my $PAYLOAD_01010_SIZE = 4;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_01010_SIZE);
| |
| − | $offset += $PAYLOAD_01010_SIZE;
| |
| − |
| |
| − | print "01010/Variant: ", oct("0b".$payload_data), " ";
| |
| − |
| |
| − | }
| |
| − | when ("01011") { # Size?
| |
| − |
| |
| − | my $PAYLOAD_01011_SIZE = 3;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_01011_SIZE);
| |
| − | $offset += $PAYLOAD_01011_SIZE;
| |
| − |
| |
| − | #print "01011/Size: ", oct("0b".$payload_data), "\n";
| |
| − | print "01011/Size: $payload_data ";
| |
| − |
| |
| − | }
| |
| − | when ("10000") { # SparseCallback
| |
| − |
| |
| − | my $PAYLOAD_10000_SIZE = 16;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_10000_SIZE);
| |
| − | $offset += $PAYLOAD_10000_SIZE;
| |
| − |
| |
| − | #print "10000/Sparse: ", oct("0b".$payload_data), "\n";
| |
| − | print "10000/Sparse: $payload_data ";
| |
| − |
| |
| − | }
| |
| − | when ("10001") { # Timewarp
| |
| − |
| |
| − | my $PAYLOAD_10001_SIZE = 4;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_10001_SIZE);
| |
| − | $offset += $PAYLOAD_10001_SIZE;
| |
| − |
| |
| − | #print "10001/Timewarp: ", oct("0b".$payload_data), "\n";
| |
| − | print "10001/Timewarp: $payload_data ";
| |
| − |
| |
| − | }
| |
| − | when ("10010") { # Weather type
| |
| − |
| |
| − | my $PAYLOAD_10010_SIZE = 3;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_10010_SIZE);
| |
| − | $offset += $PAYLOAD_10010_SIZE;
| |
| − |
| |
| − | #print "10010/Weather: ", oct("0b".$payload_data), "\n";
| |
| − | print "10010/Weather: $payload_data ";
| |
| − |
| |
| − | }
| |
| − | when ("10011") { # Weather duration
| |
| − |
| |
| − | my $PAYLOAD_10011_SIZE = 8;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_10011_SIZE);
| |
| − | $offset += $PAYLOAD_10011_SIZE;
| |
| − |
| |
| − | #print "10011/Duration: ", oct("0b".$payload_data), "\n";
| |
| − | print "10011/Duration: $payload_data ";
| |
| − |
| |
| − | }
| |
| − | when ("10100") { # ID (target) of Sparse callback
| |
| − |
| |
| − | my $PAYLOAD_10100_SIZE = 12;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_10100_SIZE);
| |
| − | $offset += $PAYLOAD_10100_SIZE;
| |
| − |
| |
| − | print "10100/ID: ", oct("0b".$payload_data), " ";
| |
| − | #printf "10100/ID: %4d ", oct("0b".$payload_data);
| |
| − |
| |
| − | }
| |
| − | when ("10110") { # Reusability
| |
| − |
| |
| − | my $PAYLOAD_10110_SIZE = 5;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_10110_SIZE);
| |
| − | $offset += $PAYLOAD_10110_SIZE;
| |
| − |
| |
| − | #print "10110/Reuse: ", oct("0b".$payload_data), "\n";
| |
| − | print "10110/Reuse: $payload_data ";
| |
| − |
| |
| − | }
| |
| − | when ("11000") { # Use cost
| |
| − |
| |
| − | my $PAYLOAD_11000_SIZE = 10;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_11000_SIZE);
| |
| − | $offset += $PAYLOAD_11000_SIZE;
| |
| − |
| |
| − | my $value = oct("0b".substr($payload_data, 0, 7));
| |
| − | my $magnitude = oct("0b".substr($payload_data, 7, 3));
| |
| − |
| |
| − | my $cost = $value * 10**$magnitude;
| |
| − |
| |
| − | print "11000/UseCost: $cost ";
| |
| − |
| |
| − | }
| |
| − | when ("11001") { # Jukebox track?
| |
| − |
| |
| − | my $PAYLOAD_11001_SIZE = 4;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_11001_SIZE);
| |
| − | $offset += $PAYLOAD_11001_SIZE;
| |
| − |
| |
| − | #print "11001/?: ", oct("0b".$payload_data), "\n";
| |
| − | print "11001/?: $payload_data ";
| |
| − |
| |
| − | }
| |
| − | when ("11010") { # Jukebox track?
| |
| − |
| |
| − | my $PAYLOAD_11010_SIZE = 38;
| |
| − |
| |
| − | $payload_data = substr($raw, $offset, $PAYLOAD_11010_SIZE);
| |
| − | $offset += $PAYLOAD_11010_SIZE;
| |
| − |
| |
| − | #print "11010/?: ", oct("0b".$payload_data), "\n";
| |
| − | print "11010/?: $payload_data ";
| |
| − |
| |
| − | }
| |
| − | when ("11101") { # Accessories, variable length
| |
| − |
| |
| − | # Color count, n items with colors, count, m items
| |
| − |
| |
| − | # Get the count for any color accessories. May be zero.
| |
| − |
| |
| − | my $color_count = substr($raw, $offset, 4);
| |
| − | $offset += 4;
| |
| − |
| |
| − | my $items = q{}; # holds list of (human-readable) accessory values
| |
| − |
| |
| − | my $item_length = 8;
| |
| − | my $color_length = 4;
| |
| − |
| |
| − | my @color_names = (
| |
| − | 'Default', # 0, should never get used
| |
| − | 'Red', # 1
| |
| − | 'Orange', # 2
| |
| − | 'Yellow', # 3
| |
| − | 'Brown', # 4
| |
| − | 'Pink', # 5
| |
| − | 'Purple', # 6
| |
| − | 'Green', # 7
| |
| − | 'Light Green', # 8
| |
| − | 'Blue', # 9
| |
| − | 'Cyan', # 10
| |
| − | 'Violet', # 11
| |
| − | 'Black', # 12
| |
| − | 'White', # 13
| |
| − | '14', # 14
| |
| − | '15', # 15
| |
| − | );
| |
| − |
| |
| − | $color_count = oct('0b'.$color_count); # convert count from binary to decimal
| |
| − |
| |
| − | # Read that number of items and colors
| |
| − |
| |
| − | for (my $i = 0; $i < $color_count; $i++) {
| |
| − |
| |
| − | # 8-bit item value, followed by 4-bit item color
| |
| − |
| |
| − | my $item = substr($raw, $offset, $item_length);
| |
| − | $offset += $item_length;
| |
| − |
| |
| − | my $item_color = substr($raw, $offset, $color_length);
| |
| − | $offset += $color_length;
| |
| − |
| |
| − | # Format item color as a color (or decimal value)
| |
| − |
| |
| − | $item_color = oct('0b'.$item_color);
| |
| − |
| |
| − | if ($color_names[$item_color]) {
| |
| − | # There's a known color for this value
| |
| − | $item_color = $color_names[$item_color];
| |
| − | }
| |
| − |
| |
| − | # Append the data for human-readable parsing
| |
| − |
| |
| − | #$items .= sprintf("%d/%s ", oct("0b".$item), $item_color);
| |
| − | $items .= sprintf("%s %s%s", $item_color,
| |
| − | &lookup_accessory_name_for_item(oct("0b".$item)),
| |
| − | ($i + 1 != $color_count) ? ', ' : '');
| |
| − |
| |
| − | }
| |
| − |
| |
| − | # Now repeat the process one more time, getting the count and list of (default color) items
| |
| − |
| |
| − | my $count = substr($raw, $offset, 4);
| |
| − | $offset += 4;
| |
| − |
| |
| − | $count = oct('0b'.$count); # convert count from binary to decimal
| |
| − |
| |
| − | # append comma, if there were previous color accessories
| |
| − |
| |
| − | if ($color_count) {
| |
| − | $items .= ($count ? ', ' : ' ');
| |
| − | }
| |
| − |
| |
| − | # Read that number of items
| |
| − |
| |
| − | for (my $i = 0; $i < $count; $i++) {
| |
| − |
| |
| − | # 8-bit item values
| |
| − |
| |
| − | my $item = substr($raw, $offset, $item_length);
| |
| − | $offset += $item_length;
| |
| − |
| |
| − | # Append the data for human-readable parsing
| |
| − |
| |
| − | #$items .= sprintf("%d ", oct("0b".$item));
| |
| − | $items .= sprintf("%s%s ", &lookup_accessory_name_for_item(oct("0b".$item)),
| |
| − | ($i + 1 != $count) ? ',' : '');
| |
| − |
| |
| − | }
| |
| − |
| |
| − | my $total_count = $color_count + $count;
| |
| − |
| |
| − | print "11101/Accessory: $total_count item" .
| |
| − | ($total_count > 1 ? 's' : '') . " $items";
| |
| − |
| |
| − |
| |
| − | }
| |
| − | default {
| |
| − | print STDERR "don't recognize this payload type: $payload_type\n";
| |
| − | #print "don't recognize this payload type: $payload_type\n";
| |
| − |
| |
| − | print "$payload_type/?: ";
| |
| − |
| |
| − | $end_of_data = 1; # give up on this card
| |
| − | }
| |
| − |
| |
| − | }
| |
| − |
| |
| − | }
| |
| − |
| |
| − | }
| |
| − | | |
| − | # Lookup accessory name for an accessory item value.
| |
| − | | |
| − | sub lookup_accessory_name_for_item {
| |
| − | my ($item) = @_;
| |
| − |
| |
| − | my @names=(
| |
| − | '', # 0 no such accessory
| |
| − | 'Retro Disco Wig',
| |
| − | 'Breegull Carrier',
| |
| − | 'Shark Tooth Necklace',
| |
| − | 'Cool Shades',
| |
| − | 'Howdy Pardner Hat',
| |
| − | 'Doenut Stalker',
| |
| − | 'Inca Bracelet',
| |
| − | 'Fur Boots',
| |
| − | 'Fair Dinkum Hat',
| |
| − | 'King Tut\'s Hat',
| |
| − | 'Yokel Teeth',
| |
| − | 'Jurassic Hair',
| |
| − | 'Yee-Haw Hat',
| |
| − | 'Señor Sombrero',
| |
| − | 'Pillager\'s Helmet',
| |
| − | 'Thunder Cut',
| |
| − | 'Beanie Cap',
| |
| − | 'Weather-Girl Wig',
| |
| − | 'Diggerling Helmet Mk1',
| |
| − | 'Gas Mask',
| |
| − | 'Party Horns',
| |
| − | 'Kazooie Talons',
| |
| − | 'Caterpillars',
| |
| − | 'Yee-Haw Spurs',
| |
| − | 'Super Hero Mask',
| |
| − | 'School Cap',
| |
| − | 'Baseball Cap',
| |
| − | 'Yee-Haw Saddle',
| |
| − | 'Tiara of Tranquility',
| |
| − | 'Slim Tache',
| |
| − | 'Spiked Collar',
| |
| − | 'Geek Glasses',
| |
| − | 'Reporter\'s Camera',
| |
| − | 'Bling Teeth',
| |
| − | 'Bow',
| |
| − | 'Fez',
| |
| − | 'Fake Winner\'s Rosette',
| |
| − | 'Diamond Choker',
| |
| − | 'Blackeye Patch',
| |
| − | 'Tap Shoes',
| |
| − | 'Ballet Shoes',
| |
| − | 'Crown',
| |
| − | 'Handlebar Mustache',
| |
| − | 'Football Helmet',
| |
| − | 'Sweaty Wrist Band',
| |
| − | 'Bling Bangle',
| |
| − | 'Beaded Wig',
| |
| − | 'Rashberry Badge',
| |
| − | 'Secret Agent Bowtie',
| |
| − | 'Bling Bracelet',
| |
| − | 'Crystal Broach',
| |
| − | 'Bunnycomb Ears',
| |
| − | 'Bushy Mustache',
| |
| − | 'Soupswill Cook Hat',
| |
| − | 'The Von Ghoul',
| |
| − | 'Yee-Haw Boots',
| |
| − | 'Butcha\'s',
| |
| − | 'Diamond Necklace',
| |
| − | 'Combat Boots',
| |
| − | 'Pegasus Wings',
| |
| − | 'Romance Earrings',
| |
| − | 'Mermaid Earrings',
| |
| − | 'Big Bling Earrings',
| |
| − | 'Silver Medal',
| |
| − | 'Big Jolly Lips',
| |
| − | 'Comedian\s Nose',
| |
| − | 'Buck Teeth',
| |
| − | 'Gold Medal',
| |
| − | 'Soccer Boots',
| |
| − | 'Squazzil Hat',
| |
| − | 'DanceGlow',
| |
| − | 'Pendant Necklace',
| |
| − | 'Halo of Hardness',
| |
| − | 'Safety Helmet',
| |
| − | 'Sweaty Head Band',
| |
| − | 'Breegull Waders',
| |
| − | 'Bronze Medal',
| |
| − | 'Leafos Medallion',
| |
| − | 'Baby\'s Bib',
| |
| − | 'Toff Monocle',
| |
| − | 'Astro-Walkers',
| |
| − | 'Halloween Bolts',
| |
| − | 'Bling Nose-Ring',
| |
| − | 'Dellmonty',
| |
| − | 'Traditional Watch',
| |
| − | 'Mermaid Necklace',
| |
| − | 'Eighties Watch',
| |
| − | 'Tussle Tricorn',
| |
| − | 'Rashberry Hat',
| |
| − | 'Rashberry Helmet',
| |
| − | 'Reading Glasses',
| |
| − | 'Red Nose',
| |
| − | 'Robber\'s Mask',
| |
| − | 'Extreme Sports Goggles',
| |
| − | 'Santa Hat',
| |
| − | 'Non-Resident Scarf',
| |
| − | 'Sea-Shell Collar',
| |
| − | 'Bunnycomb Slippers',
| |
| − | 'Snow Shoes',
| |
| − | 'Belly-Splash Specials',
| |
| − | 'Granny\'s Tache',
| |
| − | 'Funky Tie',
| |
| − | 'Conga\'s Top Hat',
| |
| − | 'Breegull Turbo Trainers',
| |
| − | 'Ga-Ga Necklace',
| |
| − | 'Dastardos Scarf',
| |
| − | 'Bell',
| |
| − | 'Bonnet',
| |
| − | 'Buzzlegum Keeper Hat',
| |
| − | 'Buttercup Hair Flower',
| |
| − | 'Daisy Hair Flower',
| |
| − | 'Bling Earrings',
| |
| − | 'Not-so-Bling Earrings',
| |
| − | 'Pendant Earrings',
| |
| − | 'Pearly Bracelet',
| |
| − | 'Poppy Hair Flower',
| |
| − | 'Barkbark Tags',
| |
| − | 'Sunflower Hair Flower',
| |
| − | 'Student\'s Hat',
| |
| − | 'Comedian\'s Choice',
| |
| − | 'Strong \'n\' Macho',
| |
| − | 'Cook Hat',
| |
| − | 'Tail Bow',
| |
| − | 'Super Hero Belt',
| |
| − | 'Fruity Hat',
| |
| − | 'Mr. Pants Hat',
| |
| − | 'Sailor Hat',
| |
| − | 'Conkerific Helmet',
| |
| − | 'Vela Wig',
| |
| − | 'Juno Helmet',
| |
| − | 'Grunty Hat',
| |
| − | 'Jam-Jars Hat',
| |
| − | 'Binner\'s Hat',
| |
| − | 'Princess Hat',
| |
| − | 'Von Ghoul Helmet',
| |
| − | 'Saberman Helmet',
| |
| − | 'Ortho\'s Spare Hat',
| |
| − | 'Knight Helmet',
| |
| − | 'Headphones',
| |
| − | 'Jiggy Earrings',
| |
| − | 'Lupus Ears',
| |
| − | 'Disco Shades',
| |
| − | 'Flying Goggles',
| |
| − | 'Bottles\' Glasses',
| |
| − | 'Romantic Flower',
| |
| − | 'Battletoad Bracelets',
| |
| − | 'Prisoner Bracelet',
| |
| − | 'Sheriff\'s Badge',
| |
| − | 'Clockwork Key',
| |
| − | 'Kameo Wings',
| |
| − | 'Fake Fin',
| |
| − | 'Flamenco Shoes',
| |
| − | 'Ash Slippers',
| |
| − | 'Cleopatra\'s Necklace',
| |
| − | 'Stethoscope',
| |
| − | 'Star Earrings',
| |
| − | 'Furry Earmuffs',
| |
| − | 'Lucky Earrings',
| |
| − | 'Harlequin Mask',
| |
| − | 'Ponocky Club Hat',
| |
| − | 'Camo Cap',
| |
| − | 'Apples and Pears Hat',
| |
| − | 'Chewnicorn Horn',
| |
| − | 'Firefighter\'s Hat',
| |
| − | 'Nurse\'s Hat',
| |
| − | 'Golden Necklace',
| |
| − | 'Edo Wig',
| |
| − | 'Pointed Hat',
| |
| − | 'Comrade\'s Hat',
| |
| − | 'Dentures Of The Night',
| |
| − | 'Turkish Slippers',
| |
| − | 'Bullfighter\'s Hat',
| |
| − | 'Caesar\'s Hat',
| |
| − | 'Clogs',
| |
| − | 'Homburg',
| |
| − | 'Safari Hat',
| |
| − | 'La Parisienne',
| |
| − | 'Yeoman\'s Helm',
| |
| − | 'Hula Necklace',
| |
| − | 'Mountie Hat',
| |
| − | 'Tribal Mask',
| |
| − | 'Liberty Crown',
| |
| − | 'Jokduri',
| |
| − | );
| |
| − |
| |
| − | if (defined $names[$item]) {
| |
| − | return $names[$item];
| |
| − | } else {
| |
| − | return '';
| |
| − | }
| |
| − | }
| |
| − | | |
| − | </pre>
| |
Here is a sample decoder script which might help anyone interested in learning more about the Piñata Vision barcode.
The script is written in Perl. Perl is generally installed on Mac or Linux operating systems, and binaries and documentation are available for many other systems. (If you're looking for a version of Perl for your system, the free ActivePerl Community Edition is recommended.
If you have any questions about the script or the barcode in general, or if you make any barcode discoveries, please feel welcome to share them at the forum. Have fun delving into the secrets of the barcode!
How about encoding data onto a card? A handful of free or low-cost tools already exist which let you easily create your own custom Piñata Vision cards.
If you'd like to write a PV Creator app for Android or Windows Phone, this script (and this wiki's Piñata Vision barcode articles) can help you get started -- encoding is merely decoding in reverse! Decide what data you want to encode on the card, calculate the checksum, obfuscate the data, and display your barcode. (The card generator can even render cards based on barcodes you provide.)
