Информационная база.LicenseDistributionAllowed

Прочитать паспорт своей базы и не раскрыть пароль СУБД

Краткое описание агента даёт только имя/описание. Полные параметры IInfoBaseInfo читаются через рабочий процесс после отдельной аутентификации базы.

Подготовка

1. Нужен отдельный собственный локальный серверный стенд 1С 8.5.1.1343 на Windows без рабочих баз. Здесь выполняется только авторская подготовка кода: реальное подключение агентом справочника не выполнялось.

2. Администратор стенда заранее устанавливает сервер и регистрирует V85.COMConnector той же версии и разрядности, что серверный процесс учебной базы. Код не запускает regsvr32, не устанавливает платформу и не открывает COM 8.3 вместо 8.5.

3. В своём стенде создайте единственный целевой кластер с точным именем УчебныйКластер85 и новую пустую серверную базу с именем УчебнаяБаза85. У описания этой базы задайте точное значение syntax-guide85:owned-com. Не переименовывайте рабочую базу или кластер ради обхода защит.

4. У собственной учебной конфигурации задайте имя метаданных УчебнаяКонфигурацияСинтаксиса. Серверная функция должна выполняться на той же Windows-машине, что агент сервера и выбранный рабочий процесс: обращения жёстко ограничены 127.0.0.1.

5. Заведите отдельные действительные учебные учётные данные администратора агента, администратора кластера и администратора базы с правом Администратор. В этих уроках имена и пароли намеренно должны быть непустыми; анонимный режим не используется.

6. Создайте свою учебную обработку с управляемой формой. Реквизиты: ПортАгента и ПортКластера — Число без дробной части; КлючПроцесса, ИмяАгента, ПарольАгента, ИмяАдминистратораКластера, ПарольАдминистратораКластера, ИмяАдминистратораБазы, ПарольАдминистратораБазы, JSONРезультат — Строка; Занято — Булево, начально Ложь. Длина JSONРезультат 0.

7. Поля трёх паролей выведите в Режиме пароля и не сохраняйте в настройках формы, истории или файле. JSONРезультат выведите многострочным полем только для просмотра. Добавьте команду ПолучитьУчебныйCOMСнимок с одноимённым клиентским обработчиком.

8. Вставьте весь приведённый модуль формы, включая обе вспомогательные функции. ПортАгента берите из реальной настройки ragent, ПортКластера — из настройки менеджера кластера. Порт ras сюда не подходит.

9. Первый раз оставьте КлючПроцесса пустым. Каталог покажет только локальные процессы выбранного учебного кластера. Скопируйте точный ключ порт|PID живого процесса из JSON, повторно введите очищенные пароли и повторите команду. PID не придумывайте; после перезапуска процесса получите каталог заново.

10. Для диагностики соединений откройте одно или два своих клиентских окна УчебнаяБаза85 и выполните обычные учебные действия, например собственный константный запрос. Не создавайте нагрузку на рабочем сервере; измеряемые числа зависят от реальных действий.

11. Снимок содержит только выбранные поля, не целые COM-объекты. Пароль СУБД, код разрешения входа, параметр блокировки и строка внешнего управления сеансами выводятся только как признаки наличия. Наличие строки не доказывает её корректность или доступность сервиса.

12. Если вы сами запустите урок, произойдут административные обращения к своему локальному агенту и рабочему процессу. Настройки не меняются, сеансы не завершаются, база не создаётся и не удаляется. Здесь запуск в 1С и подключение не проверялись.

&НаКлиенте
Процедура ПолучитьУчебныйCOMСнимок(Команда)
    Если Занято Тогда
        Возврат;
    КонецЕсли;
    Занято = Истина;
    Попытка
        JSONРезультат = УчебныйCOMСнимокНаСервере(ПортАгента, ПортКластера, КлючПроцесса,
            ИмяАгента, ПарольАгента, ИмяАдминистратораКластера, ПарольАдминистратораКластера,
            ИмяАдминистратораБазы, ПарольАдминистратораБазы);
    Исключение
        JSONРезультат = "Снимок не получен. Проверьте собственный Windows-стенд, COM 8.5, разрядность, порты, ключ процесса, учебные имена и права. Сырую ошибку с учётными данными не публикуйте.";
    КонецПопытки;
    ПарольАгента = "";
    ПарольАдминистратораКластера = "";
    ПарольАдминистратораБазы = "";
    Занято = Ложь;
КонецПроцедуры

