Changing Objects on the Fly (COOF)

[Hed]

Если получится, скажи. Я тожен встречал такую защиту уже. Очень интересно, как ее умудрились провернуть.

Но вся прелесть той защиты в том, что никто не знает как ее сделали и, соответственно, как ее обойти

[Seer_imported]

Цитата:

Сообщение от Hed

Но вся прелесть той защиты в том, что никто не знает как ее сделали и, соответственно, как ее обойти

Обойти ее можно, только восстановив логику работы функциональности, так как исходный код физически вытирается из объекта. Есть и другой путь - декомпилировать откомпилированный объект. Но для больших объемов исходного кода оба варианта практически нереализуемы - проще самому написать.

P.S.: Представьте себе, например, восстановить логику работы 12-ого кодеюнита.

[Arshak]

а в 12 кодюните есть логика?)

[Seer_imported]

Цитата:

Сообщение от Arshak

а в 12 кодюните есть логика?)

Безумная, но есть.

[DA_NEAL]

Вот только после доработок некоторых консалтеров она просто нереально безбашенная

[ablievn_imported]

Решил попробовать как все это работает, тем более что повод есть. Очень интересно добавить поле с системным номером (< 50000). Никаких лицензионных соглашений нарушать не собираюсь, просто в целях самообразования, поэтому просьба пост не трогать. Сохранил табличку в файлике. Редактором поменял номера полей (2 вхождения нашел для замены). Закачал измененный файлик в [BLOB Reference] напрямую, через адо. Открываю табличку в дизайнере, ничего не изменилось. Отсюда вопрос, что недоделал?

[DA_NEAL]

То что видно в дизайнере после манипуляций с объектом путем внешнего редактирования не всегда соответвует скомпилированной части объекта.

[ablievn_imported]

А как сделать, чтобы соответствовало?

[Seer_imported]

Цитата:

Сообщение от ablievn

А как сделать, чтобы соответствовало?

Или не редактировать извне, или заняться увлекательной процедурой декомпиляции.

[ablievn_imported]

С соотвествием я разобрался вопрос снят. Но вот после закачки блоба через адо, табличка перестала открываться в дизайнере. Ругается на размер сжатого блоба. И действительно DATALENGTH на [BLOB Reference] выдает удивительную цифру.

[Kirvisniemi]

Тут все несколько сложнее.

Все дело в том, что скомпилированный код хранится в [BLOB Reference] в сжатом и зашифрованном виде. Поэтому то Datalength([BLOB Reference]) и [BLOB Size] не совпадают.

[Kirvisniemi]

В случае когда работаем через C/AL - в файл выгружается расжатый и расшифрованный код (в откомпилированном виде), размер которого совпадает с [BLOB Size]

[ablievn_imported]

А как же тогда загрузить измененный файлик обратно, чтобы система могла с ним работать. Может опишешь этот процесс поподробнее. Через CAL тоже загрузить не дает, ругается на отсутствие прав

[Seer_imported]

Цитата:

Сообщение от ablievn

А как же тогда загрузить измененный файлик обратно, чтобы система могла с ним работать. Может опишешь этот процесс поподробнее. Через CAL тоже загрузить не дает, ругается на отсутствие прав

А каким образом загружаете?

[ablievn_imported]

таким:

WHILE (lFile.READ(lChar) > 0) DO BEGIN
lVariant := lChar;
lAdoRS.Fields.Item('BLOB').AppendChunk(lVariant);
END;

lAdoRS.Update;

[Seer_imported]

Цитата:

Сообщение от ablievn

таким:

WHILE (lFile.READ(lChar) > 0) DO BEGIN
lVariant := lChar;
lAdoRS.Fields.Item('BLOB').AppendChunk(lVariant);
END;

lAdoRS.Update;

Если делать так, то ругаться не должен:

Objects.SETRANGE(Тип, Objects.Тип :: Codeunit);
Objects.SETRANGE(ID, 12);
IF Objects.FIND('-') THEN BEGIN
Objects."BLOB Ссылка".IMPORT('C:\MyFile.txt');
Objects.MODIFY;
END;

[Kirvisniemi]

Цитата:

А как же тогда загрузить измененный файлик обратно, чтобы система могла с ним работать. Может опишешь этот процесс поподробнее. Через CAL тоже загрузить не дает, ругается на отсутствие прав

Я бы описал, вот только боюсь удалят эту тему - т.к. это механизм полного доступа ко всем объектам при наличии всего лишь демо-лицензии :-)

Цитата:

Если делать так, то ругаться не должен

При изменении таблиц будет ругаться

[Seer_imported]

Цитата:

Сообщение от tyrex

При изменении таблиц будет ругаться

Из любого диапазона ID?

[ablievn_imported]

Я же написал, что если из CAL загружать будет ругаться. Поэтому
Objects."BLOB Ссылка".IMPORT('C:\MyFile.txt'); не прокатит, если в таблице есть поля за пределами
лицензии.
Загружать нужно напрямую, но как автор не хочет открывать. Может на личку можно отправить ChuckGek@rbcmail.ru

[Rungart]

Цитата:

Сообщение от tyrex

Я бы описал, вот только боюсь удалят эту тему - т.к. это механизм полного доступа ко всем объектам при наличии всего лишь демо-лицензии :-)

Думаю, что не стоит развивать тему.

Цитата:

4.4. Запрещены реклама, продажа, обмен и распространение нелицензионного программного обеспечения. Запрещено любое обсуждение взлома, обхода защиты любого программного обеспечения. Запрещено размещение ссылок на нелицензионное программное обеспечение, на сайты, пиринговые сети, листы рассылки и т.п. с подобным содержанием.