Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > ОС и железо
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 08.10.2014, 12:47
yarockiisergei yarockiisergei вне форума
Прохожий
 
Регистрация: 25.07.2008
Сообщения: 23
Версия Delphi: 6
Репутация: 10
По умолчанию CRC16 Попогите переделать код с с++

Добрый день, есть код:
Код:
MY_USHORT g_ausCRC16SR_Table[256]=
{
 0x0000, 0x1189, 0x2312, 0x329B, 0x4624, 0x57AD, 0x6536, 0x74BF, 0x8C48, 0x9DC1, 0xAF5A, 0xBED3, 0xCA6C, 0xDBE5, 0xE97E, 0xF8F7,
 0x1081, 0x0108, 0x3393, 0x221A, 0x56A5, 0x472C, 0x75B7, 0x643E, 0x9CC9, 0x8D40, 0xBFDB, 0xAE52, 0xDAED, 0xCB64, 0xF9FF, 0xE876,
 0x2102, 0x308B, 0x0210, 0x1399, 0x6726, 0x76AF, 0x4434, 0x55BD, 0xAD4A, 0xBCC3, 0x8E58, 0x9FD1, 0xEB6E, 0xFAE7, 0xC87C, 0xD9F5,
 0x3183, 0x200A, 0x1291, 0x0318, 0x77A7, 0x662E, 0x54B5, 0x453C, 0xBDCB, 0xAC42, 0x9ED9, 0x8F50, 0xFBEF, 0xEA66, 0xD8FD, 0xC974,
 0x4204, 0x538D, 0x6116, 0x709F, 0x0420, 0x15A9, 0x2732, 0x36BB, 0xCE4C, 0xDFC5, 0xED5E, 0xFCD7, 0x8868, 0x99E1, 0xAB7A, 0xBAF3,
 0x5285, 0x430C, 0x7197, 0x601E, 0x14A1, 0x0528, 0x37B3, 0x263A, 0xDECD, 0xCF44, 0xFDDF, 0xEC56, 0x98E9, 0x8960, 0xBBFB, 0xAA72,
 0x6306, 0x728F, 0x4014, 0x519D, 0x2522, 0x34AB, 0x0630, 0x17B9, 0xEF4E, 0xFEC7, 0xCC5C, 0xDDD5, 0xA96A, 0xB8E3, 0x8A78, 0x9BF1,
 0x7387, 0x620E, 0x5095, 0x411C, 0x35A3, 0x242A, 0x16B1, 0x0738, 0xFFCF, 0xEE46, 0xDCDD, 0xCD54, 0xB9EB, 0xA862, 0x9AF9, 0x8B70,
 0x8408, 0x9581, 0xA71A, 0xB693, 0xC22C, 0xD3A5, 0xE13E, 0xF0B7, 0x0840, 0x19C9, 0x2B52, 0x3ADB, 0x4E64, 0x5FED, 0x6D76, 0x7CFF,
 0x9489, 0x8500, 0xB79B, 0xA612, 0xD2AD, 0xC324, 0xF1BF, 0xE036, 0x18C1, 0x0948, 0x3BD3, 0x2A5A, 0x5EE5, 0x4F6C, 0x7DF7, 0x6C7E,
 0xA50A, 0xB483, 0x8618, 0x9791, 0xE32E, 0xF2A7, 0xC03C, 0xD1B5, 0x2942, 0x38CB, 0x0A50, 0x1BD9, 0x6F66, 0x7EEF, 0x4C74, 0x5DFD,
 0xB58B, 0xA402, 0x9699, 0x8710, 0xF3AF, 0xE226, 0xD0BD, 0xC134, 0x39C3, 0x284A, 0x1AD1, 0x0B58, 0x7FE7, 0x6E6E, 0x5CF5, 0x4D7C,
 0xC60C, 0xD785, 0xE51E, 0xF497, 0x8028, 0x91A1, 0xA33A, 0xB2B3, 0x4A44, 0x5BCD, 0x6956, 0x78DF, 0x0C60, 0x1DE9, 0x2F72, 0x3EFB,
 0xD68D, 0xC704, 0xF59F, 0xE416, 0x90A9, 0x8120, 0xB3BB, 0xA232, 0x5AC5, 0x4B4C, 0x79D7, 0x685E, 0x1CE1, 0x0D68, 0x3FF3, 0x2E7A,
 0xE70E, 0xF687, 0xC41C, 0xD595, 0xA12A, 0xB0A3, 0x8238, 0x93B1, 0x6B46, 0x7ACF, 0x4854, 0x59DD, 0x2D62, 0x3CEB, 0x0E70, 0x1FF9,
 0xF78F, 0xE606, 0xD49D, 0xC514, 0xB1AB, 0xA022, 0x92B9, 0x8330, 0x7BC7, 0x6A4E, 0x58D5, 0x495C, 0x3DE3, 0x2C6A, 0x1EF1, 0x0F78
};

MY_USHORT AddCRC16(MY_USHORT usCRC, void* pvBuf, MY_USHORT usBufLen)
{
	MY_USHORT usByte;
	MY_UCHAR* pucBuf;
	MY_USHORT usBufLen2 = usBufLen;
	MY_USHORT usCRC2 = usCRC;
	pucBuf = (MY_UCHAR*)pvBuf;
	for(usByte = 0; usByte < usBufLen2; usByte++)
		usCRC2 = (usCRC2 >> 8) ^ g_ausCRC16SR_Table[(MY_UCHAR)usCRC2 ^ *pucBuf++];
	return usCRC2;
}

Еще нашел переделку на C#
Код:
        public static ushort AddCRC16(ushort usCRC, byte[] data)
        {
            ushort usCRC2 = usCRC;

            for (int i = 0; i < data.Length; i++)
                usCRC2 = (ushort)((usCRC2 >> 8) ^ g_ausCRC16SR_Table[(byte)usCRC2 ^ data[i]]);
            return usCRC2;
        }

Пытаюсь переделать под Delphi но результат не соответствует коду на си:
Код:
function  AddCRC16(usCRC:Word;data:String):Integer;
var
usCRC2:  Word;
temp2:  Word;
temp:Byte;
i:Integer;
begin
 usCRC2 := usCRC;
 for i:=0 to Length(data) do
 begin
   temp  := usCRC2;
   temp2 := (usCRC2 shl 8);
   usCRC2 := (temp2 or g_ausCRC16SR_Table[temp or ord(data[i])]);
 end;
   AddCRC16 :=  usCRC2;
end;

Последний раз редактировалось yarockiisergei, 08.10.2014 в 14:44.
  #2  
Старый 08.10.2014, 15:46
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

1) ">>" есть SHR, а не SHL.
2) "^" есть XOR, а не OR.
3) for (..., i< data.Length, ++i) означает от 0 до data.Length - 1.
Вообще считать хеш через OR - весьма... оригинально.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
  #3  
Старый 08.10.2014, 16:12
icWasya icWasya вне форума
Местный
 
Регистрация: 09.11.2010
Сообщения: 499
Репутация: 10
По умолчанию

И, начиная с D2009 - String это UnicideString, а здесь нужно использовать AnsiString.
  #4  
Старый 08.10.2014, 22:52
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

А просто поискать в интернете слабо?
https://code.google.com/p/ryulib4del...c=svn208&r=208
  #5  
Старый 09.10.2014, 08:16
yarockiisergei yarockiisergei вне форума
Прохожий
 
Регистрация: 25.07.2008
Сообщения: 23
Версия Delphi: 6
Репутация: 10
По умолчанию

После всех замечаний код стал следующий
Код:
function  AddCRC16(usCRC:Word;data:AnsiString):Word;
var
usCRC2:  Word;
temp2:  Word;
temp:Byte;
i:Integer;
begin
 usCRC2 := usCRC;
 for i:=0 to (Length(data)-1) do
 begin
   temp  := usCRC2;
   temp2 := (usCRC2 shr 8);
   usCRC2 := (temp2 xor g_ausCRC16SR_Table[temp xor ord(data[i])]);
 end;
   AddCRC16 :=  usCRC2;
end;
Провлема осталась расчет не соответствует расчету C++.
Привожу также массив g_ausCRC16SR_Table
Код:
CONST
 g_ausCRC16SR_Table: ARRAY[0..255] OF WORD =(
$0000,$1189,$2312,$329B,$4624,$57AD,$6536,$74BF,$8C48,$9DC1,$AFA,$BED3,$CA6C,$DBE5,$E97E,$F8F7,
$1081,$0108,$3393,$221A,$56A5,$472C,$75B7,$643E,$9CC9,$8D40,$BFDB,$AE52,$DAED,$CB64,$F9FF,$E876,
$2102,$308B,$0210,$1399,$6726,$76AF,$4434,$55BD,$AD4A,$BCC3,$8E58,$9FD1,$EB6E,$FAE7,$C87C,$D9F5,
$3183,$200A,$1291,$0318,$77A7,$662E,$54B5,$453C,$BDCB,$AC42,$9ED9,$8F50,$FBEF,$EA66,$D8FD,$C974,
$4204,$538D,$6116,$709F,$0420,$15A9,$2732,$36BB,$CE4C,$DFC5,$ED5E,$FCD7,$8868,$99E1,$AB7A,$BAF3,
$5285,$430C,$7197,$601E,$14A1,$0528,$37B3,$263A,$DECD,$CF44,$FDDF,$EC56,$98E9,$8960,$BBFB,$AA72,
$6306,$728F,$4014,$519D,$2522,$34AB,$0630,$17B9,$EF4E,$FEC7,$CC5C,$DDD5,$A96A,$B8E3,$8A78,$9BF1,
$7387,$620E,$5095,$411C,$35A3,$242A,$16B1,$0738,$FFCF,$EE46,$DCDD,$CD54,$B9EB,$A862,$9AF9,$8B70,
$8408,$9581,$A71A,$B693,$C22C,$D3A5,$E13E,$F0B7,$0840,$19C9,$2B52,$3ADB,$4E64,$5FED,$6D76,$7CFF,
$9489,$8500,$B79B,$A612,$D2AD,$C324,$F1BF,$E036,$18C1,$0948,$3BD3,$2A5A,$5EE5,$4F6C,$7DF7,$6C7E,
$A50A,$B483,$8618,$9791,$E32E,$F2A7,$C03C,$D1B5,$2942,$38CB,$0A50,$1BD9,$6F66,$7EEF,$4C74,$5DFD,
$B58B,$A402,$9699,$8710,$F3AF,$E226,$D0BD,$C134,$39C3,$284A,$1AD1,$0B58,$7FE7,$6E6E,$5CF5,$4D7C,
$C60C,$D785,$E51E,$F497,$8028,$91A1,$A33A,$B2B3,$4A44,$5BCD,$6956,$78DF,$0C60,$1DE9,$2F72,$3EFB,
$D68D,$C704,$F59F,$E416,$90A9,$8120,$B3BB,$A232,$5AC5,$4B4C,$79D7,$685E,$1CE1,$0D68,$3FF3,$2E7A,
$E70E,$F687,$C41C,$D595,$A12A,$B0A3,$8238,$93B1,$6B46,$7ACF,$4854,$59DD,$2D62,$3CEB,$0E70,$1FF9,
$F78F,$E606,$D49D,$C514,$B1AB,$A022,$92B9,$8330,$7BC7,$6A4E,$58D5,$495C,$3DE3,$2C6A,$1EF1,$0F78);
  #6  
Старый 09.10.2014, 08:17
yarockiisergei yarockiisergei вне форума
Прохожий
 
Регистрация: 25.07.2008
Сообщения: 23
Версия Delphi: 6
Репутация: 10
По умолчанию

Цитата:
Сообщение от lmikle
А просто поискать в интернете слабо?
https://code.google.com/p/ryulib4del...c=svn208&r=208
Этот алгоритм не подходит.
  #7  
Старый 09.10.2014, 08:24
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Код:
for i:=0 to (Length(data)-1) do

Нет толку работать со строками — работайте с массивами.

В вашем случае правильно должно быть так:
Код:
for i:=1 to Length(data) do
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
  #8  
Старый 09.10.2014, 08:30
yarockiisergei yarockiisergei вне форума
Прохожий
 
Регистрация: 25.07.2008
Сообщения: 23
Версия Delphi: 6
Репутация: 10
По умолчанию

Работает!!!
Ниже готовый вариант.
Код:
function  AddCRC16(usCRC:Word;data:AnsiString):Word;
var
usCRC2:  Word;
temp2:  Word;
temp:Byte;
i:Integer;
begin
 usCRC2 := usCRC;
 for i:=1 to (Length(data)) do
 begin
   temp  := usCRC2;
   temp2 := (usCRC2 shr 8);
   usCRC2 := (temp2 xor g_ausCRC16SR_Table[temp xor ord(data[i])]);
 end;
   AddCRC16 :=  usCRC2;
end;
  #9  
Старый 09.10.2014, 11:33
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Ну охренеть теперь, даже спасибо не сказал.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию

Последний раз редактировалось M.A.D.M.A.N., 09.10.2014 в 12:03.
Закрытая тема


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:08.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter