Help for this page

Select Code to Download


  1. or download this
    use MIME::Base64;

...
$encoded .= '==';
$num = unpack("V", decode_base64($encoded));
print($num, $/);  # 123
  2. or download this
    use MIME::Base64;

...
$encoded = substr($encoded.'AAAAAA', 0, 6) . '==';
$num = unpack("V", decode_base64($encoded));
print($num, $/);  # 123