Select Code to Download

sub pack64bit {
    my $i = new Math::BigInt shift();
    my $j = new Math::BigInt $i->brsft(32);
    my $k = $i - $j->blsft(32);
    return pack('NN', $j, $k);
}

 
sub pack_bv{
  use Bit::Vector;
  my $vec = Bit::Vector->new_Dec(64, shift);
  return pack 'NN', $vec->Chunk_Read(32, 32), $vec->Chunk_Read(32, 0);
}