Re: packing into a byte token

my $seconds_since_the_epoch = pack 'N', time;
my $employee_id             = pack 'N', 123456789;
my $check_byte              = $seconds_since_the_epoch ^ $employee_id;
[download]

Comment on Re: packing into a byte token Download Code

Replies are listed 'Best First'.
Re^2: packing into a byte token by ikegami (Patriarch) on Sep 21, 2011 at 01:45 UTC
Need to xor each byte, so `use List::Util qw( reduce ); my $token = pack 'NN', time, $employee_id; $token .= reduce { $a ^ $b } split //, $token;` [download] Use "V" instead of "N" if you need the opposite byte order.	[reply] [d/l]
Re^3: packing into a byte token by jwkrahn (Abbot) on Sep 21, 2011 at 02:01 UTC
Need to xor each byte Because?	[reply]
Re^4: packing into a byte token by ikegami (Patriarch) on Sep 21, 2011 at 02:09 UTC
That's what the OP asked for.	[reply]