Как реализовать отправку файлов из 1С по защищенному протоколу SSH (SFTP)?

%WINDIR%\Microsoft.NET\Framework64\v4.0.30319\RegAsm.exe "C:\Program Files (x86)\WinSCP\WinSCPnet.dll" /codebase /tlb

&НаСервере
Процедура ОтправитьФайлПоSFTP_WinSCP_COM(ПутьКЛокальномуФайлу, ИмяФайлаНаСервере)
    
    // Инициализируем настройки подключения к SFTP-серверу
    Попытка
        НастройкиСессии = Новый COMОбъект("WinSCP.SessionOptions");
    Исключение
        ВызватьИсключение "Не удалось создать COM-объект WinSCP.SessionOptions. Проверьте регистрацию библиотеки WinSCPnet.dll в системе! " + ОписаниеОшибки();
    КонецПопытки;
    
    // Заполняем параметры подключения
    НастройкиСессии.Protocol = 1; // 1 соответствует протоколу SFTP
    НастройкиСессии.HostName = "sftp.example.com";
    НастройкиСессии.PortNumber = 22;
    НастройкиСессии.UserName = "sftp_user";
    НастройкиСессии.Password = "SuperSecurePassword123";
    
    // Важный параметр безопасности: отпечаток ключа хоста (HostKey Fingerprint).
    // Он необходим, чтобы предотвратить атаку типа "Man-in-the-middle".
    // Его можно узнать при первом ручном подключении к серверу через графический интерфейс WinSCP.
    НастройкиСессии.SshHostKeyFingerprint = "ssh-ed25519 256 xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx";
    
    // Создаем объект сессии
    Сессия = Новый COMОбъект("WinSCP.Session");
    
    Попытка
        // Открываем соединение с сервером
        Сессия.Open(НастройкиСессии);
        
        // Настраиваем параметры передачи файлов
        ПараметрыПередачи = Новый COMОбъект("WinSCP.TransferOptions");
        ПараметрыПередачи.TransferMode = 1; // 1 - Бинарный режим передачи данных (Binary)
        
        // Отправляем файл на удаленный сервер
        // Первый параметр: локальный путь к файлу
        // Второй параметр: удаленная папка на сервере (обязательно закрывать слэшем)
        // Третий параметр: Ложь (не удалять исходный локальный файл после передачи)
        // Четвертый параметр: объект настроек передачи
        РезультатПередачи = Сессия.PutFiles(ПутьКЛокальномуФайлу, "/upload/", Ложь, ПараметрыПередачи);
        
        // Проверяем, успешно ли прошла отправка файлов
        РезультатПередачи.Check();
        
        ЗаписьЖурналаРегистрации("Отправка SFTP", УровеньЖурналаРегистрации.Информация, , , "Файл успешно отправлен: " + ИмяФайлаНаСервере);
        
    Исключение
        // В случае ошибок обязательно записываем подробное описание в журнал регистрации
        ТекстОшибки = "Ошибка при передаче файла по SFTP: " + ОписаниеОшибки();
        ЗаписьЖурналаРегистрации("Отправка SFTP", УровеньЖурналаРегистрации.Ошибка, , , ТекстОшибки);
        ВызватьИсключение ТекстОшибки;
    КонечныеУсилия:
        // Гарантированно закрываем сессию и освобождаем ресурсы, даже если возникла ошибка
        Если Сессия.Opened Тогда
            Сессия.Dispose();
        КонецЕсли;
    КонецПопытки;
    
КонецПроцедуры

&НаСервере
Процедура ОтправитьФайлПоSFTP_WinSCP_CLI(ПутьКЛокальномуФайлу, ИмяФайлаНаСервере)
    
    // Путь к исполняемому консольному файлу WinSCP.com (не .exe, а именно .com для CLI)
    ПутьКWinSCP = "C:\Program Files (x86)\WinSCP\WinSCP.com";
    
    // Генерируем уникальные имена для файлов скрипта и логов
    ПутьКФайлуСкрипта = ПолучитьИмяВременногоФайла("txt");
    ПутьКФайлуЛогов = ПолучитьИмяВременногоФайла("log");
    
    // Формируем команды для выполнения внутри сессии WinSCP
    ТекстСкрипта = Новый ТекстовыйДокумент;
    ТекстСкрипта.ДобавитьСтроку("option batch abort"); // Прерывать выполнение при возникновении любых ошибок
    ТекстСкрипта.ДобавитьСтроку("option confirm off"); // Отключить любые интерактивные подтверждения
    
    // Формируем строку подключения: sftp://логин:пароль@хост:порт -hostkey="отпечаток"
    ШаблонПодключения = "open sftp://sftp_user:SuperSecurePassword123@sftp.example.com:22 -hostkey=""ssh-ed25519 256 xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx""";
    ТекстСкрипта.ДобавитьСтроку(ШаблонПодключения);
    
    // Команда отправки файла: put "локальный_путь" "удаленный_путь"
    КомандаОтправки = СтрШаблон("put ""%1"" ""/upload/%2""", ПутьКЛокальномуФайлу, ИмяФайлаНаСервере);
    ТекстСкрипта.ДобавитьСтроку(КомандаОтправки);
    
    // Завершаем сеанс WinSCP
    ТекстСкрипта.ДобавитьСтроку("exit");
    
    // Записываем файл скрипта в кодировке UTF-8 или ANSI (WinSCP корректно работает с UTF-8)
    ТекстСкрипта.Записать(ПутьКФайлуСкрипта, КодировкаТекста.UTF8);
    
    // Формируем строку запуска консольного приложения с передачей скрипта и лог-файла
    ПараметрыЗапуска = СтрШаблон("/script=""%1"" /log=""%2""", ПутьКФайлуСкрипта, ПутьКФайлуЛогов);
    
    // Запускаем процесс в синхронном режиме (третий параметр "Истина" заставляет 1С ждать окончания выполнения)
    Попытка
        КодВозврата = ЗапуститьПриложение(ПутьКWinSCP + " " + ПараметрыЗапуска, , Истина);
    Исключение
        ВызватьИсключение "Не удалось запустить утилиту WinSCP.com: " + ОписаниеОшибки();
    КонецПопытки;
    
    // Анализируем результаты работы
    Если КодВозврата <> 0 Тогда
        // Считываем лог-файл для понимания причины падения
        ЛогФайл = Новый ТекстовыйДокумент;
        ЛогФайл.Прочитать(ПутьКФайлуЛогов, КодировкаТекста.UTF8);
        ТекстЛогов = ЛогФайл.ПолучитьТекст();
        
        ТекстОшибки = "Ошибка передачи файла по SFTP через CLI! Код возврата: " + КодВозврата + Символы.ПС + ТекстЛогов;
        ЗаписьЖурналаРегистрации("Отправка SFTP CLI", УровеньЖурналаРегистрации.Ошибка, , , ТекстОшибки);
        
        // Очищаем временные файлы перед выходом из процедуры при возникновении ошибки
        УдалитьФайлы(ПутьКФайлуСкрипта);
        УдалитьФайлы(ПутьКФайлуЛогов);
        
        ВызватьИсключение ТекстОшибки;
    КонецЕсли;
    
    // Очищаем временные файлы в случае успеха
    УдалитьФайлы(ПутьКФайлуСкрипта);
    УдалитьФайлы(ПутьКФайлуЛогов);
    
    ЗаписьЖурналаРегистрации("Отправка SFTP CLI", УровеньЖурналаРегистрации.Информация, , , "Файл успешно отправлен методом CLI.");
    
КонецПроцедуры

&НаСервере
Процедура ОтправитьФайлПоSFTP_OPI(ПутьКЛокальномуФайлу, ИмяФайлаНаСервере)
    
    // Настраиваем структуру параметров подключения к удаленному SSH-серверу
    ПараметрыПодключения = Новый Структура;
    ПараметрыПодключения.Вставить("Адрес", "sftp.example.com");
    ПараметрыПодключения.Вставить("Порт", 22);
    ПараметрыПодключения.Вставить("Пользователь", "sftp_user");
    ПараметрыПодключения.Вставить("Пароль", "SuperSecurePassword123");
    
    // OPI также позволяет авторизоваться по приватному SSH-ключу вместо пароля,
    // что является наиболее надежным стандартом в среде Linux-администрирования.
    // ПараметрыПодключения.Вставить("ПутьККлючу", "/home/usr1cv8/.ssh/id_rsa");
    // ПараметрыПодключения.Вставить("ПарольКлюча", "PassphraseIfExist");
    
    Попытка
        // Вызываем метод отправки файла из общего модуля Открытого Пакет Интеграций.
        // OPI самостоятельно инициализирует внешнюю компоненту, откроет сокет,
        // авторизуется на сервере, передаст файл и закроет соединение.
        Результат = OPI_SFTP.ОтправитьФайл(ПараметрыПодключения, ПутьКЛокальномуФайлу, "/upload/" + ИмяФайлаНаСервере);
        
        Если Результат.Статус = Ложь Тогда
            ВызватьИсключение Результат.СообщениеОбОшибке;
        КонецЕсли;
        
        ЗаписьЖурналаРегистрации("OPI SFTP", УровеньЖурналаРегистрации.Информация, , , "Файл успешно передан через OPI.");
        
    Исключение
        ТекстОшибки = "Ошибка передачи через OPI SFTP: " + ОписаниеОшибки();
        ЗаписьЖурналаРегистрации("OPI SFTP", УровеньЖурналаРегистрации.Ошибка, , , ТекстОшибки);
        ВызватьИсключение ТекстОшибки;
    КонецПопытки;
    
КонецПроцедуры

&НаСервере
Процедура ОтправитьФайлПоSFTP_Linux_SCP(ПутьКЛокальномуФайлу, ИмяФайлаНаСервере)
    
    // Формируем Linux-команду для копирования файла по протоколу SCP.
    // Пример команды: scp /tmp/file.txt sftp_user@sftp.example.com:/upload/file.txt
    ШаблонКоманды = "scp ""%1"" sftp_user@sftp.example.com:/upload/""%2""";
    СтрокаКоманды = СтрШаблон(ШаблонКоманды, ПутьКЛокальномуФайлу, ИмяФайлаНаСервере);
    
    Попытка
        // Запускаем системную команду. Третий параметр "Истина" обеспечивает синхронное ожидание.
        КодВозврата = ЗапуститьПриложение(СтрокаКоманды, , Истина);
        
        Если КодВозврата <> 0 Тогда
            ВызватьИсключение "Утилита scp вернула код ошибки: " + КодВозврата;
        КонецЕсли;
        
        ЗаписьЖурналаРегистрации("Linux SCP", УровеньЖурналаРегистрации.Информация, , , "Файл успешно отправлен по SCP.");
        
    Исключение
        ТекстОшибки = "Ошибка при вызове утилиты scp: " + ОписаниеОшибки();
        ЗаписьЖурналаРегистрации("Linux SCP", УровеньЖурналаРегистрации.Ошибка, , , ТекстОшибки);
        ВызватьИсключение ТекстОшибки;
    КонецПопытки;
    
КонецПроцедуры

&НаСервере
Процедура ОтправитьФайлЧерезПрокси(ПутьКЛокальномуФайлу, ИмяФайлаНаСервере)
    
    // Настраиваем HTTP-соединение с нашим промежуточным микросервисом
    НТТРСоединение = Новый HTTPСоединение("sftp-proxy.local", 8080, , , , 60);
    
    // Формируем POST-запрос
    HTTPЗапрос = Новый HTTPЗапрос("/upload-to-sftp");
    HTTPЗапрос.Заголовки.Вставить("Content-Type", "application/octet-stream");
    HTTPЗапрос.Заголовки.Вставить("X-Target-Filename", ИмяФайлаНаСервере);
    
    // Помещаем локальный файл в тело запроса
    HTTPЗапрос.УстановитьИмяФайлаТела(ПутьКЛокальномуФайлу);
    
    Попытка
        HTTPОтвет = НТТРСоединение.ОтправитьДляОбработки(HTTPЗапрос);
        
        Если HTTPОтвет.КодСостояния = 200 Тогда
            ЗаписьЖурналаРегистрации("SFTP HTTP Proxy", УровеньЖурналаРегистрации.Информация, , , "Файл успешно отправлен через прокси-сервер.");
        Иначе
            ВызватьИсключение "Прокси вернул ошибку: " + HTTPОтвет.ПолучитьТелоКакСтроку();
        КонецЕсли;
        
    Исключение
        ТекстОшибки = "Ошибка взаимодействия с SFTP прокси-сервером: " + ОписаниеОшибки();
        ЗаписьЖурналаРегистрации("SFTP HTTP Proxy", УровеньЖурналаРегистрации.Ошибка, , , ТекстОшибки);
        ВызватьИсключение ТекстОшибки;
    КонецПопытки;
    
КонецПроцедуры