Необходим cовет по исследованию прогрммы на VB

Сейчас на форуме: _MBK_, asfa (+5 невидимых)

Посл.ответ	Сообщение
verdizela Ранг: 129.0 (ветеран), 116thx Активность: 0.06↘0 Статус: Участник	Создано: 10 апреля 2009 10:12 · Личное сообщение · #1 Подскажите пожалуйста как найти место проверки системной даты для программы написаной на Microsoft Visual Basic 5.0 / 6.0. Когда запускаю программу, выскакивает окно с сообщением о необходимости обновить программу и на этом все заканчивается. Пробовал запускать через лоадер, использовал SlyASW. то программа запускается, все нормально... Я хочу найти место, где она проверяет дату и убрать это сообщение. Пробовал устанавливать бряки, сработал только на rtcMsgBox, протрассировав я дошел до этого противного сообщения, но от куда оно вызывается не нашел. Также открывал прогу в VB Decompiler Lite, но найти там, что-то связанное с датой не смог. Сам дистрибутив проги большой, если нужно могу выложить сам экзешник. Подскажите кто сможет. ----- We do what we want because we can.

progopis Ранг: 101.0 (ветеран), 344thx Активность: 1.15↘0 Статус: Участник	Создано: 10 апреля 2009 10:45 · Личное сообщение · #2 Выложи EXE. А там посмотрим.
verdizela Ранг: 129.0 (ветеран), 116thx Активность: 0.06↘0 Статус: Участник	Создано: 10 апреля 2009 11:00 · Поправил: verdizela · Личное сообщение · #3 progopis пишет: Выложи EXE. А там посмотрим. Взять можно отсюда: link_deleted_by_forum_engine/files/5s2vmktih www.datafilehost.com/download-5aebdf96.html rapidshare.com/files/219574311/Hbase.rar.html В папке с установленной программой есть еще одна dll, выкладываю и ее тоже. link_deleted_by_forum_engine/files/l6yy9yvje www.datafilehost.com/download-13cac6da.html rapidshare.com/files/219578606/nohau.rar.html ----- We do what we want because we can.
progopis Ранг: 101.0 (ветеран), 344thx Активность: 1.15↘0 Статус: Участник	Создано: 11 апреля 2009 21:42 · Поправил: progopis · Личное сообщение · #4 Данный комплект файлов у меня не заработал. Качать весь пока нет возможности. Обрати внимание на следующий код: Code: .text:0054D989 lea eax, [ebp+var_2C] .text:0054D98C push edx .text:0054D98D push eax .text:0054D98E call ds:rtcFileDateTime .text:0054D994 lea ecx, [ebp+var_2C] .text:0054D997 push ecx .text:0054D998 call ds:__vbaDateVar Функция rtcFileDateTime - это функция FileDateTime в VB. Об этом можно было бы почитать в моём справочнике по VB Native API, если бы он всё-таки вышел, но за неимением времени я его пока не доделал. Ещё возможно VB позволяет узнать дату файла путём вызова внешних API функций системы, коих существует очень много. С помощью декомпиля VB от GPcH я посмотрел список импортированных функций API и вот на чём остановился: Code: 'VA: 42EF50 Private Declare Function LocalFileTimeToFileTime Lib "kernel32" Alias "LocalFileTimeToFileTime" (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long ... 'VA: 42EEBC Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long 'VA: 42EE78 Private Declare Function SystemTimeToFileTime Lib "kernel32" Alias "SystemTimeToFileTime" (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long 'VA: 42EE28 Private Declare Function SetFileTime Lib "kernel32" Alias "SetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long Ещё там были вызовы функций из библиотеки nohau.dll - в ней копаться не стал. Но судя по названиям функций, вряд ли проверка файла была в ней. Надеюсь, приведённая информация хоть как-то поможет тебе. Будут какие вопросы - пиши.
verdizela Ранг: 129.0 (ветеран), 116thx Активность: 0.06↘0 Статус: Участник	Создано: 11 апреля 2009 22:25 · Поправил: verdizela · Личное сообщение · #5 progopis Большое спасибо за ответ! Обязательно обращу внимание на выделленные фрагменты кода и попробую разобраться с этим. ----- We do what we want because we can.

Для печати