Для защиты программных АТС Asterisk от злоумышленников, пытающихся подобрать пароли к SIP-аккаунтам, как правило, используют fail2ban с набором правил для Asterisk. Однако не всегда есть возможность установки этой программы. Например, на сервере не установлен интерпретатор языка Python, но в то же время есть Perl. Под катом – скрипт, позволяющий отфильтровывать IP-адреса злоумышленниов после 4 неверных попыток аутентификации. Написан на Perl, с минимумом зависимостей, заточен для файрволла pf. Отмечу только, что его нужно поместить в список задач cron, на ежеминутное выполнение.
Continue reading Защита Asterisk при помощи Perl (без fail2ban)
Tag Archives: perl
Perl: массив массивов, хеш массивов, хеш хешей, стек
Программисты на Perl должны уметь эффективно пользоваться сложными типами данных. В этой статье собраны наиболее полезные посты с сайта PerlMonks, и показаны примеры использования сложных типов данных. По идее, сведений в этой статье должно быть достаточно, но при необходимости можно перейти по ссылке на англоязычный сайт PerlMonks.
1. Массив массивов в Perl
Как определить массив массивов:
@tgs = ( ['article series', 'sed & awk', 'troubleshooting', 'vim', 'bash'], ['ebooks', 'linux 101', 'vim 101', 'nagios core', 'bash 101' ] );
Continue reading Perl: массив массивов, хеш массивов, хеш хешей, стек
Видеоуроки Perl
Неплохая подборка видеоуроков по языку Perl нашлось на самом популярном трекере рунета.
125 видеоуроков, более 15 часов. Язык английский.