Заказ Кодов маркировок с помощью Api Честный знак (Молочная продукция)

////Клиент
Функция ПолучитьТокен(Сертификат = Неопределено)
	
	ТокенДоступа = РаботаСМаркировкойСервер.ПолучитьТокен(); /// возвращает Константы.Токен.Получить()
	
	Если ПустаяСтрока(ТокенДоступа) Тогда
		ТокенДоступа = СформироватьНовыйДинамическийТокен(Сертификат);
	КонецЕсли;
	Если СрокДействияТокенаИстек(ТокенДоступа) Тогда
		ТокенДоступа = СформироватьНовыйДинамическийТокен(Сертификат);
	КонецЕсли;

	Возврат ТокенДоступа;
	
КонецФункции


Функция СформироватьНовыйДинамическийТокен(Сертификат)
	
	Если Сертификат = Неопределено Тогда
		ВызватьИсключение("Отсутсвует сертификат!");
	КонецЕсли;
		
	Сервер = "markirovka.crpt.ru";
		
	// Получение данных для получения токена
	HTTPСоединение =    Новый HTTPСоединение(Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL);
	HTTPЗапрос = новый HTTPЗапрос("/api/v3/auth/cert/key");
	HTTPОтвет = HTTPСоединение.ВызватьHTTPМетод("GET",HTTPЗапрос);
	ОтветСтрока = HTTPОтвет.ПолучитьТелоКакСтроку("UTF-8"); 
	
	ЧтениеJSON = Новый ЧтениеJSON; 
	ЧтениеJSON.УстановитьСтроку(ОтветСтрока); 
	ДанныеJSON = ПрочитатьJSON(ЧтениеJSON); 
	ЧтениеJSON.Закрыть();
	
	УИД = ДанныеJSON.uuid;
	ДанныеДляПолученияТокена = ДанныеJSON.data;
	
	// Подписание данных для получения токена

	ДанныеДляПолученияТокена = ПодписатьСертификатомДокумент(
				ПолучитьСертификаты(Истина,Истина,Сертификат),
				ЗашифроватьBase64(ДанныеДляПолученияТокена, КодировкаТекста.UTF8),Ложь);
	
	// Получение токена с использованием подписанных данных
	Соединение = Новый HTTPСоединение(Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL);
	Заголовки = Новый Соответствие;
	Заголовки.Вставить("Content-Type", "application/json; charset=UTF-8");
	Заголовки.Вставить("Accept", "application/json");
	HTTPЗапрос = Новый HTTPЗапрос("/api/v3/auth/cert/",Заголовки);
	ЗаписьJOIN = Новый ЗаписьJSON;
	ЗаписьJOIN.УстановитьСтроку();
	ДанныеДляЗапроса = Новый Структура;
	ДанныеДляЗапроса.Вставить("uuid",УИД);
	ДанныеДляЗапроса.Вставить("data",ДанныеДляПолученияТокена);	
	ЗаписатьJSON(ЗаписьJOIN,ДанныеДляЗапроса);
	СтрокаДляЗапроса = ЗаписьJOIN.Закрыть();
	
	HTTPЗапрос.УстановитьТелоИзСтроки(СтрокаДляЗапроса,КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
	Ответ = Соединение.ОтправитьДляОбработки(HTTPЗапрос);
	ЧтениеJSON = Новый ЧтениеJSON;
	ЧтениеJSON.УстановитьСтроку(Ответ.ПолучитьТелоКакСтроку());
	
	Токен = ПрочитатьJSON(ЧтениеJSON, Ложь).token;
	
	РаботаСМаркировкойСервер.УстановитьНовый(Токен);  ///Константы.Токен.Установить(Токен)
	
	возврат Токен;
	
КонецФункции


Функция СрокДействияТокенаИстек(ТокенДоступа)
	
	РезультатРазбораТокена = РасшифроватьТокенJWT(ТокенДоступа);
	Если РезультатРазбораТокена = Неопределено Тогда
		Возврат Истина;
	Иначе  
        ДействуетДо = ДатаИзСтрокиUNIX(РезультатРазбораТокена.exp, 1);
		Если ДействуетДо < (ТекущаяДата() - 600) Тогда     /// Истекает через 10 мин
			Возврат Истина; 
		Иначе
			возврат Ложь;
		КонецЕсли;
	КонецЕсли;
	
КонецФункции


#Область РасшифровкаТокена

Функция РасшифроватьТокенJWT(Токен) Экспорт
    
    ВозвращаемоеЗначение = Новый Структура;
    ВозвращаемоеЗначение.Вставить("РезультатРасшифровки", Неопределено);
    ВозвращаемоеЗначение.Вставить("ТекстОшибки", "");
    
    ЭлементыТокена = СтрРазделить(Токен, ".");
    Если ЭлементыТокена.Count() <> 3 Тогда
        ВозвращаемоеЗначение.ТекстОшибки = НСтр("ru = 'Токен не соответствует формату JWT'");
		Возврат Неопределено;
        //Возврат ВозвращаемоеЗначение;
    КонецЕсли;
    
    ЭлементТокенаДанные = ЭлементыТокена[1];

    Данные = ТекстJSONВОбъект(
        ПолучитьСтрокуИзДвоичныхДанных(
            ДвоичныеДанныеЭлементаТокенаJWT(ЭлементТокенаДанные)));

    Возврат Данные;
    
КонецФункции

Функция ДвоичныеДанныеЭлементаТокенаJWT(Знач Значение)
    
    Значение = СтрЗаменить(Значение, "-", "+");
    Значение = СтрЗаменить(Значение, "_", "/");
    
    Остаток = СтрДлина(Значение) % 4;

    Если Остаток = 1 Тогда
        Возврат Неопределено;
    ИначеЕсли Остаток = 2 Тогда
        Значение = Значение + "==";
    ИначеЕсли Остаток = 3 Тогда
        Значение = Значение + "=";
    КонецЕсли;
    
    Возврат Base64Значение(Значение);
    
КонецФункции

// Получить из текста JSON структуру.
// 
// Параметры:
//     ТекстJSON                    - Строка - Текст JSON.
//     ПреобразовыватьВСоответствие - Булево - Признак преобразования в соответствие.
// Возвращаемое значение:
//     Структура, Неопределено - Результат преобразования JSON.
Функция ТекстJSONВОбъект(ТекстJSON, ПреобразовыватьВСоответствие = Ложь) Экспорт
    
    Чтение = Новый ЧтениеJSON;
    Чтение.УстановитьСтроку(ТекстJSON);
    
    Попытка
        РезультатРазбора = ПрочитатьJSON(Чтение, ПреобразовыватьВСоответствие);
    Исключение
        РезультатРазбора = Неопределено;
    КонецПопытки;
    
    Возврат РезультатРазбора;
    
КонецФункции

// Формирует из структуры текст JSON
// 
// Параметры:
//     Структура - Структура - Произвольная структура данных
// Возвращаемое значение:
//     Строка - Текст JSON
Функция ОбъектВТекстJSON(Структура, УдалитьПробелыИПереносыСтрок = Ложь) Экспорт
    
    Если УдалитьПробелыИПереносыСтрок Тогда
        ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Нет, "");
    Иначе
        ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Авто, "  ");
    КонецЕсли;
    
    ЗаписьJSON = Новый ЗаписьJSON();
    ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON);
    
    ЗаписатьJSON(ЗаписьJSON, Структура);
    
    ТекстJSON = ЗаписьJSON.Закрыть();
    
    Возврат ТекстJSON;
    
