Как узнать чексумму для файла?

[Glass]

Здравствуйте.
Подскажите, есть ли стандартные (или нестандартные) библиотечные функции для вычиисления чексуммы, хэша, CRC-32 - любого из перечисленного...

Вот.

[Dmitriy2003]

Стандартных функций в VB нет. Правда недавно я наткнулся на обширный хелп по созданию CRC алгоритмов и прочих штучек. Ужас. Помоему это для мазохистов от С++. Точного линка дать не могу т.к. к таковым неотношусь. Если память меня не подводит он на рамблере по запросу CRC выпал вместе с еще с полсотней. Кто ищет тот найдет. (слова не мои).

[lenar]

Может я не так понял, но вроде можно так !

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

Public Function NumCode(filePath As String)
On Error GoTo ghj
Dim ZCnrX As Long
Dim ch As Long
Dim i As Long
Dim bytes() As Byte
DoEvents
Open filePath For Binary As #7
num_bytes = LOF(7)
ReDim bytes(1 To num_bytes)
Get #7, , bytes
Close 7
On Error Resume Next
i = 0
Do While i < num_bytes
ch = bytes(i + 1)
ZCnrX = ZCnrX + ch
i = i + 1
Loop
Close #5
NumCode = ZCnrX
Exit Function
ghj:
NumCode = 0
End Function