&НаСервереБезКонтекста
Функция УчебныйCOMСнимокНаСервере(ПортАгента, ПортКластера, КлючПроцесса,
    ИмяАгента, ПарольАгента, ИмяАдминистратораКластера, ПарольАдминистратораКластера,
    ИмяАдминистратораБазы, ПарольАдминистратораБазы)
    Система = Новый СистемнаяИнформация;
    Если Система.ТипПлатформы <> ТипПлатформы.Windows_x86
        И Система.ТипПлатформы <> ТипПлатформы.Windows_x86_64 Тогда
        ВызватьИсключение "COM-урок требует серверного выполнения на Windows";
    КонецЕсли;
    Порты = Новый Массив;
    Порты.Добавить(ПортАгента);
    Порты.Добавить(ПортКластера);
    Для Каждого Порт Из Порты Цикл
        Если ТипЗнч(Порт) <> Тип("Число") Тогда
            ВызватьИсключение "Порты должны быть числами";
        КонецЕсли;
        Если Порт <> Цел(Порт) ИЛИ Порт < 1 ИЛИ Порт > 65535 Тогда
            ВызватьИсключение "Недопустимый порт локального стенда";
        КонецЕсли;
    КонецЦикла;
    Если ТипЗнч(КлючПроцесса) <> Тип("Строка") Тогда
        ВызватьИсключение "Ключ процесса должен быть строкой";
    КонецЕсли;
    УчётныеДанные = Новый Структура;
    УчётныеДанные.Вставить("ИмяАгента", ИмяАгента);
    УчётныеДанные.Вставить("ПарольАгента", ПарольАгента);
    УчётныеДанные.Вставить("ИмяКластера", ИмяАдминистратораКластера);
    УчётныеДанные.Вставить("ПарольКластера", ПарольАдминистратораКластера);
    УчётныеДанные.Вставить("ИмяБазы", ИмяАдминистратораБазы);
    УчётныеДанные.Вставить("ПарольБазы", ПарольАдминистратораБазы);
    Для Каждого Поле Из УчётныеДанные Цикл
        Если ТипЗнч(Поле.Значение) <> Тип("Строка") Тогда
            ВызватьИсключение "Учебные учётные данные должны быть строками";
        КонецЕсли;
        Если ПустаяСтрока(Поле.Значение) Тогда
            ВызватьИсключение "Введите все три непустые учебные пары учётных данных";
        КонецЕсли;
    КонецЦикла;
    ЛокальноеИмя = НРег(ИмяКомпьютера());
    АдресАгента = "tcp://127.0.0.1:" + Формат(ПортАгента, "ЧГ=0");
    Соединитель = Новый COMОбъект("V85.COMConnector");
    Агент = Соединитель.ConnectAgent(АдресАгента);
    Если Агент.ConnectionString <> АдресАгента Тогда
        ВызватьИсключение "Не совпала строка выбранного локального подключения";
    КонецЕсли;
    Агент.AuthenticateAgent(ИмяАгента, ПарольАгента);
    Кластер = Неопределено;
    СовпаденийКластера = 0;
    Для Каждого Найденный Из Агент.GetClusters() Цикл
        Если Найденный.ClusterName = "УчебныйКластер85"
            И УчебныйЛокальныйУзел(Найденный.HostName, ЛокальноеИмя)
            И Найденный.MainPort = ПортКластера Тогда
            Кластер = Найденный;
            СовпаденийКластера = СовпаденийКластера + 1;
        КонецЕсли;
    КонецЦикла;
    Если СовпаденийКластера <> 1 Тогда
        ВызватьИсключение "Нужен единственный собственный локальный УчебныйКластер85 с указанным портом";
    КонецЕсли;
    Агент.Authenticate(Кластер, ИмяАдминистратораКластера, ПарольАдминистратораКластера);
    КраткаяБаза = Неопределено;
    СовпаденийБазы = 0;
    Для Каждого НайденнаяБаза Из Агент.GetInfoBases(Кластер) Цикл
        Если НайденнаяБаза.Name = "УчебнаяБаза85" И НайденнаяБаза.Descr = "syntax-guide85:owned-com" Тогда
            КраткаяБаза = НайденнаяБаза;
            СовпаденийБазы = СовпаденийБазы + 1;
        КонецЕсли;
    КонецЦикла;
    Если СовпаденийБазы <> 1 Тогда
        ВызватьИсключение "Не найдена единственная собственная база с точным маркером описания";
    КонецЕсли;
    Каталог = Новый Массив;
    Процесс = Неопределено;
    СовпаденийПроцесса = 0;
    Для Каждого НайденныйПроцесс Из Агент.GetWorkingProcesses(Кластер) Цикл
        Если УчебныйЛокальныйУзел(НайденныйПроцесс.HostName, ЛокальноеИмя)
            И НайденныйПроцесс.MainPort >= 1 И НайденныйПроцесс.MainPort <= 65535
            И НайденныйПроцесс.MainPort = Цел(НайденныйПроцесс.MainPort)
            И НЕ ПустаяСтрока(НайденныйПроцесс.PID) Тогда
            Ключ = Формат(НайденныйПроцесс.MainPort, "ЧГ=0") + "|" + НайденныйПроцесс.PID;
            Каталог.Добавить(Новый Структура("Ключ,Хост", Ключ, НайденныйПроцесс.HostName));
            Если Ключ = КлючПроцесса Тогда
                Процесс = НайденныйПроцесс;
                СовпаденийПроцесса = СовпаденийПроцесса + 1;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
    Если ПустаяСтрока(КлючПроцесса) Тогда
        Возврат СериализоватьСвойСнимок(Новый Структура("УчебныеПроцессы", Каталог));
    КонецЕсли;
    Если СовпаденийПроцесса <> 1 Тогда
        ВызватьИсключение "Нужен один живой локальный процесс с ключом из своего каталога";
    КонецЕсли;
    РабочееСоединение = Соединитель.ConnectWorkingProcess("tcp://127.0.0.1:" + Формат(Процесс.MainPort, "ЧГ=0"));
    СовпаденийПолнойБазы = 0;
    Для Каждого НайденнаяПолнаяБаза Из РабочееСоединение.GetInfoBases() Цикл
        Если НайденнаяПолнаяБаза.Name = КраткаяБаза.Name И НайденнаяПолнаяБаза.Descr = КраткаяБаза.Descr Тогда
            СовпаденийПолнойБазы = СовпаденийПолнойБазы + 1;
        КонецЕсли;
    КонецЦикла;
    Если СовпаденийПолнойБазы <> 1 Тогда
        ВызватьИсключение "Рабочий процесс не подтвердил свою учебную базу";
    КонецЕсли;
    РабочееСоединение.AddAuthentication(ИмяАдминистратораБазы, ПарольАдминистратораБазы);
    База = Неопределено;
    СовпаденийПослеВхода = 0;
    Для Каждого НайденнаяПослеВхода Из РабочееСоединение.GetInfoBases() Цикл
        Если НайденнаяПослеВхода.Name = "УчебнаяБаза85" И НайденнаяПослеВхода.Descr = "syntax-guide85:owned-com" Тогда
            База = НайденнаяПослеВхода;
            СовпаденийПослеВхода = СовпаденийПослеВхода + 1;
        КонецЕсли;
    КонецЦикла;
    Если СовпаденийПослеВхода <> 1 Тогда
        ВызватьИсключение "После аутентификации изменился выбор учебной базы";
    КонецЕсли;
    Снимок = Новый Структура;
    Снимок.Вставить("База", База.Name);
    Снимок.Вставить("ПроцессPID", Процесс.PID);
    Снимок.Вставить("ПортПроцесса", Процесс.MainPort);
    Снимок.Вставить("Name", База.Name);
    Снимок.Вставить("Descr", База.Descr);
    Снимок.Вставить("DBMS", База.DBMS);
    Снимок.Вставить("dbServerName", База.dbServerName);
    Снимок.Вставить("dbName", База.dbName);
    Снимок.Вставить("dbUser", База.dbUser);
    Снимок.Вставить("Locale", База.Locale);
    Снимок.Вставить("DateOffset", База.DateOffset);
    Снимок.Вставить("SecurityLevel", База.SecurityLevel);
    Снимок.Вставить("LicenseDistributionAllowed", База.LicenseDistributionAllowed);
    Снимок.Вставить("ЕстьПолученноеЗначениеПароляСУБД", НЕ ПустаяСтрока(База.dbPassword));
    Если База.LicenseDistributionAllowed <> 0 И База.LicenseDistributionAllowed <> 1 Тогда
        ВызватьИсключение "Неожиданное значение разрешения выдачи лицензий";
    КонецЕсли;
    Снимок.Вставить("СерверВыдаётЛицензииПоНастройке", База.LicenseDistributionAllowed = 1);
    Если База.DBMS = "MSSQLServer" Тогда
        Если База.DateOffset <> 0 И База.DateOffset <> 2000 Тогда
            ВызватьИсключение "Неожиданное смещение дат собственной MSSQL-базы";
        КонецЕсли;
        Снимок.Вставить("ПояснениеСмещения", "0 или 2000 лет; не часовой пояс");
    Иначе
        Снимок.Вставить("ПояснениеСмещения", "Не переносим правило MSSQL на другой тип СУБД");
    КонецЕсли;
    Возврат СериализоватьСвойСнимок(Снимок);
КонецФункции

&НаСервереБезКонтекста
Функция СериализоватьСвойСнимок(Снимок)
    Писатель = Новый ЗаписьJSON;
    Писатель.УстановитьСтроку();
    ЗаписатьJSON(Писатель, Снимок);
    Возврат Писатель.Закрыть();
КонецФункции


&НаСервереБезКонтекста
Функция УчебныйЛокальныйУзел(ИмяУзла, ЛокальноеИмя)
    Возврат НРег(ИмяУзла) = ЛокальноеИмя ИЛИ НРег(ИмяУзла) = "localhost" ИЛИ ИмяУзла = "127.0.0.1";
КонецФункции

Разбор по шагам

1. Проверить имя учебной конфигурации, типы портов и реквизитов до COM. Порты целые в диапазоне 1..65535; секреты не сериализуются.

2. ConnectAgent обращается только к 127.0.0.1. ConnectionString должна совпасть с построенной строкой без паролей. COM AuthenticateAgent принимает имя, пароль, в отличие от русскоязычного API ras.

3. Выбрать УчебныйКластер85 по точному имени, локальному хосту и порту менеджера. Отсутствие или неоднозначность не заменяются выбором первого элемента.

4. Проверить краткое описание УчебнаяБаза85 и точный маркер. Каталог живых локальных процессов позволяет взять настоящий порт|PID, а не подставить 1545 или придуманный PID.

