8 pack("C*", 0x55, 0xff, 0xf0, 0xf0, 0xf0, 0xaa, 0xaa, 0xaa),
11 pack("C*", 0x55, 0xd6, 0x88, 0x88, 0x88, 0x14, 0x50, 0xaa),
15 # my $c = Digest::CRC->new(type=>'crc8', poly => 0x31, init=>0,
18 # print $c->hexdigest, "\n";
19 print sprintf("%02x\n", SCXCRC::digest_str($str));