Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

зашился в вычислениях CRC , полистал кучу литературы, пообращался [D3]


Страницы:   1 2

aha ©   (2008-01-02 23:14:00) 

по конференциям , вернулся опять к вам . Известен полином $18F57.Есть кусок программы на С+ .Не хватает ума переделать на дельфи. Проверенная мной сумма для строки GVHGRILN, которая приводится к ввиду $0F10B257  равна $68A4.Не совсем понятен алгоритм на языке написанном С+. Может кто нибудь подскажет ?

unsigned short owenCRC16(unsigned char* packet, size_t length)
{
size_t i, j;
unsigned short crc;

assert(packet);

crc = 0;
for (i = 0; i < length; ++i)
{
 unsigned char b = packet[i];
 for (j = 0; j < 8; ++j, b 8)) & 0x80)
  {
   crc

aha   (2008-01-04 18:33:00) [1]

2 DVM
Здорово !  работает  , вот что значит профессионал , понадобилось полчаса работы.....
Даже не знаю как отблагодарить , просто в восторге . Буду теперь разбираться в математике !!

DVM   (2008-01-04 15:52:00) [2]

забыл:

function Crc16Byte(Buffer:String;Initial:Cardinal):Cardinal;
var
 i                     : Cardinal;
begin
Result:=Initial;
for i:=1 to Length(Buffer) do begin
 Result:=(Result shl 8) xor CRC16Table[(ord(Buffer[i]) xor (Result shr 8)) and $ff];
 end;
Result:=Result and $ffff;
end;

DVM   (2008-01-04 15:31:00) [3]


> aha   (04.01.08 15:14) [23]

Короче, вот мой черновой вариант:

var
 CRC16Table: array[0..255] of WORD;

function crc16(Buffer: string; Polynom, Initial: Cardinal): Cardinal;
var
 i, j: Integer;
begin
 Result := Initial;
 for i := 1 to Length(Buffer) do
   begin
     Result := Result xor (ord(buffer[i]) shl 8);
     for j := 0 to 7 do
       begin
         if (Result and $8000) <> 0 then
           Result := (Result shl 1) xor Polynom
         else
           Result := Result shl 1;
       end;
   end;
 Result:=Result and $ffff;
end;

function GenerateTableCrc16(Poly: Cardinal): Cardinal;
var
 i: Cardinal;
begin
 for i:=0 to 255 do
  CRC16Table[i] := Crc16(chr(i),Poly,0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 s: string;
begin
 s := #$0F+#$10+#$B2+#$57;
 GenerateTableCrc16($8F57);
 caption := inttohex(Crc16Byte(s, 0), 4);
end;

aha   (2008-01-04 15:14:00) [4]

запутался совсем , прочитал формат изготовителя и вот что я прочитал
Тетрады кодируются следующим образом:

0000 -> 'G' = 0x47
0001 -> 'H' = 0x48
0010 -> 'I' = 0x49
0011 -> 'J' = 0x4a
0100 -> 'K' = 0x4b
0101 -> 'L' = 0x4c
0110 -> 'M' = 0x4d
0111 -> 'N' = 0x4e
1000 -> 'O' = 0x4f
1001 -> 'P' = 0x50
1010 -> 'Q' = 0x51
1011 -> 'R' = 0x52
1100 -> 'S' = 0x53
1101 -> 'T' = 0x54
1110 -> 'U' = 0x55
1111 -> 'V' = 0x56
Короче все запутал , а полином используемый вот таков
x16+x15+x11+x10+x9+x8+x6+x4+x2+x1+x0.
Что то у Anatoly Podgoretsky подозрительно  очень простой код получился , как его изменить для моего случая ??

DVM   (2008-01-04 14:53:00) [5]


> aha


> сумма для строки GVHGRILN, которая приводится к ввиду $0F10B257
>  

Вот этот момент кстати мне что то непонятен. Как из одного получается другое? Из $0F10B257 я получил CRC $68A4. Но откуда взялось  0F10B257?

Anatoly Podgoretsky   (2008-01-04 14:25:00) [6]

> DVM  (04.01.2008 14:10:20)  [20]

Да я с тобое совершенно согласен, поскольку встречался с подобным.
Но ты обратил внимание, что у меня указано :-)

DVM   (2008-01-04 14:10:00) [7]


> Вообще то говорить о стандарте как бы неприлично, есть общепринятые
> алгоритмы вычисления CRC16 и их есть не один

вот я о том и говорю, что почти нигде не указывают, что вычисляется. Какой вариант CRC16. Некоторые вообще неправильно указывают.

Anatoly Podgoretsky   (2008-01-04 14:06:00) [8]

> DVM  (04.01.2008 12:07:10)  [10]

Вообще то говорить о стандарте как бы неприлично, есть общепринятые алгоритмы вычисления CRC16 и их есть не один, и с полиномомами и без. Поэтому когда говорим об алгоритме с полиномами, то указание полинома обязательно.
Вот моя старая функция 1996 года, расчета CRC32, которую легко переделать в CRC16 по любому полиному.

//*******************************
//* Calculate Crc32 with buf    *
//*******************************
function BufToCrc(const Buf; Count:Integer) : Longint;
var
I : Integer;
begin                                          
Result := $FFFFFFFF;
for I := 0 to Count - 1 do begin
  Result := Crc32(Byte(TByteArray(Buf)[I]),Result);
 end;
end;
//////////////////////////////////////////////////////////////////////////
// Crc32 - Data byte and Current Crc Value               //
// POLYNOMIAL USED IS                          //
//   X^32+X^26+X^23+X^22+X^16+X^12+X^11+X^10+X^8+X^7+X^5+X^4+X^2+X^1+1 //
// CrcPolynominal = $04 C1 1D B7;
//////////////////////////////////////////////////////////////////////////
function Crc32(Data:Byte; CurrentCrc:Longint) : Longint; assembler;
asm
MOV   ECX,8
@1:
ROL   AL,1
RCL   EDX,1
JNC   @2
XOR   EDX,CrcPolynominal
@2:
LOOP @1
MOV   EAX,EDX
end;

DVM   (2008-01-04 13:59:00) [9]

Посмотрел я готовые модули в интернет - все вычисляют CRC16 кто во что горазд. Точнее вычисляют правильно, но не ту CRC16. Полиномы разные и везде почти не соответствующие названию вычисляемой контрольной суммы.

palva   (2008-01-04 13:47:00) [10]

DVM ©   (04.01.08 12:49) [15]
> Вас как любителя переводить с одного языка на другой
Извините, перепутал. Это я над aha хотел пошутить, но не в того попал.

palva   (2008-01-04 13:42:00) [11]


> Вообще твой пост натолкнул меня тут на мысль написать правильный модуль на Delphi

Ссылка интересная. Если открыть исходный код странички то обнаружите, что всё уже написано на Java Script. Вас как любителя переводить с одного языка на другой это должно заинтересовать :)

