API для подсчета CRC любого файла -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.149.213.209]

Модераторы: SCINER, B.V.

API для подсчета CRC любого файла , API для чтения CRC из PE файлов

SCINER

Сообщ. #1 , 03.02.06, 20:51

Moderator

Рейтинг (т): 228

Private Declare Function MapFileAndCheckSumA Lib "Imagehlp.dll" (ByVal FileName As String, _

HeaderSum As Long, CheckSum As Long) As Long

'crc уже прошита в экзешник,

'данная функция читает его из экзешника

Function GetPEHeadCrc(ByVal Path As String) As Long

Dim Tmp As String

Dim lRet&, crcH&, crcC&

lRet = MapFileAndCheckSumA(Path, crcH, crcC)

GetPEHeadCrc = crcH

End Function

'здесь вызывается функция, которая пересчитывает crc любого переданного файла

'результат данной функции обязан совпадать с результатом функции написанной выше

'иначе файл однозначно модифицирован!

Function GetRealCrc(ByVal Path As String) As Long

Dim Tmp As String

Dim lRet&, crcH&, crcC&

lRet = MapFileAndCheckSumA(Path, crcH, crcC)

GetRealCrc = crcC

End Function

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0193 ] [ 16 queries used ] [ Generated: 27.04.24, 15:34 GMT ]