КонецФункции

Функция ДатаИзСтрокиUNIX(Значение, Делитель = 1000) Экспорт
    
    Возврат МестноеВремя('19700101' + Цел(Значение / Делитель));
    
КонецФункции
#КонецОбласти

Если ТестовыйКонтур Тогда
		Сервер = "markirovka.sandbox.crpt.tech";
	Иначе
		Сервер = "markirovka.crpt.ru";
	КонецЕсли;
	
	ИдентификаторПодключения = Токен;
	
	// Получение данных для подписи
	HTTPСоединение 	= Новый HTTPСоединение(Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL);
	HTTPЗапрос 		= новый HTTPЗапрос("/api/v3/auth/cert/key");
	HTTPОтвет 		= HTTPСоединение.ВызватьHTTPМетод("GET",HTTPЗапрос);
	ОтветСтрока 	= HTTPОтвет.ПолучитьТелоКакСтроку("UTF-8"); 
	
	ЧтениеJSON 		= Новый ЧтениеJSON; 
	ЧтениеJSON.УстановитьСтроку(ОтветСтрока); 
	ДанныеJSON 		= ПрочитатьJSON(ЧтениеJSON); 
	ЧтениеJSON.Закрыть();
	
	УИД 			= ДанныеJSON.uuid;
	ДанныеДляПолученияТокена = ДанныеJSON.data;

	
ПодписатьСертификатомДокумент(ДанныеДляПолученияТокена );

	
	Соединение 	= Новый HTTPСоединение(Сервер,443,,,,,Новый ЗащищенноеСоединениеOpenSSL);
	Заголовки 	= Новый Соответствие;
	Заголовки.Вставить("Content-Type", "application/json; charset=UTF-8");
	Заголовки.Вставить("Accept", "application/json");
	
	HTTPЗапрос = Новый HTTPЗапрос("/api/v3/auth/cert/" + ИдентификаторПодключения,Заголовки);