ОБРАБОТКИ.com

Данная статья посвящена одному из способов защиты макета табличного документа, содержащегося во внешней обработке 1С, от несанкционированного использования. Как защитить модуль внешней обработки от «чайника» знают все — поставить на него пароль. А что делать если основную ценность обработки представляет не только модуль но и макет табличного документа содержащий множество различных секций, который Вы рисовали не одну ночь. За примером далеко ходить не надо — посмотрите на любую форму Госкомстата.

Ну что, поехали — постановка задачи: защитить макет табличного документа внешней обработки.
1). Сохраняем наш супер-макет табличного документа в MXL-файл — МойМакет.mxl
2). Удаляем его из обработки.
3). Архивируем МойМакет.mxl с помощью архиватора в формате ZIP, ОБЯЗАТЕЛЬНО С ПАРОЛЕМ — МойСекретныйПароль, получаем файл МойМакет.zip
4). Добавляем в нашу обработку макет типа Двоичные данные, называем его ШифрованныйМакет и загружаем в него файл МойМакет.zip
5). В форме обработки:

Процедура КнопкаВыполнитьНажатие(Кнопка)
    Печать("ШифрованныйМакет");
КонецПроцедуры

6). В модуле обработки:

Процедура Печать(ИмяМакета) экспорт

    ИмяMXLфайла = "МойМакет.mxl";

    // Извлекаем файл ZIP из макета и сохраняем во временный файл
    ИмяВременногоФайлаZIP = ПолучитьИмяВременногоФайла("zip");
    ДвоичныеДанные = ПолучитьМакет(ИмяМакета);
    ДвоичныеДанные.Записать(ИмяВременногоФайлаZIP);

    // Извлекаем из ZIP-архива MXL-файл и сохраняем его во временный файл
    ЧтениеZIP = Новый ЧтениеZipФайла(ИмяВременногоФайлаZIP, 
    "МойСекретныйПароль");
    ЭлементZIPАрхива = ЧтениеZIP.Элементы.Найти(ИмяMXLфайла);
    ЧтениеZIP.Извлечь(ЭлементZIPАрхива, КаталогВременныхФайлов(), 
    РежимВосстановленияПутейФайловZIP.НеВосстанавливать);
    ЧтениеZIP.Закрыть();

    // Получаем макет табличного документа из MXL-файла
    Макет = Новый ТабличныйДокумент;
    Макет.Прочитать(КаталогВременныхФайлов()+ ИмяMXLфайла); 

    // Заметаем следы
    УдалитьФайлы(КаталогВременныхФайлов()+ИмяMXLфайла);
    УдалитьФайлы(ИмяВременногоФайлаZIP);
   
    // Показываем результирующий табличный документ пользователю
    Табличныйдокумент = Новый ТабличныйДокумент;
    ОбластьМакета = Макет.ПолучитьОбласть("Область1|Область2");
    Для Счетчик1 = 1 по 10 цикл
        Табличныйдокумент.Вывести(ОбластьМакета);
        Для Счетчик2 = 1 по 4 цикл
            Табличныйдокумент.Присоединить(ОбластьМакета);
        КонецЦикла;
    КонецЦикла;
    Табличныйдокумент.Защита=Истина;
    Табличныйдокумент.Показать();

КонецПроцедуры

7). А теперь самое главное: ставим пароль на модуль нашей внешней обработки — МойСекретныйПароль, иначе все наши выкрутасы с шифрованием-дешифрованием — коту под хвост. Конечно кто-то скажет, что данную защиту можно взломать, и конечно он окажется прав, потому что взломать можно ЛЮБУЮ ЗАЩИТУ. Идеальной защиты не существует, как впрочем, и ничего идеального …

Если публикация помогла Вам справится с проблемой, решить задачу или расширить свои знания - поддержите автора.

Категории: Авторские статьи по 1С, Полезные технологии разработки в 1С. Автор Администратор
6 комментариев »

Комментарии:

1. Alex:

   27.01.2011 в 10:19

   Хорошая идея использовать двоичные данные. Сам ее используя, только для хранения шифрованных обработок в конфигурации. А вот по поводу шифрования макета отчета раньше не задумывался. Ставлю (+).

   Войдите, чтобы ответить
   1. Администратор:

      27.01.2011 в 20:51

      Спасибо за комментарий, пользуйтесь на здоровье 🙂

      Войдите, чтобы ответить
2. raveness:

   23.08.2011 в 16:47

   Достаточно временную папку разместить на NAS диске и промониторить запись на диск, в результате получим искомый MXL-файл в папке «#recycle» или ей подобной. Это если задаться целью.

   Войдите, чтобы ответить
3. Владимир:

   11.10.2011 в 14:05

   Я вот что думаю — можно ведь этот MXL загнать в виде строки и зашифровать её штатными средствами 1С 8.

   Пример:

   КартинкаВСтроке = «iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAIAAABvFaqvAAAACXBIWXMAAAs6AAAL
   |………………………………………………………………………..
   |ujrT3bm9rjkq7W4ecfs3lmbmB36b7myfam1RD4uRZdVJksmo/w8QKxDHSNf5ZQAA
   |AABJRU5ErkJggg==»;
   КартинкаВДвоичныхДанных = Base64Значение(КартинкаВСтроке);
   Картинки.Вставить(«Бонус1»,Новый Картинка(КартинкаВДвоичныхДанных));

   Войдите, чтобы ответить
   1. Администратор:

      11.10.2011 в 20:14

      Можно, тогда последовательность операций будет примерно такая:
      Процедура кодировки:
      1). Готовим заранее MXL-макет(или любые другие данные) и сохраняем в виде файла на диске «СекретныйМакет.MXL»
      2). Создаем отдельную обработку для кодировки:
      ДвоичныеДанныеМакета = Новый ДвоичныеДанные(«СекретныйМакет.MXL»);
      СтрокаДвоичныхДанных = ЗначениеBase64(ДвоичныеДанныеМакета );
      // К СтрокаДвоичныхДанных применяем свой алгоритм шифрования, например примитивный XOR с ключом.
      ШифрованнаяСтрока = ЗашифроватьПоМоемуАлгоритму(СтрокаДвоичныхДанных);
      Сообщить(ШифрованнаяСтрока);
      3). Полученную шифрованную строку вставляем в текстовый макет результирующей обработки.

      Соответственно дешифрация производится в запоролированном модуле внешней обработки (отчета), в последовательности обратной вышеописанным действиям.

      Войдите, чтобы ответить
4. Felix:

   28.11.2011 в 17:41

   действительно полезно )

   Войдите, чтобы ответить