my $pinc = join('', $data1, $data2, $data3);
my $pin = sprintf('%04d', unpack('%32C*', $pinc) % 10000);