Маркировка обуви, автоматизация через API

Функция УбратьСимволы1013(Строка) Экспорт
	Возврат СтрЗаменить(СтрЗаменить(Строка, Символы.ПС, ""), Символы.ВК, ""); // Ещё бывают символы "77u/", при необходимости удалять и их.
КонецФункции

Функция ПолучитьBase64СтрокуИзСтроки(Строка) Экспорт
	Возврат УбратьСимволы1013(ПолучитьBase64СтрокуИзДвоичныхДанных(ПолучитьДвоичныеДанныеИзСтроки(УбратьСимволы1013(Строка))));
КонецФункции

Функция ПолучитьСтрокуИзBase64Строки(Base64Строка) Экспорт
	Возврат ПолучитьСтрокуИзДвоичныхДанных(ПолучитьДвоичныеДанныеИзBase64Строки(Base64Строка));
КонецФункции

Функция ПодписатьЭЦПЧерезСОМОбъекты(СтрокаДляПодписи, СтрокаВBase64 = Истина) Экспорт
	
	Попытка
		comStore = Новый COMОбъект("CAdESCOM.Store");
		comCPSigner = Новый COMОбъект("CAdESCOM.CPSigner"); // Аналог "CAPICOM.Signer".
		comSignedData = Новый COMОбъект("CAdESCOM.CadesSignedData");
	Исключение
		Сообщить("Не установлен КриптоПро!");
		Возврат "";
	КонецПопытки;
	
	comStore.Open(
		2, // StoreLocation - CAPICOM_CURRENT_USER_STORE.
		"MY", // StoreName
		); // OpenMode - CAPICOM_STORE_OPEN_READ_ONLY.
	comCertificates = comStore.Certificates;
	comStore.Close();
	comStore = Неопределено;
	КоличествоСертификатов = comCertificates.Count;
	
	Если КоличествоСертификатов > 0 Тогда
		// Убрать "сертификаты, в которых отсутствует закрытый ключ".
		comCertificates = comCertificates.Find(6, 2); // (CAPICOM_CERTIFICATE_FIND_EXTENDED_PROPERTY, CAPICOM_PROPID_KEY_PROV_INFO)
		КоличествоСертификатов = comCertificates.Count;
	КонецЕсли;
	Если КоличествоСертификатов > 0 Тогда
		// Оставить "только сертификаты, действительные в настоящее время".
		comCertificates = comCertificates.Find(9, ); // (CAPICOM_CERTIFICATE_FIND_TIME_VALID, "the current time is assumed")
		КоличествоСертификатов = comCertificates.Count;
	КонецЕсли;
	
	Если КоличествоСертификатов = 1 Тогда
		comСертификат = comCertificates.Item(1); // Выбрать единственный.
		
	ИначеЕсли КоличествоСертификатов = 0 Тогда
		comCertificates = Неопределено;
		comCPSigner = Неопределено;
		comSignedData = Неопределено;
		Сообщить("Не найдены актуальные ключи ЭЦП для подписи данных!");
		Возврат "";
		
	Иначе
		СертификатыДляВыбора = Новый СписокЗначений;
		Для i = 1 По КоличествоСертификатов Цикл
			СертификатыДляВыбора.Добавить(i, comCertificates.Item(i).SubjectName);
		КонецЦикла;
		
		i = СертификатыДляВыбора.ВыбратьЭлемент();
		Если i = Неопределено Тогда
			comCertificates = Неопределено;
			comCPSigner = Неопределено;
			comSignedData = Неопределено;
			Сообщить("Не выбран ключ ЭЦП!");
			Возврат "";
			
		Иначе
			comСертификат = comCertificates.Item(i.Значение); // Выбрать указанный пользователем.
			
		КонецЕсли;
		
	КонецЕсли;
	comCertificates = Неопределено;
	
	comCPSigner.Certificate = comСертификат;
	// + Что-то из этого может быть нужным.
//	comCPSigner.TSAAddress = "http://cryptopro.ru/tsp/";
//	comCPSigner.Options = 0; // CAPICOM_CERTIFICATE_INCLUDE_CHAIN_EXCEPT_ROOT. Ещё есть CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN и CAPICOM_CERTIFICATE_INCLUDE_END_ENTITY_ONLY.
	// -
	comСертификат = Неопределено;
	
	Если СтрокаВBase64 Тогда // Очень важно!
		comSignedData.ContentEncoding = 1; // CADESCOM_BASE64_TO_BINARY
	//Иначе // Так и остаётся 0 - CADESCOM_ENCODE_BINARY
	КонецЕсли;
	comSignedData.Content = СтрокаДляПодписи;
	ПодписанныеДанные = comSignedData.SignCades(
		comCPSigner, // Signer
		1, // CadesType, CADESCOM_CADES_BES.
		Ложь, // bDetached - "флаг открепленной подписи (исходное сообщение не включается в итоговый CMS-контейнер)".
		); // EncodingType - по умолчанию CAPICOM_ENCODE_BASE64.
	
	comCPSigner = Неопределено;
	comSignedData = Неопределено;
	Возврат УбратьСимволы1013(ПодписанныеДанные);
	
КонецФункции

Функция РазобратьОтветJSON(ТекстJSON) Экспорт
	ЧтениеJSON = Новый ЧтениеJSON;
	ЧтениеJSON.УстановитьСтроку(ТекстJSON);
	Результат = ПрочитатьJSON(ЧтениеJSON);
	ЧтениеJSON.Закрыть();
	Возврат Результат;
КонецФункции

Функция СгенерироватьНовыйТокен(Пользователь = Неопределено, Организация) Экспорт
	
	Если Пользователь = Неопределено Тогда
		Пользователь = ПараметрыСеанса.ТекущийПользователь;
	КонецЕсли;
	
	// Получить случайные данные.
	Заголовки = Новый Соответствие;
	Заголовки.Вставить("Content-Type", "application/json;charset=UTF-8");
	
	Соединение = Новый HTTPСоединение("ismp.crpt.ru", 443, , , , , Новый ЗащищенноеСоединениеOpenSSL);
	Запрос = Новый HTTPЗапрос("/api/v3/auth/cert/key", Заголовки);
	
	Попытка
		Ответ = Соединение.Получить(Запрос);
		ТекстОтвета = Ответ.ПолучитьТелоКакСтроку();
	Исключение
		Сообщить(ОписаниеОшибки());
		Соединение = Неопределено;
		Возврат "";
	КонецПопытки;
	
	РазборОтвета = МодульМаркировки.РазобратьОтветJSON(ТекстОтвета);
	ПодписанныеДанные = МодульМаркировки.ПодписатьЭЦПЧерезСОМОбъекты(РазборОтвета.data, Ложь);
	Если ПодписанныеДанные = "" Тогда
		Соединение = Неопределено;
		Возврат "";
	КонецЕсли;
	
	// Отправить подписанные случайные данные для получения токена.
	Запрос = Новый ЗаписьJSON;
	Запрос.ПроверятьСтруктуру = Ложь;
	Запрос.УстановитьСтроку();
	
	Запрос.ЗаписатьНачалоОбъекта();
	Запрос.ЗаписатьИмяСвойства("uuid");
	Запрос.ЗаписатьЗначение(РазборОтвета.uuid);
	Запрос.ЗаписатьИмяСвойства("data");
	Запрос.ЗаписатьЗначение(ПодписанныеДанные);
	Запрос.ЗаписатьКонецОбъекта();
	ТекстЗапроса = Запрос.Закрыть();
	
	Запрос = Новый HTTPЗапрос("/api/v3/auth/cert/", Заголовки);
	Запрос.УстановитьТелоИзСтроки(ТекстЗапроса);
	
	Попытка
		Ответ = Соединение.ОтправитьДляОбработки(Запрос);
		ТекстОтвета = Ответ.ПолучитьТелоКакСтроку();
	Исключение
		Сообщить(ОписаниеОшибки());
		Соединение = Неопределено;
		Возврат "";
	КонецПопытки;
	
	РазборОтвета = МодульМаркировки.РазобратьОтветJSON(ТекстОтвета);
	
	// Сохранение токена.
	Запись = РегистрыСведений.Токены.СоздатьМенеджерЗаписи();
	Запись.Пользователь = Пользователь; // Измерение.
	Запись.Организация = Организация; // Измерение.
	Запись.Токен = РазборОтвета.token; // Ресурс.
	Запись.ДействуетДо = ТекущаяДатаСеанса() + 36000; // Токен действует 10 часов, потом его нужно перегенерировать. // Ресурс.
	Запись.Записать(Истина);
	
	Возврат РазборОтвета.token;
	
