Запрос на получения токена подключения Сбер (Авторизация)

[ComAlex]

Всем привет!
Тем, кто знаком с авторизацией с Сбер,
подскажите, как получить токен!

Код:

Код Выделить Развернуть

    UID             = Новый УникальныйИдентификатор();
    СтрокаUID         = СтрЗаменить(Строка(UID), "-", "");
    ID                 = "XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX";
    Secret             = "XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX";
    IDSecret64         = Base64Строка(ПолучитьДвоичныеДанныеИзСтроки(ID + ":" + Secret)); 
    Authorization     = "Basic " + IDSecret64; 
               
    ssl            = Новый ЗащищенноеСоединениеOpenSSL(Новый СертификатКлиентаФайл("D:\certificate_XXX.p12", "XXX"));
    HTTPСоединение = Новый HTTPСоединение("api.sberbank.ru", 8443,,,,, ssl);
    ТелоЗапроса = "grant_type=client_credentials";
    ТелоЗапроса = ТелоЗапроса + "&scope=https%3A%2F%2Fapi.sberbank.ru%2Fqr%2Forder.create";
    ТекстЗапроса = "/ru/prod/tokens/v2/oauth";
       
    HTTPЗапрос = Новый HTTPЗапрос(ТекстЗапроса);
    HTTPЗапрос.АдресРесурса = ТекстЗапроса;
    HTTPЗапрос.Заголовки.Вставить("Authorization",      Authorization);
    HTTPЗапрос.Заголовки.Вставить("Accept",             "application/json");
    HTTPЗапрос.Заголовки.Вставить("X-IBM-Client-Id",    ID);   
    HTTPЗапрос.Заголовки.Вставить("RqUID",              СтрокаUID);   
    HTTPЗапрос.Заголовки.Вставить("Content-Type",       "application/x-www-form-urlencoded" );   
   
    HTTPЗапрос.УстановитьТелоИзСтроки(ТелоЗапроса, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
    Результат = HTTPСоединение.ВызватьHTTPМетод("POST", HTTPЗапрос);
    ОтветСтрока = Результат.ПолучитьТелоКакСтроку();
   
    ЧтениеJSON = Новый ЧтениеJSON;
    ЧтениеJSON.УстановитьСтроку(ОтветСтрока);
    Ответ = ПрочитатьJSON(ЧтениеJSON);
Выдаётся ошибка:
    Ответ:
    httpCode    "400"
    httpMessage    "Bad Request"
    moreInformation    "unauthorized_client"

Но ID и Secret указаны верно.
Что я делаю не так?

[ComAlex]

Тема закрыта! Вопрос решен.

[ComAlex]

Решение (если кому интересно):

Вместо строки:

Код Выделить Развернуть

    IDSecret64         = Base64Строка(ПолучитьДвоичныеДанныеИзСтроки(ID + ":" + Secret)); 
Надо написать:

Код Выделить Развернуть

        tmpIDSecret64 = Base64Строка(ПолучитьДвоичныеДанныеИзСтроки(ID + ":" + Secret));
   
    IDSecret64 = "";
    Для й=1 По СтрДлина(tmpIDSecret64) Цикл
       
        симв = Сред(tmpIDSecret64, й, 1);
       
        Если симв > Символ(32) Тогда
           
            IDSecret64 = IDSecret64 + симв;
           
        КонецЕсли;       
    КонецЦикла;
И всё заработало!