Функция переводит обычную cтроку в Шестнадцатеричное представление и обратно

 // Функция переводит обычную cтроку в шестнадцатеричное представление
// Параметры:
//            ТекстСообщения           - Строка              - Текст сообщения
//            ТипКодировки                - Число                                - Тип кодировки (1 - каждый символ представляется 2 байтами, 0 - 1 байтом)
// Возвращаемое значение: Строка - Строка после перекодировки
//
Функция Str2Hex(ТекстСообщения, ТипКодировки)
                СтрокаЗнаков = "";
                Если ТипКодировки = 1 Тогда
                               ДлинаКодаСимвола = 4;
                Иначе
                               ДлинаКодаСимвола = 2;
                КонецЕсли;
                Для К = 1 По СтрДлина(ТекстСообщения) Цикл
                               СтрокаЗнаков = СтрокаЗнаков + Padl(DecToHex(КодСимвола(Сред(ТекстСообщения, К, 1))), ДлинаКодаСимвола, "0");
                КонецЦикла;
                Возврат СтрокаЗнаков;
КонецФункции // Str2Hex()

// Функция переводит cтроку из шестнадцатеричного представления в обычную строку
// Параметры:
//            СтрокаСимволов           - Строка              - Текст в шестнадцатеричном виде
//            ПризнакКода                   - Строка              - Тип кодировки ("0" - каждый символ представляется 1 байтами, "1" - 2 байтами)
// Возвращаемое значение:  Строка - Строка после перекодировки
//
Функция StrHexToStr(СтрокаСимволов, ПризнакКода) Экспорт
                Если Число(ПризнакКода) = 0 Тогда
                               КоличествоСимволов = 2;
                Иначе
                               КоличествоСимволов = 4;
                КонецЕсли;
                к = 1;
                Результат = "";
                Пока к < СтрДлина(СтрокаСимволов) Цикл
                               Строка = Сред(СтрокаСимволов, к, КоличествоСимволов);
                               Результат = Результат + Символ(HexToDec(Строка));
                               к = к + КоличествоСимволов;
                КонецЦикла;
                Возврат Результат;
КонецФункции // StrHexToStr()