Шустрый
Профиль
Группа: Участник
Сообщений: 88
Регистрация: 13.4.2009
Репутация: нет
Всего: нет
|
Есть примеры выполнения данной задачи в следующем виде: | Код |
//===================================================================/
#define CRC24_INIT 0x00b704ceL
#define CRC24_POLY 0x01864cfbL
//===================================================================/
const unsigned long CRC24tab[256] =
{
0x00000000, 0x00864CFB, 0x008AD50D, 0x000C99F6,
0x0093E6E1, 0x0015AA1A, 0x001933EC, 0x009F7F17,
0x00A18139, 0x0027CDC2, 0x002B5434, 0x00AD18CF,
0x003267D8, 0x00B42B23, 0x00B8B2D5, 0x003EFE2E,
0x00C54E89, 0x00430272, 0x004F9B84, 0x00C9D77F,
0x0056A868, 0x00D0E493, 0x00DC7D65, 0x005A319E,
0x0064CFB0, 0x00E2834B, 0x00EE1ABD, 0x00685646,
0x00F72951, 0x007165AA, 0x007DFC5C, 0x00FBB0A7,
0x000CD1E9, 0x008A9D12, 0x008604E4, 0x0000481F,
0x009F3708, 0x00197BF3, 0x0015E205, 0x0093AEFE,
0x00AD50D0, 0x002B1C2B, 0x002785DD, 0x00A1C926,
0x003EB631, 0x00B8FACA, 0x00B4633C, 0x00322FC7,
0x00C99F60, 0x004FD39B, 0x00434A6D, 0x00C50696,
0x005A7981, 0x00DC357A, 0x00D0AC8C, 0x0056E077,
0x00681E59, 0x00EE52A2, 0x00E2CB54, 0x006487AF,
0x00FBF8B8, 0x007DB443, 0x00712DB5, 0x00F7614E,
0x0019A3D2, 0x009FEF29, 0x009376DF, 0x00153A24,
0x008A4533, 0x000C09C8, 0x0000903E, 0x0086DCC5,
0x00B822EB, 0x003E6E10, 0x0032F7E6, 0x00B4BB1D,
0x002BC40A, 0x00AD88F1, 0x00A11107, 0x00275DFC,
0x00DCED5B, 0x005AA1A0, 0x00563856, 0x00D074AD,
0x004F0BBA, 0x00C94741, 0x00C5DEB7, 0x0043924C,
0x007D6C62, 0x00FB2099, 0x00F7B96F, 0x0071F594,
0x00EE8A83, 0x0068C678, 0x00645F8E, 0x00E21375,
0x0015723B, 0x00933EC0, 0x009FA736, 0x0019EBCD,
0x008694DA, 0x0000D821, 0x000C41D7, 0x008A0D2C,
0x00B4F302, 0x0032BFF9, 0x003E260F, 0x00B86AF4,
0x002715E3, 0x00A15918, 0x00ADC0EE, 0x002B8C15,
0x00D03CB2, 0x00567049, 0x005AE9BF, 0x00DCA544,
0x0043DA53, 0x00C596A8, 0x00C90F5E, 0x004F43A5,
0x0071BD8B, 0x00F7F170, 0x00FB6886, 0x007D247D,
0x00E25B6A, 0x00641791, 0x00688E67, 0x00EEC29C,
0x003347A4, 0x00B50B5F, 0x00B992A9, 0x003FDE52,
0x00A0A145, 0x0026EDBE, 0x002A7448, 0x00AC38B3,
0x0092C69D, 0x00148A66, 0x00181390, 0x009E5F6B,
0x0001207C, 0x00876C87, 0x008BF571, 0x000DB98A,
0x00F6092D, 0x007045D6, 0x007CDC20, 0x00FA90DB,
0x0065EFCC, 0x00E3A337, 0x00EF3AC1, 0x0069763A,
0x00578814, 0x00D1C4EF, 0x00DD5D19, 0x005B11E2,
0x00C46EF5, 0x0042220E, 0x004EBBF8, 0x00C8F703,
0x003F964D, 0x00B9DAB6, 0x00B54340, 0x00330FBB,
0x00AC70AC, 0x002A3C57, 0x0026A5A1, 0x00A0E95A,
0x009E1774, 0x00185B8F, 0x0014C279, 0x00928E82,
0x000DF195, 0x008BBD6E, 0x00872498, 0x00016863,
0x00FAD8C4, 0x007C943F, 0x00700DC9, 0x00F64132,
0x00693E25, 0x00EF72DE, 0x00E3EB28, 0x0065A7D3,
0x005B59FD, 0x00DD1506, 0x00D18CF0, 0x0057C00B,
0x00C8BF1C, 0x004EF3E7, 0x00426A11, 0x00C426EA,
0x002AE476, 0x00ACA88D, 0x00A0317B, 0x00267D80,
0x00B90297, 0x003F4E6C, 0x0033D79A, 0x00B59B61,
0x008B654F, 0x000D29B4, 0x0001B042, 0x0087FCB9,
0x001883AE, 0x009ECF55, 0x009256A3, 0x00141A58,
0x00EFAAFF, 0x0069E604, 0x00657FF2, 0x00E33309,
0x007C4C1E, 0x00FA00E5, 0x00F69913, 0x0070D5E8,
0x004E2BC6, 0x00C8673D, 0x00C4FECB, 0x0042B230,
0x00DDCD27, 0x005B81DC, 0x0057182A, 0x00D154D1,
0x0026359F, 0x00A07964, 0x00ACE092, 0x002AAC69,
0x00B5D37E, 0x00339F85, 0x003F0673, 0x00B94A88,
0x0087B4A6, 0x0001F85D, 0x000D61AB, 0x008B2D50,
0x00145247, 0x00921EBC, 0x009E874A, 0x0018CBB1,
0x00E37B16, 0x006537ED, 0x0069AE1B, 0x00EFE2E0,
0x00709DF7, 0x00F6D10C, 0x00FA48FA, 0x007C0401,
0x0042FA2F, 0x00C4B6D4, 0x00C82F22, 0x004E63D9,
0x00D11CCE, 0x00575035, 0x005BC9C3, 0x00DD8538
};
//===================================================================/
long crc_octets (char *octets, int len)
//===================================================================/
{
long crc = CRC24_INIT;
long temp;
int arg;
while (len--)
{
temp = crc;
temp >>= 8;
temp >>= 8;
temp ^= *octets++;
arg = temp & 0x000000FF;
crc <<= 8;
crc ^= CRC24tab[arg];
}
crc &= 0x00ffffffL;
return crc;
}
//===================================================================/
|
И на Pascal: | Код |
//===================================================================/
function crc_octets (octets: PChar; len: Integer): Integer;
//===================================================================/
const
CRC24_INIT = $00b704ce;
CRC24_POLY = $01864cfb;
var
crc: Integer;
temp: Integer;
i: Integer;
begin
crc := CRC24_INIT;
while (len <> 0) do
begin
Dec(len);
temp := Integer (octets^);
Inc(octets);
temp := temp shl 16;
crc := crc xor temp;
for i := 0 to 7 do
begin
crc := crc shl 1;
if (crc and $01000000) <> 0 then
crc := crc xor CRC24_POLY;
end;
end;
crc := crc and $00ffffff;
result := crc;
end;
//===================================================================/
|
Помогите пожалуйста решить данную задачу. |
Алгоритм вычисления контрольного кода CRC24, Есть примеры на Си и Pascal 
Загрузка ...
