#!/usr/bin/perl -w
# akyuu2.pl - Don Yang (uguu.org)
#
# 09/18/08

binmode STDOUT;

$buffer = "";
while(<>)
{
   chomp;
   s/[^!-z]//gs;
   $buffer .= $_;
   $output = "";
   $limit = length($buffer) - (length($buffer) % 5);
   $i = 0;
   for(; $i < $limit; $i += 5)
   {
      ($e, $d, $c, $b, $a) = unpack "C*", substr($buffer, $i, 5);
      $x = $e - 33 + 90 *
          ($d - 33 + 90 *
          ($c - 33 + 90 *
          ($b - 33 + 90 *
          ($a - 33))));
      $output .= pack "V", $x;
   }
   $buffer = substr($buffer, $i);
   print $output;
}

if( $buffer ne "" )
{
   $remainder = length($buffer);
   ($e, $d, $c, $b, $a) = unpack "C5", $buffer . "!!!!";
   $x = $e - 33 + 90 *
       ($d - 33 + 90 *
       ($c - 33 + 90 *
       ($b - 33 + 90 *
       ($a - 33))));
   $output = pack "V", $x;
   for(; $remainder < 5; $remainder++)
   {
      chop $output;
   }
   print $output;
}