HTTPСоединение 1с 8.3 c веб-Сервером с сертефикатом пользователя через SSL

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

Внимание! Тема закрыта. Добавлять сообщения в закрытую тему запрещено.

1. Doom2w 23 10.07.15 09:42 Сейчас в теме

Делаю так
SSL = Новый ЗащищенноеСоединениеOpenSSL(НовыйСертификатКлиентаФайл("C:\c\User1614.pem",ПасСер));

Соединение = Новый HTTPСоединение(АдресСервера ,443 ,Логин ,Пасс, ,5 , SSL);

Результат = Соединение.ОтправитьДляОбработки(HTTPЗапрос);

Результат.ПолучитьТелоКакСтроку();

результат

<ht ml>
<head><title>400 No required SSL certificate was sent</title></head>
<body bgcolor="white">
<center><h1>400 Bad Request</h1></center>
<center>No required SSL certificate was sent</center>
<hr><center>nginx</center>
</body>
</html>

в cacert.pem добавлен сертификат сервера на который обращаюсь (АдресСервера)
и его корневой сертификат

Как возможно подключиться к веб серверу, который использует SSL соединение, проверку сертификата пользователя?

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. spacecraft 10.07.15 09:51 Сейчас в теме

(1) Doom2w, первая строка неверная.

Новый ЗащищенноеСоединениеOpenSSL(
            Новый СертификатКлиентаФайл("C:/certs/user.p12", "password" ),
            Новый СертификатыУдостоверяющихЦентровФайл("C:/certs/myca.pem"));

3. Doom2w 23 10.07.15 10:04 Сейчас в теме

Новый ЗащищенноеСоединениеOpenSSL(<СертификатКлиента>, <СертификатыУдостоверяющихЦентров>)

Новый ЗащищенноеСоединениеOpenSSL В Синтаксисе помощнике вариантов много

ssl1 = Новый ЗащищенноеСоединениеOpenSSL(
            Новый СертификатКлиентаWindows(СпособВыбораСертификатаWindows.Авто),
            Новый СертификатыУдостоверяющихЦентровWindows());

ssl2 = Новый ЗащищенноеСоединениеOpenSSL(
            Новый СертификатКлиентаWindows(),
            Новый СертификатыУдостоверяющихЦентровФайл("C:/certs/myca.pem"));

ssl3 = Новый ЗащищенноеСоединениеOpenSSL(
            Новый СертификатКлиентаФайл("C:/certs/user.p12", "password" ),
            Новый СертификатыУдостоверяющихЦентровФайл("C:/certs/myca.pem"));

ssl4 = Новый ЗащищенноеСоединениеOpenSSL( неопределено, неопределено );

Показать

При указание переменной СертификатыУдостоверяющихЦентров
ошибку выдавать начинает на Результат = Соединение.ОтправитьДляОбработки(HTTPЗапрос);

Описание='Ошибка при вызове метода контекста (ОтправитьДляОбработки)'
ИмяМодуля='Форма.Форма.Форма'
НомерСтроки=720
ИсходнаяСтрока=' Результат = Соединение.ОтправитьДляОбработки(HTTPЗапрос);'

4. spacecraft 10.07.15 10:10 Сейчас в теме

(3) Doom2w, что в HTTPЗапрос?

5. Doom2w 23 10.07.15 11:12 Сейчас в теме

ИмяФайлаЗапроса = КаталогВременныхФайлов() + "test.xml";
ОбъектЗапись = Новый ЗаписьXML;
ОбъектЗапись.ЗаписатьОбъявлениеXML();
	
ОбъектЗапись.ЗаписатьНачалоЭлемента("request");
	
ОбъектЗапись.ЗаписатьНачалоЭлемента("protocol-version");
ОбъектЗапись.ЗаписатьТекст("4.00");
ОбъектЗапись.ЗаписатьКонецЭлемента();

Показать

Дальше еще запись xml

РесурсНаСервере = "/term2/xml.jsp";	
HTTPЗапрос = Новый HTTPЗапрос(РесурсНаСервере);
HTTPЗапрос.УстановитьИмяФайлаТела(ИмяФайлаЗапроса);
Результат  = Соединение.ОтправитьДляОбработки(HTTPЗапрос);

Сформированный файл во вложение

Прикрепленные файлы:

test.xml

6. Doom2w 23 13.07.15 14:37 Сейчас в теме

Все было просто

Сертификат в формате p12 должен быть (предоставлен)

SSL = Новый ЗащищенноеСоединениеOpenSSL(НовыйСертификатКлиентаФайл("C:\c\User1614.p12",ПарольСер));

Внимание! Тема сдана в архив