В среду 16 Сентября, Dmitriy Romanov накропал письмо к Ivan Novikov:
IN>> А вот не собралось. Там один из юнитов, отвечающий за подсчёт CRC-16, IN>> написан аж на ассемблере частично. DR> IN>> Вот думаю - искать исходники для подсчёта CRC-16 строчной IN>> переменной, забить на совместимость и воткнуть туда штатную для IN>> нынешнего паскаля CRC-32, или выпилить вообще подсчёт чексуммы,
DR> Насчет поинтлистов не скажу, в мейлере у меня вот есть две штуки, DR> какая из них подойдет - попробуй методом тыка определить. DR> DR> function CRC16B(var s:ansistring):word; DR> function CRC16C(s:ansistring;init:word):word;overload; Это две какие-то модемные разновидности, судя по результатам. Hасколько я понял, там сделана генерация поинтлистовой шапки по образу и подобию нодлистовой - то есть в конце самой первой строчки стоит чексумма в десятичном виде. Сейчас буду искать какая именно из двух десятков разновидностей CRC-16 там используется. Hо, по крайней мере, я уже выяснил, что та часть, которая пересчитывает CRC-32 с помощью таблицы, соответствует обычному CRC-32 без всяких вариантов.
IN>> чтоб не тащить в системе набор либ для совместимости с IN>> 32-битностью. DR> А его разве надо тащить? Он вроде искаропки работает. DR> Или у тебя не винда? Вот совсем не винда.
С приветом, Ivan.
--- Дед Мастдай и Саксы (1.1.5-b20170303 штук) * Origin: Мы с Tresorом на границе... (2:5080/31.1)