# chiyo1.pl - Don Yang (uguu.org)
#
# 11/05/02


if( $#ARGV < 0 )
{
   printf("%s <file> [...]\n", $0);
}
else
{
   for($i = 0; ($crc = $i) < 256; $table[$i++] = $crc)
   {
      for($j = 8; $j > 0; $j--)
      {
         $crc = ($crc >> 1) ^ (($crc & 1) ? 0xedb88320 : 0);
      }
   }

   for($i = 0; $i <= $#ARGV; $i++)
   {
      if( open(INFILE, "< ".$ARGV[$i]) )
      {
         for($crc = 0xffffffff;
             read(INFILE, $c, 1) > 0;
             $crc = (($crc >> 8) & 0xffffff) ^ $table[($crc ^ ord($c)) & 255])
         {
         }
         close(INFILE);
         printf("%s: %08x\n", $ARGV[$i], $crc ^ 0xffffffff);
      }
   }
}