// Функция переводит обычную 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()
// Функция переводит десятичное число в шестнадцатеричное // Параметры: _Число - Число - Десятичное число // Возвращаемое значение: Строка - Шестнадцатеричное число // Функция DecToHex(Знач _Число) База = 16; Результат = ""; Пока _Число <> 0 Цикл Поз =_Число % База; Результат = Сред("0123456789ABCDEF", Поз + 1, 1) + Результат; _Число = Цел(_Число / База); КонецЦикла; Возврат Результат; КонецФункции // DecToHex() // Функция переводит шестнадцатеричное число в десятичное // Параметры: _Hex - Строка - Шестнадцатеричное число // Возвращаемое значение: Число - Десятичное число // Функция HexToDec(Знач _Hex) База = 16; _Hex = СокрЛП(_Hex); СтаршаяСтепень = СтрДлина(_Hex) - 1; Результат = 0; счСимволов = 1; Пока СтаршаяСтепень >=0 Цикл _HexСимвол = Сред(_Hex, счСимволов, 1); Представление = Найти("0123456789ABCDEF", _HexСимвол) - 1; Результат = Результат + Представление * Степень(База, СтаршаяСтепень); СтаршаяСтепень = СтаршаяСтепень - 1; СчСимволов = СчСимволов + 1; КонецЦикла; Возврат Результат; КонецФункции // HexToDec()
