Преобразование Строки в строку Base64

Иногда при работе с WEB сервисами возникает задача преобразовать строку в строку Base64

Функция СтрокаBase64(Стр, Кодировка = Неопределено, ЗаписатьBOM = Ложь) Экспорт
	
	Если НЕ ЗначениеЗаполнено(Кодировка) Тогда
		Кодировка = КодировкаТекста.UTF8;
	КонецЕСли;
	
	ДвоичныеДанныеСтроки = ПолучитьДвоичныеДанныеИзСтроки(Стр, Кодировка, ЗаписатьBOM);
	Результат = Base64Строка(ДвоичныеДанныеСтроки);
	
	Возврат Результат;
	
КонецФункции

Функция СтрокаBase64(Стр, Кодировка = Неопределено, ЗаписатьBOM = Ложь) Экспорт
	
	Если НЕ ЗначениеЗаполнено(Кодировка) Тогда
		Кодировка = КодировкаТекста.UTF8;
	КонецЕСли;
	
	ДвоичныеДанныеСтроки = ПолучитьДвоичныеДанныеИзСтроки(Стр, Кодировка, ЗаписатьBOM);
	Результат = Base64Строка(ДвоичныеДанныеСтроки);
	
	Возврат Результат;
	
КонецФункции