Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проверка crc файла, Каким образом осуществить проверку на .. 
:(
    Опции темы
melx
Дата 19.7.2004, 08:20 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Каким образом подсчитать контрольную сумму в файле exe ?
  Вверх
melx
Дата 19.7.2004, 09:27 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Т.е. произвести бинарное чтение файла, с подсчетом контрольной суммы.
  Вверх
Malex
Дата 19.7.2004, 09:53 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


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
Дата 22.3.2006, 19:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 10.3.2006

Репутация: нет
Всего: нет



а как подсчитать контрольную сумму любого файлаи, если можно с описанием алгоритма?
PM MAIL   Вверх
cardinal
Дата 22.3.2006, 19:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99



Первое что мне google выкинул...
http://vb-tec.de/crc.htm


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Akina
Дата 22.3.2006, 19:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Вообще-то есть несколько разных (причем принципиально разных) алгоритмов подсчета CRC... кто хочет осмысленного совета - задает осмысленный вопрос.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Velin
Дата 22.3.2006, 20:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 1.3.2006

Репутация: нет
Всего: нет



Ну самый простой, отключить в VB проверку переполнения и суммировать все байты. И будет вам простешая CRC.
PM MAIL   Вверх
gromstar
Дата 23.3.2006, 11:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 10.3.2006

Репутация: нет
Всего: нет



cardinal, Еще раз огромное спасибо!!!
PM MAIL   Вверх
SCINER2
Дата 27.3.2006, 07:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 28.2.2006

Репутация: нет
Всего: нет



PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0652 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.