Re^6: How to use perl digest module to calculate CRC?

[guyra]

Thanks!

indeed, the SOH does affect the CRC result.

#data = (HEX) 3132
my $ctx = Digest::CRC->new(width => 32,   poly => 0x04c11db7, init => 
+0xFFFFFFFF, xorout => 0xFFFFFFFF, refin => 1, refout => 1);
my $r = $ctx->add( pack 'H*', '3132' )->hexdigest;
print "data=", (pack 'H*', '3132'), "= | r=$r=\n";

#data = (ASCII) 12
my $ctx = Digest::CRC->new(width => 32,   poly => 0x04c11db7, init => 
+0xFFFFFFFF, xorout => 0xFFFFFFFF, refin => 1, refout => 1);
my $r = $ctx->add( "12" )->hexdigest;
print "data=", (pack 'H*','3132'), "= | r=$r=\n";

#data = (HEX) 310132
my $ctx = Digest::CRC->new(width => 32,   poly => 0x04c11db7, init => 
+0xFFFFFFFF, xorout => 0xFFFFFFFF, refin => 1, refout => 1);
my $r = $ctx->add(pack 'H*','310132' )->hexdigest;
print "data=", (pack 'H*', '310132'), "= | r=$r=\n";

Results in:

data=12= | r=4f5344cd=
data=12= | r=4f5344cd=
data=12= | r=b243674=