eXeLab
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 12 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

Русский / Russian English / Английский

Сейчас на форуме: (+1 невидимый пользователь)
 · Начало · Статистика · Регистрация · Поиск · ПРАВИЛА ФОРУМА · Язык · RSS · SVN ·

 eXeL@B —› Вопросы новичков —› Помогите советом по VB
Посл.ответ Сообщение

Ранг: 5.6 (гость)
Статус: Участник

Создано: 14 февраля 2018 10:10 · Поправил: egorus2010 New!
Цитата · Личное сообщение · #1

Это после VB Decompiler.
Кто знает, что получится в итоге?
Смущает var_7C - 2018 * 360.
Может, декомпилер скобки не расставляет?
Ведь похоже, что разницу в годах переводят в дни?
А получается, что нужно от 2018 отнять 2018*360...
Ну и далее Month(Now) - 1 * 30.
Тоже, наверное, нужно (Month(Now) - 1) * 30)?

И особенно var_ret_5 = (var_44 < ""). Что это, присвоение var_ret_5 true или false?
И как может быть меньше, чем ""?

loc_001: var_6C = Now
loc_002: var_7C = Year(var_6C)
loc_003: call undef 'Ignore this '__vbaFreeVar
loc_004: var_44 = var_7C - 2018 * 360 + Month(Now) - 1 * 30 + Day(Now)
loc_005: call undef 'Ignore this '__vbaFreeVar
loc_00E6: var_ret_5 = (var_44 < "")
loc_007: var_ret_7 = var_8C Or (var_44 > 360)

Ранг: 37.6 (посетитель)
Статус: Участник

Создано: 14 февраля 2018 10:51 New!
Цитата · Личное сообщение · #2

egorus2010 пишет:
Кто знает, что получится в итоге?

А слабо было исходник приложить? Ну медитирует там VB Decompiler , ну и что, разбираться, что должно быть?
Если версия официальная, спрашивай у автора, он ответит...

Ранг: 5.6 (гость)
Статус: Участник

Создано: 14 февраля 2018 11:05 New!
Цитата · Личное сообщение · #3

Спросил тоже...


Ранг: 307.7 (мудрец)
Статус: Участник

Создано: 14 февраля 2018 11:56 · Поправил: mysterio New!
Цитата · Личное сообщение · #4

Обычная проверка, юзаем ли мы софт больше года:
var_ret_7 = (Год-2018)*360+(Месяц-1)*30+День;
Для даты 14.02.2019:
var_ret_7 = (2019-2018)*360+(2-1)*30+14 = 404
var_ret_7 = (Нужно_обновиться = true) or (404 > 360); = Беги юзер за обновлением или регистрируй триал ;)

var_ret_5 = (var_44 < ""); - var_44 < 0 = не ушла ли дата (дни) в минус.

| Сообщение посчитали полезным: egorus2010, 0xC3

 eXeL@B —› Вопросы новичков —› Помогите советом по VB

Оригинальный DVD-ROM: eXeL@B DVD !

Вы находитесь на форуме сайта EXELAB.RU
Проект ReactOS