Select Code to Download

my $unique = time;
my $key_bin = pack('N', $unique)
            . pack('C*', map { int(rand()*256) } 1..6);
my $key_hex = unpack('H*', $key_bin);

4818e14c1662fd0dac98
\______/\__________/
   |         |
 32-bit    48-bit
 unique    random