Приветствую, вас, мои параноики, предлагаю вам свое видение защиты информации с помощью так называемого ИКЗ (Индивидуальный Ключ Защиты), основанного на обычной флешке.
В конфигурации есть подробные комментарии и примеры использования, так что предлагаю ознакомиться.
Приму конструктивную критику.
В: Как создать новый ИКЗ?
О: //Вставляем чистую флешку, форматируем, присваиваем метку "1CSECURE"
Ключ = Новый Структура;
Юзверь = ПользователиИнформационнойБазы.НайтиПоИмени("Вася").ПолноеИмя; //или из справочника выбрать...
ПолучитьСформироватьДанныеКлючаЗащиты(Ключ,
Истина,Юзверь);
В итоге на флешке получим файл вида "АВ0320.dat" где "АВ0320" - серийный номер флешки, а в файле хранится имя владельца ИКЗ.
ВНИМАНИЕ: Если вы используете реализацию через ФСО, то серийные номера флешек будут цифровыми и с лидирующим знаком, например: "-46548000" , так же ФСО может и не сработать, в коде есть комментарий "почему?".
В: Что нужно для использования ИКЗ на 7.7
О:// Функция возвращает СОМОбъект по моникеру или имени файла
// Фактически заменяет функцию ПолучитьCOMОбъект в версии 1С 8.х
Функция ПолучитьCOMОбъект(СтрокаПараметров) Экспорт
ScrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl");
ScrptCtrl.Language="vbscript";
ScrptCtrl.AddCode("Function GetCOMObject(Str)
|Set GetCOMObject = GetObject(Str)
|End Function
|");
Возврат ScrptCtrl.Run("GetCOMObject",СтрокаПараметров);
КонецФункции // ПолучитьCOMОбъект
НА ЭТОМ ОБСУЖДЕНИЕ СОВМЕСТИМОСТИ С 7.7 СЧИТАЮ ЗАКРЫТЫМ
Изменения:
1. немного поправил местами код, изменил комментарии
2. добавил *.dt для 8.2
ВНИМАНИЕ:
В архиве 2 выгрузки базы, одна для 8.1 (ИКЗ_демо_8_1.dt) другая для 8.2 (ИКЗ_демо_8_2.dt)
