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

Функция Зашифровать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"+Символ);

    КонецЦикла;

    Возврат Хеш;

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

 // заполним список пользователей 

    FSO=createobject("Scripting.FileSystemObject");

    WshShell = CreateObject("WScript.Shell");

    Txt=FSO.OpenTextFile(КаталогИБ()+"usrdef\users.usr");

    LineUser="";

    ChI=0;

    Пока Txt.AtEndOfStream=0 Цикл

        Chi=Chi+1;

        Buf=Txt.Read(1);

        Если КодСимв(Buf)>31 Тогда

            LineUser=LineUser+Buf;

        КонецЕсли;

    КонецЦикла;

    LineBof="{"+chr(34)+"Container.Contents"+chr(34)+",";

    LineUser=Сред(LineUser,Найти(LineUser,LineBof)+23);

    LineUser=Сред(LineUser,1,Найти(LineUser,"}}"));

    //Сп=СоздатьОбъект("СписокЗначений"); 

    LineUser=СтрЗаменить(LineUser,РазделительСтрок," ");

    LineUser=СтрЗаменить(LineUser,"},{",РазделительСтрок);

    Для к=1 По СтрКоличествоСтрок(LineUser) Цикл

        а=СтрЗаменить(СтрПолучитьСтроку(LineUser,к),Симв(34),"");

        а=СтрЗаменить(СтрПолучитьСтроку(LineUser,к),"}","");

        а=Сред(а,19);

        а=Сред(а,Найти(а,",")+1);

        а=Сред(а,1,Найти(а,",")-1);  

        а=СтрЗаменить(а,"""",""); // уберем кавычки 

        списПользователи.Установить(а,а);

    КонецЦикла;     

    списПользователи.ТекущаяСтрока(1);

    // Список Пользователей заполнен