Help CRC
Last Updated: May 25 2016 14:40, Started by
diaconuliviu
, May 25 2016 14:40
·
0
#1
Posted 25 May 2016 - 14:40
Vreau sa calculez CRC pentru un sir de valori hexa dintr-o memorie dupa o anumita formula gasita si folosita si de producatori.
i:integer; CRC:word; Hig,Low:byte; bin[$0,$9F]:array of bytes; i:=$0; CRC:=$AAAA; while i<$7E do begin //CRC cicle //writeln('I= ',i); CRC:=CRC xor ((bin[i+$1] shl $8) or bin[i]); //Writeln(' XORCRC ',CRC); //CRC:=(CRC + CRC) or (CRC shr $F); CRC:=(CRC shl $1) or (CRC shr $F); //Writeln(' ORCRC ',CRC); i:=i+$2; end; //CRC cicle Hig:=Hi(CRC); Low:=Lo(CRC); bin[$7E]:=Hig; bin[$7F]:=Low; Primii octeti sint 00 40. Deja dupa prima iteratie CRC trece de $FFFF si creste in continuare, cind de fapt, la final ar trebui sa fie doi octeti; Unde gresesc? Am folosit Free Pascal IDE Multumesc Edited by diaconuliviu, 25 May 2016 - 14:44. |
Anunturi
Bun venit pe Forumul Softpedia!
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users