#!/usr/bin/perl -w

use strict;
use SCXCRC;

my @data = (
	# ocekavam 0x7d
	pack("C*", 0x55, 0xff, 0xf0, 0xf0, 0xf0, 0xaa, 0xaa, 0xaa),

	# ocekavam 0xb0
	pack("C*", 0x55, 0xd6, 0x88, 0x88, 0x88, 0x14, 0x50, 0xaa),
);

for my $str (@data) {
#	my $c = Digest::CRC->new(type=>'crc8', poly => 0x31, init=>0,
#		xorout=>0xbb);
#	$c->add($str);
#	print $c->hexdigest, "\n";
	print sprintf("%02x\n", SCXCRC::digest_str($str));
}