Algoritmus CCITT CRC-16

[Plsek Martin]

	Zkus toto:


Procedure TabFCS;
  var
    mx,gx,fcs:word;
    i,j:byte;
Begin
  mx:=0;
  gx:=$1021;
  for i:=0 to 255 do
  begin
    fcs:=i shl 8;
    for j:=1 to 8 do
      if (fcs AND $8000)<>0 then
        fcs:=(fcs shl 1) XOR gx
      else
        fcs:=(fcs shl 1);
    fcstab[i]:=fcs;
  end;
End;

	Promenna g(x) je generujici polynom. 


					Martin Plsek



On Tue, 18 Apr 2000, Ing. Tomas Drajsajtl wrote:

> Zdravim kutily !
> 
> Z duvodu uspory programove pameti potrebuji 256-ti wordovou
> prevodni tabulku pouzivanou na vypocet CCITT CRC-16 vypocitavat.
> 
> Vi prosim nekdo jak tuto tabulku pocitat ?
> 
> Nebudu ji sem psat celou, ale pro uplnost zacina takhle:
> $0000, $1021, $2042, $3063, $4084, $50A5, $60C6, $70E7
> $8108, $9129, $A14A, $B16B, $C18C, $D1AD, $E1CE, $F1EF
> $1231, $0210, $3273, $2252, $52B5, $4294, $72F7, $62D6
> ...
> 
> Ing. Tomas Drajsajtl; Digitus s.r.o.; http://www.digitus.cz
> ICQ 61424839
> 
>