1С 8.2 УП : Функция переводит обычную 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()