&НаКлиенте
Функция ПодписатьСтроку(СтрокаДляПодписи, СертификатЭЦП, ТекстОшибки = "", Кодировка = "CESU-8") Экспорт
	ТекстОшибки = "";
	ИмяВремФайла = ПолучитьИмяВременногоФайла();
	Текст = Новый ЗаписьТекста(ИмяВремФайла, Кодировка);
	Текст.Записать(СтрокаДляПодписи);
	Текст.Закрыть();
	ИмяМодуля				= "Crypto-Pro GOST R 34.10-2012 Cryptographic Service Provider";
	ТипМодуля				= 80;
	ПутьМодуля				= "";
	МенеджерКриптографии 	= Новый МенеджерКриптографии(ИмяМодуля, ПутьМодуля, ТипМодуля);
	АлгоритмПодписи 		= "GR 34.10-2012 256";
	АлгоритмХеширования	 = "GR 34.11-2012 256"; 
	МенеджерКриптографии.АлгоритмПодписи 		= АлгоритмПодписи;
	МенеджерКриптографии.АлгоритмХеширования	= АлгоритмХеширования;
	ИмВых		= СтрЗаменить(ИмяВремФайла, ".tmp", ".sig");
	ТипПодп 	= ПолТипПодписи();
	Попытка
		Результат =  МенеджерКриптографии.Подписать(ИмяВремФайла, ИмВых, СертификатЭЦП, ТипПодп);
		ЧтениеТекста = Новый ЧтениеТекста;  
		ЧтениеТекста.Открыть(ИмВых);  
		Подп = ЧтениеТекста.Прочитать();  
		ЧтениеТекста.Закрыть();  
	Исключение
		ТекстОшибки = ОписаниеОшибки();
	КонецПопытки;
	Попытка
		УдалитьФайлы(ИмяВремФайла);
		УдалитьФайлы(ИмВых);
	Исключение
	КонецПопытки;
	Возврат Подп;
КонецФункции // ПодписатьСтроку()

&НаКлиенте
Процедура ВыполнитьПослеВыбора(ИндВыбСтр, Пар2) Экспорт
	ИндМассСерт	= ИндВыбСтр;
	ВыбрСерт 	= СпСерт.Получить(ИндМассСерт);
	СтрИНН 		= СокрЛП(ИНН); 
	
	ПодпИНН		= ПодписатьСтроку(СтрИНН, ВыбрСерт);


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

// sThumbprint - отпечаток сертификата, используемого для подписи; строка,
// представляющая отпечаток в шестнадцатеричном виде
// пример 195934d72dcdf69149901d6632aca4562d8806d8
// bDetached - Истина/Ложь - откреплённая(для подписания документов)/прикреплённая(для олучения токена авторизации) подпись
Функция ПодписатьТекстЦРПТ(ТекстДляПодписи, sThumbprint, bDetached)
	ВходящиеДвоичныеДанные = Base64Строка(ПолучитьДвоичныеДанныеИзСтроки(ТекстДляПодписи));
	CADESCOM_BASE64_TO_BINARY = 1; // Входные данные пришли в Base64
	CADESCOM_CADES_TYPE = 1; // Тип усовершенствованной подписи
	CAPICOM_AUTHENTICATED_ATTRIBUTE_SIGNING_TIME = 0; // Атрибут штампа времени подписи
	oSigner = Новый COMОбъект("CAdESCOM.CPSigner");
	oSigner.Certificate = ПолучитьСертификатПоОтпечатку(sThumbprint);
	oSigningTimeAttr = Новый COMОбъект("CAdESCOM.CPAttribute");
	oSigningTimeAttr.Name = CAPICOM_AUTHENTICATED_ATTRIBUTE_SIGNING_TIME;
	oSigningTimeAttr.Value = ТекущаяДата();
	oSigner.AuthenticatedAttributes2.Add(oSigningTimeAttr);
	ТекстДляПодписи = СокрЛП(ТекстДляПодписи);
	oSignedData = Новый COMОбъект("CAdESCOM.CadesSignedData");
	oSignedData.ContentEncoding = CADESCOM_BASE64_TO_BINARY;
	oSignedData.Content = ВходящиеДвоичныеДанные;
	EncodingType = 0;
	sSignedMessage = oSignedData.SignCades(oSigner, CADESCOM_CADES_TYPE, bDetached, EncodingType);
	Возврат sSignedMessage; // Подпись в формате Base64
КонецФункции

//Отпечаток - строка HEX
Функция ПолучитьСертификатПоОтпечатку(ОтпечатокСтр)
	Отпечаток = СтрЗаменить(ОтпечатокСтр, " ", "");	
	Рез 	= Неопределено; // Найденный сертификат (Com-объект)
	CAPICOM_CURRENT_USER_STORE = 2; // 2 - Искать сертификат в ветке "Личное" хранилища.
	CAPICOM_MY_STORE = "My"; // Указываем, что ветку "Личное" берем из хранилища текущего пользователя
	CAPICOM_STORE_OPEN_READ_ONLY = 0; // Открыть хранилище только на чтение
	oStore 	= Новый COMОбъект("CAdESCOM.Store");
	oStore.Open(CAPICOM_CURRENT_USER_STORE, CAPICOM_MY_STORE, CAPICOM_STORE_OPEN_READ_ONLY); // Открыть хранилище сертификатов
	Certs 	= oStore.Certificates;
	Для СчСер = 1 По Certs.Count Цикл
		ТекСертификат = Certs.Item (СчСер); 
		ТекОтпечаток  = ТекСертификат.Thumbprint; // возвращается отпечаток в шестнадцатеричном виде
		Если ВРЕГ(ТекОтпечаток) = ВРЕГ(Отпечаток) Тогда
			Рез = ТекСертификат;
			Прервать;
		КонецЕсли;
	КонецЦикла;
	oStore.Close(); // Закрыть хранилище сертификатов и освободить объект
	Возврат Рез;
КонецФункции