
平台论坛博客文库

› 论坛 › 程序设计 › Perl › 求助，关于CRC16修改为CRC32的PERL脚本

求助，关于CRC16修改为CRC32的PERL脚本 [复制链接]

hwlyic

白手起家

论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2013-11-07 10:39 |只看该作者 |倒序浏览

从百度tieba得到了CRC16的perl脚本，不是很清楚原理，有大侠可以解释一下吗？我想改为CRC32的功能，但是CRC多项式要可以配置，比如通过poly引用，不知道应该如何修改？？

sub crc16{
my $init = shift;
my $poly = shift;
my $val  = shift;

die "Undefined CRC value" unless defined $val && defined $poly && defined $init;

my $var;
for (my $i=0; $i<8; $i++) {
  $var = $val << 8;
  $var ^= $init;
  $init += $init;
  $val <<= 1;

  if ($var & 0x8000) {
$init ^= $poly;
  }
}
return $init & 0xFFFF;
}