#!/usr/bin/perl -w

use strict;

use Digest::CRC;

die "Usage: $0 \'SpeedTouch (XX-XX-XX-XX-XX-XX)\'\n" if $#ARGV != 0;

my $c = Digest::CRC->new(	width => 32,
				init => 0xFFFFFFFF, # always direct
				xorout => 0xFFFFFFFF,
				poly => 0x5C22DB93,
				refin => 0,
				refout => 0);

$c->add($ARGV[0]);
print $c->digest . "\n";
