//при использовании кода заменить [ на < и ] на >

Функция ЗашифроватьSHA512(Строка, СекретныйКлюч)

    Текст = Новый COMОбъект("System.Text.UTF8Encoding");

    Криптография = Новый COMОбъект("System.Security.Cryptography.HMACSHA512");

    Криптография.Key = Текст.GetBytes_4(СекретныйКлюч);

    ХешБайт = Криптография.ComputeHash_2(Текст.GetBytes_4(Строка)).Выгрузить();

    HTML = Новый COMОбъект("htmlfile");

    HTML.Open("text/html");

    HTML.Write("[script] ПреобразоватьСтроку = function(x,y){return x.toString(y?y:16)} [/ script]");

    ЯваСкрипт = HTML.documentElement.document.Script;

    Хеш = "";

    Для Каждого Байт Из ХешБайт Цикл

        Символ = ЯваСкрипт.ПреобразоватьСтроку(Байт);

        Хеш = Хеш + ?(СтрДлина(Символ) = 2, Символ, "0"+Символ);

    КонецЦикла;

    Возврат Хеш;

КонецФункции   

  // Преобразовать строку в UTF-8

Функция ПреобразоватьСтрокуВУТФ8(Стр)

    Длина=СтрДлина(Стр);

    Итог="";

    Для Н=1 По Длина Цикл

        Знак=Сред(Стр,Н,1);

        Код=КодСимв(Знак);

        Если Код<128 Тогда

            Итог=Итог+Знак;

        Иначе

            Если (Код>=КодСимв("А"))И(Код<=КодСимв("п")) Тогда

                Итог=Итог+Симв(208)+Симв(144+Код-КодСимв("А"));

            ИначеЕсли (Код>=КодСимв("р"))И(Код<=КодСимв("я")) Тогда

                Итог=Итог+Симв(209)+Симв(128+Код-КодСимв("р"));

            ИначеЕсли (Знак="ё") Тогда

                Итог=Итог+Симв(209)+Симв(145);

            ИначеЕсли (Знак="Ё") Тогда

                Итог=Итог+Симв(208)+Симв(129);

            КонецЕсли;

        КонецЕсли;

    КонецЦикла;

    Возврат Итог;

КонецФункции



// Преобразовать строку из UTF-8

Функция ПреобразоватьСтрокуИзУТФ8(Стр)

    Длина=СтрДлина(Стр);

    Итог="";

    Для Н=1 По Длина Цикл

        Знак=Сред(Стр,Н,1);

        Код=КодСимв(Знак);

        Если Код<128 Тогда

            Итог=Итог+Знак;

        ИначеЕсли (Код>=128)И(Код<192) Тогда

        Иначе

            Н=Н+1;

            Знак2=Сред(Стр,Н,1);

            Код2=КодСимв(Знак2);

            Если Код=208 Тогда

                Если Код2=129 Тогда Итог=Итог+"Ё";

                Иначе Итог=Итог+Симв(КодСимв("А")+Код2-144);

                КонецЕсли;

            ИначеЕсли Код=209 Тогда

                Если Код2=145 Тогда Итог=Итог+"ё";

                Иначе Итог=Итог+Симв(КодСимв("р")+Код2-128);

                КонецЕсли;

            КонецЕсли;

        КонецЕсли;

    КонецЦикла;

    Возврат Итог;

КонецФункции

  Функция мРазнПреобразоватьСтрокуСБольшимиБуквами(ИсходнаяСтрока) Экспорт

    

    СтрокаВозврата = Сред(ИсходнаяСтрока, 1, 1);

    

    Для Сч = 2 По СтрДлина(ИсходнаяСтрока) цикл

        ПредСимвол = Сред(ИсходнаяСтрока, Сч - 1, 1);

        ТекСимвол = Сред(ИсходнаяСтрока, Сч, 1);

        СледСимвол = Сред(ИсходнаяСтрока, Сч + 1, 1);

        

        Если ВРЕГ(ТекСимвол) = ТекСимвол тогда 

            Если ВРЕГ(ПредСимвол) <> ПредСимвол тогда 

                СтрокаВозврата = СтрокаВозврата + " ";

                Если ВРЕГ(СледСимвол) <> СледСимвол тогда

                    ТекСимвол = НРЕГ(ТекСимвол);

                КонецЕсли;

            КонецЕсли;

        КонецЕсли;

        

        СтрокаВозврата = СтрокаВозврата + ТекСимвол;

        

    КонецЦикла;

    

    Возврат СтрокаВозврата;

    

КонецФункции // мРазнПреобразоватьСтрокуСБольшимиБуквами()

 

Список=новый СписокЗначений;

Для н=КодСимвола("А") По КодСимвола("Я") Цикл

    Список.Добавить(Символ(н));

КонецЦикла;

Значение="ДебиторкаПоКонтрагентам";

Результат="";

Для н=1 По СтрДлина(Значение) Цикл

    Сим=Сред(Значение,н,1);

    Если Список.НайтиПоЗначению(Сим) <> Неопределено Тогда

        Сим=" "+Сим; 

    КонецЕсли;            

    Результат=Результат+Сим;

КонецЦикла;

Сообщить(Результат);