Внешняя компонента для преобразования файлов из/в кодировку Base64 в 1С 7.7

Функция КодироватьФайл(ФайлИлиСтрокаИсточник, Кодировка="base64",ВозвращатьКакФайл=0) Экспорт
	ЦДО=СоздатьОбъект("CDO.Message");
	Файл=ФайлИлиСтрокаИсточник;
	Попытка
		Если ФС.СуществуетФайл(Файл)=1 Тогда
			Состояние("Кодирование данных..");
			Вложение=ЦДО.AddAttachment(Файл);
			Вложение.ContentTransferEncoding=Кодировка;
			Стрим=Вложение.GetEncodedContentStream();
		Иначе
			БодиПарт=ЦДО.BodyPart;
			Поля=БодиПарт.Fields;
			Поле=Поля.Item("urn:schemas:mailheader:content-type");
			Поле.Value="text/plain; charset=""windows-1251""";
			Поля.Update();
			Стрим = БодиПарт.GetDecodedContentStream();
			Стрим.charset = "windows-1251";
			Стрим.WriteText(Файл);
			Стрим.Flush();
			БодиПарт.ContentTransferEncoding = Кодировка;
			Стрим=БодиПарт.GetEncodedContentStream();
		КонецЕсли;
		
		Если ВозвращатьКакФайл=0 Тогда
			Возврат Стрим.ReadText();
		Иначе
			Стрим.SaveToFile(ВозвращатьКакФайл);
			Возврат ВозвращатьКакФайл;
		КонецЕсли;
	Исключение
		Сообщить("Ошибка кодирования в Base64: " + ОписаниеОшибки());
		Возврат 0
	КонецПопытки;	
КонецФункции

Процедура ДекодироватьВФайл(Стр, Кодировка, Файл) Экспорт
	Перем __ЦДО2;
	__ЦДО2=СоздатьОбъект("CDO.Message");
    БодиПарт=__ЦДО2.BodyPart;
    Поля=БодиПарт.Fields;
    Поле=Поля.Item("urn:schemas:mailheader:content-type");
    Поле.Value="text/plain; charset=""windows-1251""";
    Поля.Update();
    БодиПарт.ContentTransferEncoding = Кодировка;
    Стрим=БодиПарт.GetEncodedContentStream();
	Стрим.WriteText(Стр);
    Стрим.Flush();
    Стрим=БодиПарт.GetDecodedContentStream();
	Стрим.SaveToFile(Файл,2);
КонецПроцедуры

Функция КодироватьBase64(Текст) 

    Перем Алфавит;
    Перем Группа, Символ;
    Перем Значение, Разряд;
    Перем Символ6, Значение6;
    Перем Значение8, Символ8;
    Перем Текст64;

    Алфавит = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456­789+/=";
    Текст64 = ""; 
    Группа = "";
    Для Номер=1 По СтрДлина(Текст) Цикл
	    Символ = Сред(Текст, Номер, 1);
	    Группа = Группа + Символ;
	    Если ((СтрДлина(Группа) = 3) или (Номер = СтрДлина(Текст))) Тогда
            Значение = 0;
            Разряд = 2;
            Пока Разряд >= 0 Цикл
                Символ8 = Сред(Группа, 3 - Разряд, 1);
                Значение8 = КодСимв(Символ8);
                Если Разряд = 1 Тогда
                    Значение8 = Значение8 * 256;
                ИначеЕсли Разряд = 2 Тогда
                    Значение8 = Значение8 * 256 * 256;
                КонецЕсли;
                Значение = Значение + Значение8;
                Разряд = Разряд - 1;
            КонецЦикла;
            Разряд = 3;
            Пока Разряд >= 0 Цикл
                Значение6 = Значение;
                Если Разряд = 3 Тогда
                    Значение6 = Цел(Значение6 / 64 / 64 / 64);
                    Значение = Значение - Значение6 * 64 * 64 * 64;
                ИначеЕсли Разряд = 2 Тогда
                    Значение6 = Цел(Значение6 / 64 / 64);
                    Значение = Значение - Значение6 * 64 * 64;
                ИначеЕсли Разряд = 1 Тогда
                    Значение6 = Цел(Значение6 / 64);
                    Значение = Значение - Значение6 * 64;
                КонецЕсли;      
                Если СтрДлина(Группа) < 3 Тогда
                    Если (Значение6 = 0) и (СтрДлина(Текст) * 4 / 3 <= СтрДлина(Текст64)) Тогда
                        Значение6 = 64;
                    КонецЕсли;
                КонецЕсли;
                Символ6 = Сред(Алфавит, Значение6+1,1);
                Текст64 = Текст64 + Символ6;
                Разряд = Разряд - 1;
            КонецЦикла;    
        Группа = "";    
        КонецЕсли;
    КонецЦикла;   
    Возврат Текст64;
КонецФункции

//*******************************************
Функция ЗакодироватьВБаза64(Стр)
	
	Б64Стр = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456­789+/";
	База64 = ""; ТекБайт = 1; Ост = 0;
	Для х =1 По СтрДлина(Стр) Цикл
		Байт = КодСимв(Сред(Стр, х, 1));
		Если ТекБайт = 1 Тогда
			База64 = База64 + Сред(Б64Стр, Цел(Байт/4) + 1, 1);
			Ост = Байт%4;
		ИначеЕсли ТекБайт = 2 Тогда
			База64 = База64 + Сред(Б64Стр, Ост * 16 + Цел(Байт/16) + 1, 1);
			Ост = Байт%16;
		Иначе
			База64 = База64 + Сред(Б64Стр, Ост * 4 + Цел(Байт/64) + 1, 1) + Сред(Б64Стр, Байт%64 + 1, 1);
			Ост = 0;
		КонецЕсли;
		ТекБайт = ТекБайт + ?(ТекБайт = 3, -2, 1);
	КонецЦикла;
	Если ТекБайт = 2 Тогда
		База64 = База64 + Сред(Б64Стр, Ост * 16 + 1, 1) + "==";
	ИначеЕсли ТекБайт = 3 Тогда
		База64 = База64 + Сред(Б64Стр, Ост * 4 + 1, 1) + "=";
	КонецЕсли;
	Возврат База64;
	
КонецФункции
//*******************************************
Функция ДекодироватьИзБаза64(Стр)
	
	Б64Стр = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456­789+/";
	База64 = ""; ТекБайт = 1;
	Для х = 1 По СтрДлина(Стр) Цикл
		Поз = Найти(Б64Стр,Сред(Стр, х, 1));
		Если Поз = 0 Тогда
			Прервать;
		КонецЕсли;
		Байт = Поз - 1;
		Если ТекБайт = 1 Тогда
			Рез = Байт * 4;
		ИначеЕсли ТекБайт = 2 Тогда
			База64 = База64 + Симв(Рез + Цел(Байт/16));
			Рез = Байт%16;
		ИначеЕсли ТекБайт = 3 Тогда
			База64 = База64 + Симв(Рез*16 + Цел(Байт/4));
			Рез = Байт%4;
		ИначеЕсли ТекБайт = 4 Тогда
			База64 = База64 + Симв(Рез*64 + Байт);
		КонецЕсли;
		ТекБайт = ТекБайт + ?(ТекБайт = 4, -3, 1);
	КонецЦикла;
	Возврат База64;
	
КонецФункции
//*******************************************

Если ЗагрузитьВнешнююКомпоненту("romix.dll") = 0 Тогда
    Предупреждение("Не удалось загрузить romix.dll!");
КонецЕсли;

БД = СоздатьОбъект("AddIn.BinaryData");

// Кодирование файла в Base64
БД.ЗагрузитьИзФайла(ИмяФайлаИсточника);

СтрокаBase64 = БД.КодироватьBase64();

// Функция кодирования Base64 через встроенный скрипт
Функция КодироватьВBase64_WSH(ИмяФайла)
    Попытка
        Sc = СоздатьОбъект("MSScriptControl.ScriptControl");

        Sc.Language = "JScript";
        
        // Передаем код преобразования на JavaScript (JScript)
        Sc.AddCode("
        |function FileToBase64(filePath) {
        |    var stream = new ActiveXObject('ADODB.Stream');
        |    stream.Type = 1; // Binary
        |    stream.Open();
        |    stream.LoadFromFile(filePath);
        |    var binaryData = stream.Read();
        |    stream.Close();
        |    
        |    var xmlDoc = new ActiveXObject('MSXML2.DOMDocument.6.0');
        |    var xmlNode = xmlDoc.createElement('bin');
        |    xmlNode.dataType = 'bin.base64';
        |    xmlNode.nodeTypedValue = binaryData;
        |    return xmlNode.text.replace(/[\r\n]/g, ''); // убираем переносы строк
        |}
        |");
        
        Результат = Sc.Run("FileToBase64", ИмяФайла);

        Возврат Результат;
    Исключение
        Сообщить("Ошибка преобразования: " + ОписаниеОшибки(), "!");

        Возврат "";
    КонецПопытки;