DVM   (2008-01-04 12:49:00) [12]


> aha   (04.01.08 12:39) [14]

ну его подсчеты (проверил CRC16) совпадают по крайней мере с подсчетами, которые выполняет программа WinHEX.

Вообще твой пост натолкнул меня тут на мысль написать правильный модуль на Delphi для расчета CRC всех видов, как стандартных, так и по собственнным полиномам. Займусь может сегодня.

aha   (2008-01-04 12:39:00) [13]

а насчет этой ссылки я могу сказать следующее , я показал на конф. телесис, и один из пользавателей проверив свои версии заявил , что данный калькулятор неправильно считает . ВОт кому верить то ? :-)

DVM   (2008-01-04 12:23:00) [14]


> aha

кстати, проверь свой полином на своих данных тут:

http://www.zorc.breitbandkatze.de/crc.html- так можно понять, стандартный или нет алгоритм подсчета контрольной суммы использовал производитель.

DVM   (2008-01-04 12:21:00) [15]


> так как изготовитель показал действующий код

ох уж мне эти изготовители железяк, они постоянно придумывают свои варианты вычисления контрольных сумм, вместо того чтобы использовать общепринятые.

Я тебе вообще советую просчитать готовую таблицу для этого твоего полинома и потом ее использовать при расчетах. Так много быстрее будет. И проще.

aha   (2008-01-04 12:18:00) [16]

2 DVM
да , я понимаю что не совсем стандартный полином , но дивайс работает именно с этим полином , читает CRC . А использую код С+ , так как изготовитель показал действующий код , я только пытаюсь подстроиться к нему

DVM   (2008-01-04 12:07:00) [17]


> А причём тут "полином"?

Притом, что образующий полином необходим для вычисления crc, только вот он взял какой то нестандартный полином. У CRC16 вроде $8005.


> Может быть не корректно называю термины

все верно.

Только непонятно, зачем тебе дался этот код на С. Пиши сразу на Delphi или возьми готовую функцию коих масса.

Теория тут: http://rsdn.ru/article/files/classes/SelfCheck/crcguide.pdf

Evgeny V   (2008-01-04 09:34:00) [18]


> Evgeny V ©   (04.01.08 09:26) [8]
> Обращаю внимание - сдвиг вправо на разряд b <<= 1

Естественно сдвиг влево, извиняюсь за ошибки "сено-солома"-:-)

Evgeny V   (2008-01-04 09:26:00) [19]


> aha   (04.01.08 09:03) [7]

Не разбирался  с кодом на паскале подробно, который вы привели (как впрочем и на си), но один совет - использовать вместо типа char тип byte - так как unsigned char соотвествует типу байт(ну и использовать соотвествующие указатели). Далее в коде на си есть такой цикл


>  for (j = 0; j < 8; ++j, b <<= 1)

Обращаю внимание - сдвиг вправо на разряд b <<= 1), а в коде на паскале я его не увидел. Что снимает спор о


> aha   (03.01.08 21:59) [4]



>  if (ORD(B) xor (crc shr 8)) and $80 <>0 - она всегда будет
> равна 0 и следовательно CRC тоже
> где моя ошибка ??

aha   (2008-01-04 09:03:00) [20]

2 icWasya
я имел ввиду для вычисления CRC для моей строки , где В никак не может быть $8X

2 Германн
причем полином ? ну вроде бы это образующий полином , для вычисления CRC . Может быть не корректно называю термины ...

Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо