Помогите с CRC32

[claymen]

Вот потребовалось в проекте исспользовать CRC32.
Где можно достать эти алгоритмы чтобы делать следующее:
1. CRC32 текстовой строки
2. СRС32 файла

[Viper]

Google, Yandex и так далее...

[alibek]

Код: Выделить всё

...
Private crc32Table() As Long
...
Function CalcCRC(Data As String) As Long
Dim crc32Result As Long, I As Long, L As Byte, B As Byte
Const dwPolynomial As Long = &HEDB88320
On Error GoTo ErrorHandler
I = crc32Table(0)
On Error GoTo 0
crc32Result = &HFFFFFFFF
For I = 1 To Len(Data)
  B = Asc(Mid$(Data, I, 1))
  L = (crc32Result And &HFF) Xor B
  crc32Result = ((crc32Result And &HFFFFFF00) \ &H100) And 16777215 ' shr 8
  crc32Result = crc32Result Xor crc32Table(L)
Next I
CalcCRC = Not crc32Result
Exit Function

ErrorHandler:
ReDim crc32Table(0 To 255)
For I = 0 To 255
  crc32Result = I
  For B = 0 To 7
    If (crc32Result And 1) Then
        crc32Result = ((crc32Result And &HFFFFFFFE) \ 2&) And &H7FFFFFFF
        crc32Result = crc32Result Xor dwPolynomial
    Else
        crc32Result = ((crc32Result And &HFFFFFFFE) \ 2&) And &H7FFFFFFF
    End If
  Next B
  crc32Table(I) = crc32Result
Next I
Resume
End Function

Для файла сделать по аналогии.


vbskb_crc vbskb_crc32

[MIT]

А еще есть алгоритмы хеширования, типа MD5 и SHA. Поищи по форуму, тут уже выкладывался VBCrypto.zip - это то что надо!!!

[yaklit]

а чо такое хэширование? Чото типа крк но что именно? Я знаю MD5 это так примерно : 34DFE346GG678CCGV1

[tyomitch]

нда, буквы G и V в MD5-хеше -- это пять баллов.
по вопросу "а чо такое хэширование": yaklit, иди в гугл.