我可以将字符串转换为 crc16,但我需要将 crc16 转换为字符串。这可能吗?
function TForm1.CRC_16(Icerik: string): word;
var
valuehex: word;
i: integer;
CRC: word;
Begin
CRC := 0;
for i := 1 to length(Icerik) do
begin
valuehex := ((ord(Icerik[i]) XOR CRC) AND $0F) * $1081;
CRC := CRC SHR 4;
CRC := CRC XOR valuehex;
valuehex := (((ord(Icerik[i]) SHR 4) XOR LO(CRC)) AND $0F);
CRC := CRC SHR 4;
CRC := CRC XOR (valuehex * $1081);
end;
CRC_16 := (LO(CRC) SHL 8) OR HI(CRC);
end;
此函数将字符串转换为 CRC16 。