Help for this page
>perl -le "print(unpack('%32b*', 0x13))" 7
>perl -le "print(unpack('%32b*', chr(0x13)))" 3