Crc16

Crc16

Crc16 : Multi-millones de consejos para hacer su vida mas facil.

Pascal CRC 16

Colaborador: SWAG EQUIPO de SOPORTE

{
>I & #39 m buscando el codigo para calcular el CRC32 de una serie de Caracteres.

...a Menos que & #39 re CRCing una cantidad muy grande de datos, este CRC-16
rutina debe hacer.

NOTA: Esta rutina requiere TP6 o TP7 a compilar.
}

{ Return un CRC de 16 bits numero De datos binarios. }

la Funcion de Crc16(Var Datos wo_Size : Word) : Palabra Ensamblador
Asm
push ds
xor dx, dx
lds si, los Datos
mov bx, wo_Size
@L1:
xor ah, ah
lodsb
mov cx, 8
shl ax, cl
xor dx, ax
mov cx, 8
@L2:
shl dx, 1
jnc @L3
xor dx, $1021
@L3:
bucle @L2
dec bx
jnz @L1
pop ds
mov ax, dx
end { Crc16. }