- or download this
my $firstbit = ($longsize * 8) - 1;
my $firstbit_mask = 1 << $firstbit;
- or download this
use constant NUM_BITS = $Config{ivsize} * 8;
use constant SIGN_BIT = 1 << ( NUM_BITS - 1 );
...
return $p >> $q;
}
}
- or download this
Shift 10101111...10101100 by 3
...
| 11100000...00000000
-------------------
11110101111...10101