&НаКлиенте
Процедура Подписать(Команда)
	
	Signer = Новый COMОбъект("CAdESCOM.CPSigner");
	
	Certificate = НайтиСертификат("ФИО", "почта");
	
	Если Certificate = Неопределено Тогда
		Сообщить("Сертификат не найден");
	КонецЕсли;
	
	Signer.Certificate = Certificate;
	
	Signer.TSAAddress = "http://cryptopro.ru/tsp/tsp.srf";
	Signer.Options = 0;
	
	bDetached = true;
	ИмяФайла = "D:\Гарписьмо.pdf";
	ИмяФайлаЭЦП = "D:\Гарписьмо.pdf.sig";
	
	ПодписатьФайл(ИмяФайла, ИмяФайлаЭЦП, bDetached, Signer);
	ПроверитьЭЦП(ИмяФайла, ИмяФайлаЭЦП, bDetached);
	
КонецПроцедуры

&НаКлиенте
Функция НайтиСертификат(CN, E)
	
	Store = Новый COMОбъект("CAPICOM.Store");
	
	StoreName = "MY";
	StoreLocation = 2;
	Store.Open(StoreLocation, StoreName);
	
	Для каждого Certificate Из Store.Certificates Цикл
	
		Если (Найти(Certificate.SubjectName, "CN=" + CN) > 0)
			И (Найти(Certificate.SubjectName, "E=" + E) > 0) Тогда
			Возврат Certificate;
		КонецЕсли;
	КонецЦикла;
	
	Возврат Неопределено;
	
КонецФункции

&НаКлиенте
Процедура ПодписатьФайл(ИмяФайла, ИмяФайлаЭЦП, bDetached, Signer)
	
	SignedData = Новый COMОбъект("CAdESCOM.CadesSignedData");
	
	ВходнойФайл = Новый Файл(ИмяФайла);
	ДвоичныеДанные = Новый ДвоичныеДанные(ВходнойФайл.ПолноеИмя);
	
	CADESCOM_BASE64_TO_BINARY = 1;
	SignedData.ContentEncoding = CADESCOM_BASE64_TO_BINARY;
	Строка64=Base64Строка(ДвоичныеДанные);
	SignedData.Content = Строка64;
	
	Результат = SignedData.Sign(Signer, bDetached, 0);
	
	ДвоичныеДанные = Base64Значение(Результат);
	
	ДвоичныеДанные.Записать(ИмяФайлаЭЦП);
	
КонецПроцедуры

&НаКлиенте
Функция ПроверитьЭЦП(ИмяФайла, ИмяФайлаЭЦП, bDetached)
	
	Попытка
		SignedData = Новый COMОбъект("CAdESCOM.CadesSignedData");
		CADESCOM_BASE64_TO_BINARY = 1;
		SignedData.ContentEncoding = CADESCOM_BASE64_TO_BINARY;
		
		ВходнойФайл = Новый Файл(ИмяФайла);
		ДвоичныеДанные = Новый ДвоичныеДанные(ВходнойФайл.ПолноеИмя);
		SignedData.Content = Base64Строка(ДвоичныеДанные);
		
		ФайлЭЦП = Новый Файл(ИмяФайлаЭЦП);
		ДвоичныеДанные = Новый ДвоичныеДанные(ФайлЭЦП.ПолноеИмя);
		SignedMessage = Base64Строка(ДвоичныеДанные);
		
		SignedData.VerifyCades(SignedMessage, , bDetached);
		Возврат Истина;
	Исключение
		Сообщить("Ошибка при проверке подписи. Ошибка: " + ОписаниеОшибки());
		Возврат Ложь;
	КонецПопытки;
	
КонецФункции