Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Blocurile goale! Orase in car...

Motorul pe benzina 1.0 SCe65

Mostenire In 1986

Lentile sferica pentru astigmatism
 Problema inlocuire usa spate A6 C...

Ce gen de muzica este?

Drepturile copiilor, in numele &#...

Mocheta peste parchet cu incalzir...
 La multi ani mie!

Senzor filtru particule GOLF 7

La multi ani @radu103!

La multi ani @Nenea Zap!
 La multi ani @beavis03!

BlackView Oscal Pad 13, probleme ...

Baterie auto AGM 70AH vs normala ...

Depanero nu vrea sa imi dea Negat...
 

Help CRC

- - - - -
  • Please log in to reply
No replies to this topic

#1
diaconuliviu

diaconuliviu

    Senior Member

  • Grup: Senior Members
  • Posts: 4,772
  • Înscris: 19.01.2005
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

Neurochirurgie minim invazivă Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate