Помогите переделать код С++ в Delphi (CRC)

[Georgios]

О, славные умы!

Появилась вот такая проблемка:

Имеется код вычисление CRC16 на С++, но, к сожалению, я не знаю С. Кто сможет помочь переделать его на Delphi?

unsigned int cal_crc(unsigned cHar *ptr, unsigned char len)
{
	unsigned char i;
	unsigned int crc_value=0;
	while(len--)
	{
		for(i=0x80; i!=0; i>>=1)
		{
			if (crc_value&0x8000)
				crc_value=(crc_value<<1)^0x8005;
			else
				crc_value=crc_value<<1;
			if (*ptr&i)
				crc_value^=0x8005;
		}
		ptr++;
	}
	return(crc_value);
}

[Serge_Bliznykov]

Georgios, я, к огромному моему стыду и сожалению тоже не знаю C ...
но, у меня вопрос - а что Вы собственно хотите получить?
прежде всего - в данном коде я не вижу задания исходной таблицы полиномов для расчёта CRC (а без этой таблицы расчёт не будет верным).
во-вторых, запрос гугля по CRC16 Delphi даёт вполне адекватные результаты.
в-третьих, вот, например, маленький юнит на Дельфи для расчёта CRC16/CRC32 - Юнит для рассчета контрольных сумм (CRC 16 и 32) by J.R.Louvau

p.s. впрочем, если стоит задача именно переписать имеющийся алгоритм буква в букву - тогда прошу извинить меня за мои советы...

[Georgios]

Сообщение от Serge_Bliznykov

Georgios, я, к огромному моему стыду и сожалению тоже не знаю C ...
но, у меня вопрос - а что Вы собственно хотите получить?
прежде всего - в данном коде я не вижу задания исходной таблицы полиномов для расчёта CRC (а без этой таблицы расчёт не будет верным).
во-вторых, запрос гугля по CRC16 Delphi даёт вполне адекватные результаты.
в-третьих, вот, например, маленький юнит на Дельфи для расчёта CRC16/CRC32 - Юнит для рассчета контрольных сумм (CRC 16 и 32) by J.R.Louvau

p.s. впрочем, если стоит задача именно переписать имеющийся алгоритм буква в букву - тогда прошу извинить меня за мои советы...

Во-первых, спасибо за ответ!
Во-вторых, это устройство, которое считывает инфу о автомобиле (в авто имеется карта, в которой хранится инфа). Там нужно проверять CRC16 данных. Вот две правильные строчки: (строка / значение CRC)
55 00 02 А2 00 / CC 22
55 00 01 42 / 87 8F