Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
Jun 30, 2003

SemiCRC - A fast CRC-like algorithm

' Evaluate the 16-bit Checksum of an array of bytes
Function 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 crc
End Function
Ernest Bayazitov
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap