1С:Предприятие 8. 1С-Логистика

[donnickova]

на складе недавно ввели систему управления от 1C. честно говоря, все мои понятия о логистических услугах перевернулись!

[juden]

у кого-нибудь получилось обойти защитуИ и если обощли то какИ

и еще у кого нибудь есть файлик - 3DFF.paramfileИ?

[Volina777]

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

А можешь до кучи сложить на обменник *.datafile, *.reginfo ну и *.paramfile от этой конфы?

[aipnnov]

Взломать практически не возможно т.к. обработка создается и после создания удаляется физически с сервера защиты путь к ней //.../Обработка.pdf, но я частично решил часть проблемы, т.е. кроме работы с ТСД, руки не дошли.

[pri_hod]

ну и как же ты решил часть проблемы?

[aipnnov]

Примерно так,:p обработка РабочееМестоОператораПрие мки, для работы формы приемки:

//ликвидация защиты
Процедура защСформироватьТаблицуОбх ода(ТаблицаЗначений) Экспорт

ТаблицаЗначений.Колонки.До бавить("БыстрыйВыбор");
ТаблицаЗначений.Колонки.До бавить("Владелец");
ТаблицаЗначений.Колонки.До бавить("ОбработчикВвода");
ТаблицаЗначений.Колонки.До бавить("ОбработчикИзменени я");
ТаблицаЗначений.Колонки.До бавить("ТекстСообщения");
ТаблицаЗначений.Колонки.До бавить("ЭлементФормы");


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

Процедура защУдалитьОкноВвода(Текущ� �яФорма) Экспорт

Если ТекущаяФорма.ЭлементыФорм� �.Найти("ОкноВвода") <> Неопределено Тогда
ТекущаяФорма.ЭлементыФорм� �.Удалить(ТекущаяФорма.Элем ентыФормы.ОкноВвода);
КонецЕсли;

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

Процедура защУстановитьВыполнениеЗа дания(Владелец, Исполнитель, Состояние) Экспорт
НаборЗаписей = РегистрыСведений.устВыпол� �яемыеЗадания.СоздатьНабор Записей();
НаборЗаписей.Отбор.Задание .Установить(Владелец);
НаборЗаписей.Отбор.Исполни тель.Установить(Исполнител ь);
НаборЗаписей.Очистить();
НоваяЗапись = НаборЗаписей.Добавить();
НоваяЗапись.Задание = Владелец;
НоваяЗапись.Исполнитель = Исполнитель;
НоваяЗапись.Выполнение = Состояние;
НаборЗаписей.Записать();
КонецПроцедуры

Процедура защДобавитьЭлементВОбход(� �аблицаЗначений, ЭлементФормы, ТекстСообщения = "", ОбработчикИзменения, ОбработчикВвода = Неопределено, БыстрыйВыбор = Ложь, Владелец = Неопределено) Экспорт

НоваяСтрока = ТаблицаЗначений.Добавить();
НоваяСтрока.БыстрыйВыбор = БыстрыйВыбор;
НоваяСтрока.ОбработчикВво� �а = ОбработчикВвода;
НоваяСтрока.ОбработчикИзм� �нения = ОбработчикИзменения;
НоваяСтрока.ТекстСообщени� � = ТекстСообщения;
НоваяСтрока.ЭлементФормы = ЭлементФормы;
НоваяСтрока.Владелец = Владелец;

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

Функция защАктивизироватьСледующу юСтроку(ЭтаФорма, знач текСтрока = Неопределено, Итератор = 1, ОбходИтератором = Ложь) Экспорт

Если ОбходИтератором Тогда
Итератор = Итератор - 1;
КонецЕсли;

Если текСтрока = Неопределено Тогда
ПозицияТекСтроки = -1;
Иначе
ПозицияТекСтроки = текСтрока.Владелец().Индекс (текСтрока);
КонецЕсли;

Если ЭтаФорма.тбзПорядокОбхода. Количество() < ПозицияТекСтроки + Итератор + 2 Тогда
текСтрока = Неопределено;
Возврат текСтрока;
ИначеЕсли ПозицияТекСтроки + Итератор + 1 < 0 Тогда
текСтрока = ЭтаФорма.тбзПорядокОбхода[0];
Иначе
текСтрока = ЭтаФорма.тбзПорядокОбхода[ПозицияТекСтроки + Итератор + 1];
КонецЕсли;

Если текСтрока.ЭлементФормы.Про пускатьПриВводе Тогда
текСтрока = защАктивизироватьСледующу юСтроку(текСтрока);
КонецЕсли;

Если текСтрока <> Неопределено Тогда
защДобавитьОкноВвода(ЭтаФ� �рма, текСтрока);
ЭтаФорма.ЭлементыФормы.Тек ущаяПодсказка.Заголовок = текСтрока.ТекстСообщения;
текСтрока.ЭлементФормы.Про пускатьПриВводе = Ложь;
КонецЕсли;

Возврат текСтрока;


КонецФункции

Процедура защДобавитьОкноВвода(ЭтаФ� �рма, текСтрока)

защУдалитьОкноВвода(ЭтаФо� �ма);
ОкноВвода = ЭтаФорма.ЭлементыФормы.Доб авить(Тип("ПолеВвода"), "ОкноВвода");
ЗаполнитьЗначенияСвойств(� �кноВвода, текСтрока.ЭлементФормы);

ОкноВвода.Имя = "ОкноВвода";
ОкноВвода.ВертикальноеПол� �жение = ВертикальноеПоложение.Вер� �;
ОкноВвода.Данные = "";
ОкноВвода.КнопкаВыбора = Ложь;
ОкноВвода.КнопкаОчистки = Ложь;
ОкноВвода.ПорядокОбхода = ЭтаФорма.ЭлементыФормы.Кол ичество();
ОкноВвода.ПорядокОтображе� �ия = ЭтаФорма.ЭлементыФормы.Кол ичество();
ОкноВвода.ШиринаСпискаВыб� �ра = 15;
ОкноВвода.АвтоВыборНезапо� �ненного = текСтрока.БыстрыйВыбор;
ОкноВвода.РежимВыбораНеза� �олненного = ?(текСтрока.БыстрыйВыбор, РежимВыбораНезаполненного .ПриНажатииEnter, РежимВыбораНезаполненного .ПриАктивизации);

Если ТипЗнч(ОкноВвода.Значение) = ТипЗнч(Справочники.усЕдини цыХранения.ПустаяСсылка()) Тогда
ОкноВвода.ВыборПоВладельц� � = ЭтаФорма.Номенклатура;
ОкноВвода.Значение = ЭтаФорма.Номенклатура.Базо ваяЕдиницаХранения;
ОкноВвода.КнопкаВыбора = Истина;
ОкноВвода.БыстрыйВыбор = текСтрока.БыстрыйВыбор;
ИначеЕсли ТипЗнч(ОкноВвода.Значение) = Тип("Дата") Тогда
ОкноВвода.КнопкаВыбора = Истина;
ИначеЕсли ТипЗнч(ОкноВвода.Значение) = Тип("Строка") Тогда
// Ничего
ИначеЕсли ТипЗнч(ОкноВвода.Значение) = Тип("Число") Тогда
// Ничего
Иначе
ОкноВвода.БыстрыйВыбор = текСтрока.БыстрыйВыбор;
КонецЕсли;

ОкноВвода.УстановитьДейст� �ие("ОкончаниеВводаТекста", Новый Действие(текСтрока.Обработ чикВвода));
ОкноВвода.УстановитьДейст� �ие("ПриИзменении", Новый Действие(текСтрока.Обработ чикИзменения));

ЭтаФорма.ТекущийЭлемент = ОкноВвода;

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

// Активизирует строку переданную параметром.
//
// Параметры:
// ТекущаяФорма - форма - текущая форма для которой будет активизирован реквизит.
// текСтрока - эдемент формы - строка для активизации.
//
// Возвращаемое значение:
// Текущая строка соответствующая активизированному реквизиту.
//
Функция защАктивизироватьСтроку(Т� �кущаяФорма, знач текСтрока) Экспорт

СтрокаФормы = текСтрока;
ТекущаяФорма.ЭлементыФорм� �.ТекущаяПодсказка.Заголов� �к = СтрокаФормы.ТекстСообщени� �;
СтрокаФормы.ЭлементФормы.П ропускатьПриВводе = Ложь;
защДобавитьОкноВвода(Теку� �аяФорма,СтрокаФормы);
Возврат СтрокаФормы;

КонецФункции

[4ish]

aipnnov, не совсем понял как именно Ваш кусок кода помогает обойти защитку. Если не сложно, поясните пожалуйста.

[aipnnov]

А, здесь и понимать нечего. Защита только для того чтобы скрыть обработки. одну я уже дал выше, но есть еще одна, которая служит для работы ТСД (терминала сбора данных).
Кстати, в последних релизах ЛИС уже эта обработка открыта т.к. по всей видимости авторы уже узнали, что ее уже вскрыли.
А чтобы не работала защита, необходимо в главном модуле убрать пару строк кода, которые активизируют защиту и добавить эту обработку в конфу как общий модуль.
Но ТСД работать не будет, для него надо писать еще одну обработку. Но будут работать все функции с рабочео стола оператора приемки.

[4ish]

Там вроде все на на глЗащита и КомпонентаЗащиты завязано.
Если это комментить, конфа открывается, но документы не запускаются.
Просто не понял, как мне поможет Ваш общий модуль? В каком месте он вызываться будет?

[aipnnov]

Это и есть часть модуля как в глЗащита.