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

binmode(STDOUT);

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

if( $q ne "" )
{
   $y = length($q);
   ($h, $i, $e, $d, $a) = unpack "C5", "$q!!!!";
   $x = $h - 33 + 90 *
       ($i - 33 + 90 *
       ($e - 33 + 90 *
       ($d - 33 + 90 *
       ($a - 33))));
   $z = pack "V", $x;
   for(; $y < 5; $y++)
   {
      chop $z;
   }
   print $z;
}