Кто знает как это сделать?

В неведомую е... что?

Для 7 ки удобно использовать Использование классов .Net в 1С для новичков


http://stackoverflow.com/questions/623104/byte-to-hex-string

Это Base64. http://dml.compkaluga.ru/forum/index.php?showtopic=73815

(3) Hex это 16 ричная система исчисления
https://ru.wikipedia.org/wiki/Шестнадцатеричная_система_счисления

а Base64 64 ричная
https://ru.wikipedia.org/wiki/Base64

(4) точно, я перепутал. Спасибо.

там функция строк в 10 максимум

хотя нет, не понял задачу. Число в HEX-строку легко. HEX-строку в число легко. А строку в HEX... ХЗ. Это каждый символ представить как байт и преобразовать в HEX чтоли?

(7) Байт? А если уте utf (7,8), unicode, другая мультибайтовая?

(8) там же не текст, там строка. Хотя, хз что там аутор имел в виду...

Функция NumberToHEX(Чис) Экспорт
    
    МладшиеБиты = Чис % 16;
    СтаршиеБиты = Цел(Чис/16);
    
    Если СтаршиеБиты > 0 Тогда
        Результат = NumberToHEX(СтаршиеБиты);
    Иначе
        Результат = "";
    КонецЕсли;
    
    НЕХСимволы = "0123456789ABCDEF";
    
    Возврат Результат + Сред(НЕХСимволы, МладшиеБиты + 1, 1);
    
Конецфункции

ну и обратная функция

Функция HEXToNumber(НЕХ) Экспорт
    
    МладшиеБиты = Прав(НЕХ, 1);
    СтаршиеБиты = Лев(НЕХ, СтрДлина(НЕХ) - 1);
    
    НЕХСимволы = "0123456789ABCDEF";
    Результат = Найти(НЕХСимволы, МладшиеБиты) - 1;
    
    Если СтаршиеБиты = "" Тогда
        Возврат Результат;
    Иначе
        Возврат HEXToNumber(СтаршиеБиты)*16 + Результат;
    КонецЕсли;
    
Конецфункции

(8) клюшки жеж. Откедова утф?
(10) зачем так сложно?

(12) Ну не читал Книга знаний: Математические вычисления в 1С ?

(13)+ поэтому "так сложно"

(14) Вать машу...
Что, ascii забыли совсем все?
Результат=1
Для и=1 по стрдлина(вхстрока) цикель
Результат+=симв(кодсимв("0")+цел(кодсимв(сред(вхстрока,и,1))/16))+симв(кодсимв("0")+цел(кодсимв(сред(вхстрока,и,1))%16))
КонецЦикла
7 строк с учетом оборачивания и возврата...

(15) ыыы, убил
не я конечно не спорю что так можно, но это изврат

(15)
Не будет работать, когда кодсимв(сред(вхстрока,и,1))/16) >9 или кодсимв(сред(вхстрока,и,1))%16 >9, поскольку в ASCII разрыв между "9" и "A".
Зачем вычислять кодсимв("0")? Просто 48.
Зачем вызывать цел() для кодсимв()?
Если нужен однострочник, то вот:
Результат+=сред("0123456789ABCDEF",кодсимв(сред(вхстрока,и,1))/16),1) + сред("0123456789ABCDEF",кодсимв(сред(вхстрока,и,1))%16),1) );

Ребята, всем спасибо за участие, буду пробовать.
(15) Буквы теряются.
Garykom, спасибо за (13)

Чего там сложного? Едва ли моя функция сложнее (13)...

(15) сам-то пробовал? не работает

Все получилось, использовал (13)
Всем спасибо за помощь.