my $packed = pack 'NN', time(), 123456789;;

my $c = substr $packed, 0, 1; 
$c ^= substr $packed, $_, 1 for 1 .. 7;;

$packed .= $c;;

print unpack 'C*', $packed;;
78 121 66 151 7 91 205 21 102