![]() |
Модераторы: Akina |
![]() ![]() ![]() |
|
melx |
|
|||
Unregistered |
Каким образом подсчитать контрольную сумму в файле exe ?
|
|||
|
||||
melx |
|
|||
Unregistered |
Т.е. произвести бинарное чтение файла, с подсчетом контрольной суммы.
|
|||
|
||||
Malex |
|
|||
Unregistered |
FF = FreeFile
a = String$(5, " ") Open putt For Binary As #FF Seek #1, 1000 ' чтобы опустить заголовок exe Do Until (EOF(1)) Get #FF, sum, a sum = sum + 5 For I = 1 To Len(a) k1b = Asc(Mid$(a, I, 1)) sum1 = sum1 + k1b * sum: If sum1 > 256 Then sum1 = sum1 - 256 * Int(sum1 / 256) Next I Loop Close #FF ' скажем так sum ведет счетчик, по 5 байтов (можно увеличить) ' а sum1 суммирует crc файла. Суммируется значением байта от компьютера умноженного на позицию файла. Пойдет? Может правда другой что нибудь кто-то скажет. |
|||
|
||||
gromstar |
|
|||
Новичок Профиль Группа: Участник Сообщений: 18 Регистрация: 10.3.2006 Репутация: нет Всего: нет |
а как подсчитать контрольную сумму любого файлаи, если можно с описанием алгоритма?
|
|||
|
||||
cardinal |
|
|||
![]() Инженер ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 6003 Регистрация: 26.3.2002 Где: Германия Репутация: 19 Всего: 99 |
-------------------- Немецкая оппозиция потребовала упростить натурализацию иммигрантов В моем блоге: Разные истории из жизни в Германии "Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие |
|||
|
||||
Akina |
|
|||
Советчик ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 454 |
Вообще-то есть несколько разных (причем принципиально разных) алгоритмов подсчета CRC... кто хочет осмысленного совета - задает осмысленный вопрос.
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
Velin |
|
|||
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 1.3.2006 Репутация: нет Всего: нет |
Ну самый простой, отключить в VB проверку переполнения и суммировать все байты. И будет вам простешая CRC.
|
|||
|
||||
gromstar |
|
|||
Новичок Профиль Группа: Участник Сообщений: 18 Регистрация: 10.3.2006 Репутация: нет Всего: нет |
cardinal, Еще раз огромное спасибо!!!
|
|||
|
||||
SCINER2 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 28.2.2006 Репутация: нет Всего: нет |
||||
|
||||
![]() ![]() ![]() |
Правила форума "VB6" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | VB6 | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |