Как подписать строковые данные в формате CAdES-BES в 1С:Предприятие?

&НаСервере
Функция ПодписатьСтрокуНативно(ИсходнаяСтрока, СертификатСубъекта) Экспорт
    
    // Переводим исходную строку в двоичные данные
    ДанныеДляПодписи = ПолучитьДвоичныеДанныеИзСтроки(ИсходнаяСтрока, КодировкаТекста.UTF8);
    
    // Инициализируем менеджер криптографии
    // Параметры инициализации зависят от используемого криптопровайдера (например, КриптоПро CSP)
    ИмяПровайдера = "Crypto-Pro GOST R 34.10-2012 Cryptographic Service Provider";
    ТипПровайдера = 80; // Для ГОСТ 2012
    
    Менеджер = Новый МенеджерКриптографии(ИмяПровайдера, "", ТипПровайдера);
    
    // Находим нужный сертификат в хранилище "Личные" текущего пользователя
    Хранилище = Менеджер.ПолучитьХранилищеСертификатов("My", "CurrentUser");
    Сертификаты = Хранилище.НайтиПоСубъекту(СертификатСубъекта);
    
    Если Сертификаты.Количество() = 0 Тогда
        ВызватьИсключение "Сертификат для подписания не найден в хранилище пользователя!";
    КонецЕсли;
    
    СертификатПодписанта = Сертификаты[0];
    
    // Формируем подпись формата CAdES-BES
    // ТипПодписи.CAdES_BES — указывает платформе использовать нужный формат
    // Ложь — указывает, что мы создаем открепленную подпись (Detached)
    ДвоичныеДанныеПодписи = Менеджер.Подписать(ДанныеДляПодписи, СертификатПодписанта, Ложь, ТипЭлектроннойПодписи.CAdES_BES);
    
    // Преобразуем полученную подпись в формат Base64 для передачи клиенту
    СтрокаПодписиBase64 = ПолучитьСтрокуBase64ИзДвоичныхДанных(ДвоичныеДанныеПодписи);
    
    Возврат СтрокаПодписиBase64;

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

&НаКлиенте
Функция ПодписатьСтрокуЧерезCadesCOM(ИсходнаяСтрока, ОтпечатокСертификата) Экспорт
    
    Попытка
        // Создаем объект для работы с хранилищем сертификатов
        Store = Новый COMОбъект("CAdESCOM.Store");
        // Открываем личное хранилище текущего пользователя
        Store.Open(2, "My", 0); // 2 = CAPICOM_CURRENT_USER_STORE, 0 = CAPICOM_STORE_OPEN_READ_ONLY
    Исключение
        Сообщить("Не удалось инициализировать хранилище сертификатов: " + ОписаниеОшибки());
        Возврат Неопределено;
    КонецПопытки;
    
    // Ищем нужный сертификат по его отпечатку (SHA-1 хэшу)
    Certificates = Store.Certificates.Find(0, ОтпечатокСертификата); // 0 = CAPICOM_CERTIFICATE_FIND_SHA1_HASH
    Если Certificates.Count = 0 Тогда
        Сообщить("Указанный сертификат не найден в личном хранилище пользователя!");
        Store.Close();
        Возврат Неопределено;
    КонецЕсли;
    
    SignerCert = Certificates.Item(1);
    Store.Close();
    
    Попытка
        // Создаем объект подписанта
        Signer = Новый COMОбъект("CAdESCOM.CPSigner");
        Signer.Certificate = SignerCert;
        // Рекомендуется принудительно добавлять время подписания
        Signer.Options = 1; // CAPICOM_CERTIFICATE_INCLUDE_END_ENTITY_ONLY
        
        // Создаем объект для работы с подписью
        SignedData = Новый COMОбъект("CAdESCOM.CadesSignedData");
        
        // ВАЖНО: Если мы подписываем произвольную строку, лучше перевести ее в Base64, 
        // чтобы избежать искажения кодировки при передаче бинарных данных.
        ДанныеВBase64 = ПолучитьСтрокуBase64ИзДвоичныхДанных(ПолучитьДвоичныеДанныеИзСтроки(ИсходнаяСтрока, КодировкаТекста.UTF8));
        
        // Установка кодировки должна происходить СТРОГО ДО передачи самих данных в свойство Content!
        SignedData.ContentEncoding = 1; // CADESCOM_BASE64_TO_BINARY
        SignedData.Content = ДанныеВBase64;
        
        // Формируем открепленную подпись (True - открепленная, False - присоединенная)
        // 1 = CADESCOM_CADES_BES
        СтрокаПодписи = SignedData.SignCades(Signer, 1, Истина);
        
        Возврат СтрокаПодписи;
        
    Исключение
        Сообщить("Ошибка при формировании подписи CAdES-BES: " + ОписаниеОшибки());
        Возврат Неопределено;
    КонецПопытки;

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

&НаСервере
Функция ПодписатьСтрокуЧерезCryptCP(ИсходнаяСтрока, ОтпечаткомСертификата)
    
    ИмяВременногоФайлаДанных = ПолучитьИмяВременногоФайла("txt");
    ИмяВременногоФайлаПодписи = ИмяВременногоФайлаДанных + ".sgn";
    
    // Записываем данные
    ТекстовыйДокумент = Новый ТекстовыйДокумент;
    ТекстовыйДокумент.УстановитьТекст(ИсходнаяСтрока);
    ТекстовыйДокумент.Записать(ИмяВременногоФайлаДанных, КодировкаТекста.UTF8);
    
    // Путь к установленной утилите cryptcp (может отличаться в зависимости от разрядности ОС)
    ПутьКПрограмме = """C:\Program Files\Crypto Pro\CSP\cryptcp.exe""";
    
    // Формируем ключи запуска:
    // -signf : подписать файл
    // -dir : директория для сохранения результата
    // -thumbprint : отпечаток сертификата
    // -der : сформировать подпись в кодировке DER (бинарная) или без этого ключа для Base64
    // -detached : создать открепленную подпись
    // -pin : пин-код контейнера (если требуется)
    ШаблонКоманды = "%1 -signf -dir ""%2"" -thumbprint %3 -detached -nochain ""%4""";
    
    СтрокаЗапуска = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонКоманды, 
        ПутьКПрограмме, 
        КаталогВременныхФайлов(), 
        ОтпечаткомСертификата, 
        ИмяВременногоФайлаДанных);
        
    // Запускаем консольное приложение в скрытом режиме и ожидаем завершения
    КодВозврата = Неопределено;
    ЗапуститьПриложение(СтрокаЗапуска, , Истина, КодВозврата);
    
    Если КодВозврата = 0 Тогда
        // Считываем двоичные данные подписи
        ДвоичныеДанныеПодписи = Новый ДвоичныеДанные(ИмяВременногоФайлаПодписи);
        РезультатBase64 = ПолучитьСтрокуBase64ИзДвоичныхДанных(ДвоичныеДанныеПодписи);
        
        // Заметаем следы (удаляем файлы)
        УдалитьФайлы(ИмяВременногоФайлаДанных);
        УдалитьФайлы(ИмяВременногоФайлаПодписи);
        
        Возврат РезультатBase64;
    Иначе
        ВызватьИсключение "Ошибка выполнения cryptcp. Код возврата: " + Строка(КодВозврата);
    КонецЕсли;

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