Авторизация на сайте 1с через https програмно

СерверАвторизации = "login.1c.ru";
				
				Соединение = Новый HTTPСоединение(СерверАвторизации, , , , эсЗагрузкаИнформацииИзИнтернетаСервер.ПолучитьПараметрыПрокси(), 25, SSL);
				
				Запрос = Новый HTTPЗапрос("login?service=https://" + ИмяСервера + Суффикс);
				
				Ответ = Соединение.Получить(Запрос);
				
				ТелоКакСтрока = Ответ.ПолучитьТелоКакСтроку();
				
				Значение_lt        = эсРаботаСоСтрокамиКлиентСервер.ПолучитьСтрокуМеждуПодстроками(ТелоКакСтрока, "name=""lt"" value="""       , """/>", Ложь, Ложь, Ложь, Ложь);
				Значение_execution = эсРаботаСоСтрокамиКлиентСервер.ПолучитьСтрокуМеждуПодстроками(ТелоКакСтрока, "name=""execution"" value=""", """/>", Ложь, Ложь, Ложь, Ложь);
				
				ЗаголовкиСервера = Новый Соответствие;
				
				ЗаголовкиСервера.Вставить("Cookie"      , Ответ.Заголовки.Получить("set-cookie"));
				ЗаголовкиСервера.Вставить("Content-Type", "application/x-www-form-urlencoded");
				
				Заголовки.Вставить(ИмяСервера, ЗаголовкиСервера);
				
				ТелоКакСтрока = "inviteCode=<=" + Значение_lt + "&execution=" + Значение_execution + "&_eventId=submit&username=" + ИмяПользователя + "&password=" + Пароль;
				
				Соединение = Новый HTTPСоединение(СерверАвторизации, , , , эсЗагрузкаИнформацииИзИнтернетаСервер.ПолучитьПараметрыПрокси(), 25, SSL);
				
				Запрос = Новый HTTPЗапрос("/user/serviceInfo?serviceNick=Сервис+" + ИмяСервера);
				
				Ответ = Соединение.Получить(Запрос);
				
				Запрос = Новый HTTPЗапрос("login?service=https://" + ИмяСервера + Суффикс, Заголовки.Получить(ИмяСервера));
				
				Запрос.УстановитьТелоИзСтроки(ТелоКакСтрока, КодировкаТекста.ANSI);
				
				Ответ = Соединение.ОтправитьДляОбработки(Запрос);
					
				Значение_Location = Ответ.Заголовки.Получить("location");
				
				Если эсРаботаСоСтрокамиКлиентСервер.НайтиПодстрокуВСтрокеБезУчетаРегистра(Значение_Location, "https://" + ИмяСервера + Суффикс + "?ticket=") <> 0 Тогда
					
					SSL = Новый ЗащищенноеСоединениеOpenSSL();
					
					Соединение = Новый HTTPСоединение(ИмяСервера, , , , эсЗагрузкаИнформацииИзИнтернетаСервер.ПолучитьПараметрыПрокси(), 25, SSL);
					
					Поз = эсРаботаСоСтрокамиКлиентСервер.НайтиПодстрокуВСтрокеБезУчетаРегистра(Значение_Location, "ticket");
					
					ТелоКакСтрока = Сред(Значение_Location, Поз);
					Если ИмяСервера = "dl03.1c.ru" Или ИмяСервера = "dl04.1c.ru" Тогда 
						Запрос = Новый HTTPЗапрос("/public/security_check" +Сред(Значение_Location, Поз - 1));
					Иначе
						Запрос = Новый HTTPЗапрос(Сред(Значение_Location, Поз - 1));
					КонецЕсли;
					Запрос.УстановитьТелоИзСтроки(ТелоКакСтрока, КодировкаТекста.ANSI);
					
					Ответ = Соединение.Получить(Запрос);
					
					Заголовки.Получить(ИмяСервера).Вставить("Cookie", Ответ.Заголовки.Получить("Set-Cookie"));
					//Заголовки.Получить(ИмяСервера).Вставить("Cookie", ЗаголовкиСервера.Получить("Cookie"));	
					
					Возврат Истина;
					
				КонецЕсли;
				
			КонецЕсли;