Конференция VBStreets

**Zer** » 02.11.2004 (Вт) 21:51

Люди добрые! Очень надо метод подсчета CRC16 на VB.
И вот ещё:почему 65535 XOR 40961 равно 106497 :?:

**Oxygen** » 02.11.2004 (Вт) 23:35

Насчет второго - неправильно. Должно быть 24574, попробуй перевести в бинарную запись и посчитай. У меня, как и у калькулятора получается именно такой результат.

**Amed** » 03.11.2004 (Ср) 9:19

Вот, что нашёл Яндекс при первом же запросе "CRC16 VB":

http://www.vbnet.ru/forum/show.aspx?id=21862

Я не пойму, что это так все Яндекса боятся? Или счётчик накручивают? :wink:

**Ennor** » 03.11.2004 (Ср) 11:23

Zer писал(а):...
почему 65535 XOR 40961 равно 106497

Потому что у тебя эти числа сидят в Long, видимо. Перемести их в Integer, и результат получай в него же, и все тебе будет...

**Zer** » 03.11.2004 (Ср) 18:14

Oxygen: Вот именно! На калькуляторе у меня тоже получилось 24574, а в программе за 100000! :shock:

Ennor:Верно, числа long. А Int - определяется как знаковое, т.е. <=32767.
Большое спасибо всем ответевшим. Жаль что не вчера. Сегодня уже поздно.

**Ennor** » 04.11.2004 (Чт) 0:18

Если боишься отрицательных чисел

- можешь производить все операции в Long, но в конце брать только 2 младших байта:

Код: Выделить всё: lngResult = (lngA Xor lngB) And &HFFFF

**Zer** » 04.11.2004 (Чт) 18:47

Собственно, так и пришлось сделать...

Конференция VBStreets

CRC16

CRC16

Re: CRC16

Кто сейчас на конференции