計算字符串或字節數組的CRC32

Question

是否有VB.NET計算字符串或字節數組的CRC32的函數或示例？

Answer 1

使用此：

Private Sub Main() 
    Crc32.ComputeChecksum(Encoding.UTF8.GetBytes("Some string")).Dump() 
End Sub 

Public Class Crc32 
    Shared table As UInteger() 

    Shared Sub New() 
     Dim poly As UInteger = &Hedb88320UI 
     table = New UInteger(255) {} 
     Dim temp As UInteger = 0 
     For i As UInteger = 0 To table.Length - 1 
      temp = i 
      For j As Integer = 8 To 1 Step -1 
       If (temp And 1) = 1 Then 
        temp = CUInt((temp >> 1) Xor poly) 
       Else 
        temp >>= 1 
       End If 
      Next 
      table(i) = temp 
     Next 
    End Sub 

    Public Shared Function ComputeChecksum(bytes As Byte()) As UInteger 
     Dim crc As UInteger = &HffffffffUI 
     For i As Integer = 0 To bytes.Length - 1 
      Dim index As Byte = CByte(((crc) And &Hff) Xor bytes(i)) 
      crc = CUInt((crc >> 8) Xor table(index)) 
     Next 
     Return Not crc 
    End Function 
End Class