$pinc=join("$data1","$data2","$data3");
$digest2 = md5_hex($pinc);
$pin=unpack("%32C*",$digest2) % 65535;

print "[$pinc],[$digest2],[$pin]";