Delphi写的CRC16加密算法