КонецФункции

ДокВBase64 = СоздатьСтрокуBase64(ТекстСообщенияJSON);

///********************
Функция СоздатьСтрокуBase64(Строка) Экспорт
	
	ДД_Файла = ПреобразованиеСтрокиВДвоичныеДанные(Строка);
	СтрокаBase64 = Base64Строка(ДД_Файла);
	
	Возврат СтрокаBase64;
	
КонецФункции
Функция ПреобразованиеСтрокиВДвоичныеДанные(Строка)Экспорт
	
	Птк = Новый ПотокВПамяти;
	
	ЗаписьТекста = Новый ЗаписьТекста(Птк, "UTF-8");
	ЗаписьТекста.Записать(Строка);
	ЗаписьТекста.Закрыть();
	
	ДД_Файла = Птк.ЗакрытьИПолучитьДвоичныеДанные();
	
	Возврат ДД_Файла;
	
КонецФункции

X_Signature = ПодписатьЭЦПЧерезСОМОбъекты(ДокВBase64, Истина);
X_Signature = УбратьСимволы1013(X_Signature);

КИТ = "010290000093591421':RqaYo.,XDZE";
		КИТ = СтрЗаменить(КИТ,"%", "%25");
		КИТ = СтрЗаменить(КИТ,"""","%22"); 
		КИТ = СтрЗаменить(КИТ,"-", "%2D");
		КИТ = СтрЗаменить(КИТ,".", "%2E");
		КИТ = СтрЗаменить(КИТ,"<", "%3C");
		КИТ = СтрЗаменить(КИТ,">", "%3E");
		КИТ = СтрЗаменить(КИТ,"\", "%5C");
		КИТ = СтрЗаменить(КИТ,"^", "%5E");
		КИТ = СтрЗаменить(КИТ,"_", "%5F");
		КИТ = СтрЗаменить(КИТ,"`", "%60");
		КИТ = СтрЗаменить(КИТ,"{", "%7B");
		КИТ = СтрЗаменить(КИТ,"|", "%7C");
		КИТ = СтрЗаменить(КИТ,"}", "%7D"); 
		КИТ = СтрЗаменить(КИТ,"~", "%7E");
		КИТ = СтрЗаменить(КИТ,"!", "%21");
		КИТ = СтрЗаменить(КИТ,"#", "%23");
		КИТ = СтрЗаменить(КИТ,"$", "%24");
		КИТ = СтрЗаменить(КИТ,"&", "%26");
		КИТ = СтрЗаменить(КИТ,"'", "%27");
		КИТ = СтрЗаменить(КИТ,"(", "%28");
		КИТ = СтрЗаменить(КИТ,")", "%29");
		КИТ = СтрЗаменить(КИТ,"*", "%2A");
		КИТ = СтрЗаменить(КИТ,"+", "%2B");
		КИТ = СтрЗаменить(КИТ,",", "%2C");
		КИТ = СтрЗаменить(КИТ,"/", "%2F");
		КИТ = СтрЗаменить(КИТ,":", "%3A");
		КИТ = СтрЗаменить(КИТ,";", "%3B");
		КИТ = СтрЗаменить(КИТ,"=", "%3D");
		КИТ = СтрЗаменить(КИТ,"?", "%3F");
		КИТ = СтрЗаменить(КИТ,"@", "%40");
		КИТ = СтрЗаменить(КИТ,"[", "%5B");
		КИТ = СтрЗаменить(КИТ,"]", "%5D");
Url="https://ismp.crpt.ru/api/v3/facade/cis/cis_list?cis="+КИТ;