devxlogo

SemiCRC – A fast CRC-like algorithm

SemiCRC – A fast CRC-like algorithm

' Evaluate the 16-bit Checksum of an array of bytesFunction SemiCRC(ByVal source() As Byte) As Integer    Dim crc, temp As Integer, i As Long    Const divisor As Integer = 32768    For i = 0 To source.GetUpperBound(0)        temp = 0        If crc  divisor Then temp = 1        crc = (((crc * 2) And &HFFFF&) + temp) Xor CLng(source(i))    Next    Return crcEnd Function

devx-admin

Share the Post: