Hi this is a little crc check I made for strings comments suggestions welcome.

vbnet Code:
  1. Private Function LittleCrc(ByVal Source As String) As Long
  2.         Dim Table As Array = {&H417, &H429, &H45F, &H419, &H41B, &H425, &H427, &H42D,
  3.                                    &H43F, &H443, &H445, &H449, &H44F, &H455, &H45D, &H463,
  4.                                    &H469, &H47F4, &H481, &H48B2, &H4931, &H49D, &H4A3, &H4A9,
  5.                                    &H4B1, &H4BD4, &H4C1, &H4C79, &H4CD1, &H4CF, &H4D5, &H4E1, &H545}
  6.  
  7.         'Starting value.
  8.         Dim crc As Long = &HFFFF
  9.  
  10.         For x As Integer = 0 To Source.Length - 1
  11.             'Create crc
  12.             crc = (crc << 1) Xor Table((crc Xor Asc(Source) * Asc(Source(x))) And &H20)
  13.         Next x
  14.  
  15.         'Return crc
  16.         Return crc
  17.  
  18.     End Function

Example

vbnet Code:
  1. MessageBox.Show(Hex(LittleCrc("Ben Jones")), "LittleCrc",
  2.         MessageBoxButtons.OK, MessageBoxIcon.Information) 'Ret 1F99B73
  3.  
  4.         MessageBox.Show(Hex(LittleCrc("ben jones")), "LittleCrc",
  5.         MessageBoxButtons.OK, MessageBoxIcon.Information) 'Ret 1F91E8D