Зашифровать модуль используя СЛК - 1С - Ответ 9944025

// Ссылка на менеджер объектов, который создал этот объект, получена 
// в предопредленной процедуре "ПриСозданииОбъекта"
Перем _менеджерОбъектов;
 
//
// Предопределенная процедура, вызывающаяся при создании объекта методом "СоздатьОбъект"
//
// Позволяет разработчику запретить создание обаботки, для чего 
// необходимо установить значение параметра "Отказ" в "Истина"
//
// МенеджерЛицензий - ссылка на менеджре лицензий, которым создан объект
// Отказ            - признак запрета создания
// ОписаниеОшибки   - описание ошибки, устанавливаемое разработчиком в случае запрета 
// создания объекта
// 
// В этой процедуре рекомендуется проверять значения лицензионных 
// параметров и в зависимости от них разрешить или запретить создание 
// объекта.
//
Процедура ПриСозданииОбъекта(МенеджерОбъектов, Отказ, ОписаниеОшибки) Экспорт
    _менеджерОбъектов = МенеджерОбъектов;
КонецПроцедуры
 
//
// Предопределенная процедура, вызывающаяся при создании объекта методом 
// "СоздатьОбъект" перед проверкой лицензии сеанса
//
// Позволяет разработчику отказаться от проверки лицензии, для чего 
// необходимо установить значение параметра "Отказ" в "Истина".
//
// Используется в случае когда достаточно только защитить код и данные объекта и 
// нет необходимости в контроле лицензий
//
Процедура ПередКонтролемЛицензии(Отказ) Экспорт
    Отказ = Ложь;
КонецПроцедуры
 
//
// Предопределенная процедура, вызывающаяся при создании объекта методами 
// "Создать" и "СоздатьПоСсылке"
//
Процедура ПриСоздании(МенеджерЛицензий, КлиентскаяСылка, Отказ, ОписаниеОшибки) Экспорт
    // Контроль лицензий сеанса выполняется при создании объекта методом 
    // "СоздатьОбъект". 
    //
    // Чтобы объект было невозможно создать старвми методами без контроля 
    // лицензий сеанса запрещаем создание
    Отказ = Истина;
КонецПроцедуры
 
//
// Пример функции, использующей значение лицензионного параметра. Для получения 
// значения используется менеджер объектов, установленный в предопредленной 
// процедуре "ПриСозданииОбъекта" (см. выше)
//
Функция МетодОбъекта() Экспорт
    Стр = 
      ЭтотОбъект.Метаданные().ПолноеИмя() + Символы.ПС +
      "Ключ = " + Строка(_менеджерОбъектов.ПолучитьНомерКлюча()) +
      ", ТипПриложения=" + _менеджерОбъектов.ПолучитьЗначениеПараметра("ТипПриложения");
    Возврат Стр;
КонецФункции