$ Filter_percentage = 90;
$ Имя пользователя = ""; // имя пользователя пользователя регистрации.
$ Blocked_usernames = массив (
"theymos",
"initscri",
"админ",
);
$ Username_blocked = ложь; // не блокируется по умолчанию.
Foreach ($ blocked_usernames как $ б) {
// найти допускаемые письма, используя процент фильтра.
$ Permitted_letters = этаж (STRLEN ($ б) * ($ filter_percentage / 100));
$ Username_length = StrLen ($ имя пользователя);
$ Loop_times = ($ username_length - $ permitted_letters);
// цикл по вариантам
для ($ I = 0; $ я<= $ loop_times; $ я ++) {
$ чековые = StrLen ($ имя пользователя, $ я, $ username_length); // создать вариант.
// проверить, если один из вариантов содержится в подозреваемом заблокированного пользователя.
если (StrPos ($ отмечаемых, $ б)! == FALSE) {
    $ Username_blocked = истина;
}
}
}