わたなべです.

:原です。

:これって BASE63 になってません？(^^;

まったくその通りです. もうしわけありません.

:そもそも、Christiansen の
:
:> #!/usr/bin/perl
:> while (<>) {
:>   tr#A-Za-z0-9+/##cd;                   # remove non-base64 chars
:>   tr#A-Za-z0-9+/# -_#;                  # convert to uuencoded format
:>   $len = pack("c", 32 + 0.75*length);   # compute length byte
:>   print unpack("u", $len . $_);         # uudecode and print
:> }

こっちはちゃんと / が含まれてるから合ってると思います.

-- 
わたなべひろふみ