Re^2: packing into a byte token

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.

Comment on Re^2: packing into a byte token Download Code

Replies are listed 'Best First'.
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]