5. ConnectWorkingProcess использует найденный динамический порт процесса, не порт агента или ras. До аутентификации базы читаются только Name и Descr.

6. AddAuthentication принимает только имя администратора базы и пароль, не дополнительный аргумент с именем базы. После него заново выбрать свою базу; полные поля читаются только далее.

7. В конце показать явно перечисленные скалярные поля JSON. После успеха или ошибки очищаются все три пароля и снимается флаг Занято.

8. Проверить собственное имя/маркер сначала через краткий интерфейс, затем через GetInfoBases рабочего процесса. Не читать прочие полные поля до AddAuthentication.

9. Показать реальный вид СУБД, сервер СУБД, имя базы и пользователя. Эти поля описывают размещение, не запускают SQL и не создают базу.

10. Из dbPassword получить только признак наличия возвращённого значения. Не включать пароль в JSON или строку подключения.

11. LicenseDistributionAllowed — Число 0/1, не Булево. Для читателя рядом вывести смысловую булеву оценку настройки.

12. Для фактически MSSQLServer проверить смещение 0/2000; это годы, не поправка часового пояса. Для остальных СУБД не объявлять тот же вывод.

13. Locale и SecurityLevel прочитать без переписывания. Настройка уровня безопасности сама не доказывает защищённость маршрута в вашем стенде.

Как проверить результат

1. Имя и описание совпали с собственной УчебнаяБаза85 и маркером, паспорт совпадает с консолью стенда.

2. Значение пароля СУБД нигде не показано; в JSON только логический признак наличия полученной строки.

3. 0/1 у выдачи лицензий интерпретированы отдельно. У MSSQL поле смещения проходит проверку 0/2000.

Ожидаемый результат

Получен настоящий паспорт учебной базы с объяснением доступа, размещения и безопасной обработки секрета.

На что обратить внимание

1. COM здесь работает в серверном Windows-процессе. Loopback означает эту машину, не компьютер тонкого клиента; Linux и незарегистрированный соединитель этому уроку не соответствуют.

2. Присутствие учебных имён и маркера не заменяет права доступа. Не запускайте в рабочем кластере; отделите стенд от production.

3. Порт агента, порт менеджера кластера, порт ras и динамический порт рабочего процесса — разные значения.

4. COMSafeArray перечисляется циклом Для Каждого. Это не Массив 1С и не список UUID ras; не приписывайте ему методы или свойства другой коллекции.

5. Снимки и выбранные процессы могут устареть между запросами. После перезапуска повторите каталог; не пытайтесь автоматически завершить мешающий процесс.

6. Сырые COM-ошибки могут раскрывать чувствительные сведения. Разбирайте подготовку в отладчике своего стенда, не добавляйте ОписаниеОшибки в публичный JSON.

7. GetInfoBases агента возвращает Описание информационной базы, а GetInfoBases рабочего процесса — Информационная база. Это разные интерфейсы и наборы свойств.

8. Пустое полученное dbPassword не доказывает отсутствие пароля в СУБД: интерфейс или права могут не раскрывать секрет.

9. Пароль администратора базы в AddAuthentication и пароль пользователя СУБД dbPassword — разные секреты.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.