Конвертировать строку в punycode

Процедура КодироватьНажатие(Элемент)
    ЭтаФорма.Punicode = КодироватьДомен( ЭтаФорма.КирилличтическийДомен );
КонецПроцедуры

Функция КодироватьДомен( Домен ) Экспорт

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

    МассивПодстрок = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок( Домен, "." );

    Для каждого Элемент ИЗ МассивПодстрок Цикл

        ЕстьНеАНСИ = ложь;

        Для ц=1 ПО СтрДлина( Элемент ) Цикл

            Если КодСимвола( Элемент, ц ) >= 128 Тогда

                ЕстьНеАНСИ = Истина;
                Прервать;

            КонецЕсли;

        КонецЦикла;

        Если ЕстьНеАНСИ Тогда

            Результат = Результат + ?(ПустаяСтрока(Результат),"",".") +
            "xn--" + Кодировать( НРег( Элемент ) );

        Иначе

            Результат = Результат + ?(ПустаяСтрока(Результат),"",".") + Элемент;

        КонецЕсли;

    КонецЦикла;

    Возврат Результат;

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

Функция Кодировать( Знач Кириллица )

    INITIAL_N = 128;
    INITIAL_BIAS = 72;
    DELIMITER = "-";
    Integer_MAX_VALUE = 2147483647;
    TMAX = 26;
    TMIN = 1;
    DAMP = 700;
    BASE = 36;

    n = INITIAL_N;
    delta = 0;
    bias = INITIAL_BIAS;
    output = "";

    // Copy all basic code points to the output
    b = 0;
    для i = 1 ПО СтрДлина(Кириллица) Цикл

        Если КодСимвола(Кириллица,i)<128 Тогда

            output = output + Сред(Кириллица,i,1);
            b=b+1;

        КонецЕсли;

    КонецЦикла;

    // Append delimiter
    Если (b > 0) Тогда
      output = output + DELIMITER;
    КонецЕсли;

    h = b;
    Пока (h < СтрДлина(Кириллица)) Цикл
        m = Integer_MAX_VALUE;

          // Find the minimum code point >= n
        Для i = 1 ПО СтрДлина(Кириллица) Цикл
               c = КодСимвола(Кириллица,i);
            Если (c >= n) И (c < m) Тогда
                  m = c;
            КонецЕсли;
         КонецЦикла;

        //if (m - n > (Integer.MAX_VALUE - delta) / (h + 1)) {
        //    throw new PunycodeException(PunycodeException.OVERFLOW);
        //}
          delta = delta + (m - n) * (h + 1);
          n = m;

          Для j = 1 ПО СтрДлина(Кириллица) Цикл
            c = КодСимвола(Кириллица,j);
            Если (c < n) ИЛИ (c < INITIAL_N) Тогда
                  delta = delta + 1;
                //if (0 == delta) {
                //    throw new PunycodeException(PunycodeException.OVERFLOW);
                //}
            КонецЕсли;
            Если (c = n) Тогда
                  q = delta;
                k = BASE;
                Пока Истина Цикл

                    Если (k <= bias) Тогда
                        t = TMIN;
                    ИначеЕсли (k >= bias + TMAX) Тогда
                        t = TMAX;
                    Иначе
                        t = k - bias;
                    КонецЕсли;

                    Если (q < t) Тогда
                          Прервать;
                    КонецЕсли;

                    output = output + Строка(
                        Символ(
                            digit2codepoint(t + (q - t) % (BASE - t))
                            )
                        );

                    q = Цел( (q - t) / (BASE - t) );
                    k = k + BASE;

                КонецЦикла;

                  output = output + Строка(
                    Символ(
                        digit2codepoint(q)
                        )
                    );
                  bias = adapt(delta, h + 1, ?(h=b,ИСТИНА,ЛОЖЬ) );
                  delta = 0;
                  h = h + 1;
            КонецЕсли;
          КонецЦикла;

        delta = delta + 1;
        n = n + 1;

    КонецЦикла;

    Возврат output;

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

Функция digit2codepoint(d)

    Если (d < 26) Тогда

        Возврат d + КодСимвола("a");

    ИначеЕсли (d < 36) Тогда
        // 26..35 : '0'..'9';
          Возврат d - 26 + КодСимвола("0");

    КонецЕсли;
    //{
    //  throw new PunycodeException(PunycodeException.BAD_INPUT);
    //}

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

Функция adapt(знач delta, знач numpoints, first)

    DAMP = 700;
    BASE = 36;
    TMAX = 26;
    TMIN = 1;
    SKEW = 38;

    Если (first) Тогда
      delta = Цел( delta / DAMP );
    Иначе
      delta = Цел( delta / 2 );
    КонецЕсли;

    delta = delta + Цел(delta / numpoints);

    k = 0;
    Пока (delta > Цел( ((BASE - TMIN) * TMAX) / 2)) Цикл
      delta = Цел(delta / (BASE - TMIN));
      k = k + BASE;
    КонецЦикла;

    Возврат k + Цел(
        ((BASE - TMIN + 1) * delta) / (delta + SKEW)
        );

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