Функция cript(a = Me.CODE.Text)
        up_a = CStr(UCase(a))
        Цикл от i = 1 до Длина(up_a)
                allres = allres + (Asc(Mid$(up_a, i, 1)) - 9) Xor 0x58) + i) ** 2))

        // следующий цикл - по сути, получить длину строки Me.CODE.Text
        cur_cnt = 0
        Цикл от i = 1 до 100
                cur_cnt = i
                Если (Mid$(Me.CODE.Text, cur_cnt, 1) == пустая строка) Тогда
                        Прервать цикл
                КонецЕсли;

        allres = allres * Int(cur_cnt / 2) * 16
        Возврат Hex(allres) // возращает строку - 16-тиричное представление числа
КонецФункции