Дня доброго.
Не хочется городить велосипед.

Смысл в том, чтобы показать адрес электронной почты, либо другого какого то другого логина звездочками, чтобы человек, не знающий его - не смог набрать, а знающий - разумил.
тоесть
example@gmail.com
транслировать в
exam***@gmail.com

но при этом, учесть, что есть адреса, к примеру:
g1@gmail.com

БассейнЗвезд = "**********************************";
    ЭлементыАдреса = СтрРазделить(Реквизит1, "@");
    СкрытыйАдрес = Лев(ЭлементыАдреса[0], СтрДлина(ЭлементыАдреса[0]) -
                    Окр(СтрДлина(ЭлементыАдреса[0])/2)) + Лев(БассейнЗвезд, СтрДлина(ЭлементыАдреса[0]) -
                    СтрДлина(Лев(ЭлементыАдреса[0], СтрДлина(ЭлементыАдреса[0]) - Окр(СтрДлина(ЭлементыАдреса[0])/2)))) + "@"+ЭлементыАдреса[1];

(1) Где "Реквизит1" - исходный адрес

(0) судя по сайтам - каким то генератором выбирают часть фразы(может быть любая, не только окончание)

(1) Нууу, пойдет пока.

(1) Спс

обычно,показывают первый и последний символ имени,а адрес сервера целиком.
если имя сильно короткое,то только первый символ (ну для одного символа можно просто звездочку показать).
для длинных имен можно показывать по два символа.

(6) Показывать через один символ и не париться

И да деперсонализация по 152-ФЗ это веселая штука