Примитивнейший генератор паролей на Perl

Чтобы данный скрипт заработал необходимо установить модуль String::Random, делается это следующим образом (Debian/Ubuntu):

perl -MCPAN -e 'install String::Random'
#!/usr/bin/perl
# Это убережет нас от небезопасных конструкций, таких как ошибка в имени переменной
use strict
# Это будет выводить необязательные предупреждения
use warnings;
# Подключаем модуль String::Random
use String::Random;
# Объявляем переменную password
my $password;
# Создаем экземпляр класса String::Random
$password = new String::Random;
print "Password generated \n";
# Используя метод randpattern создаем шаблон пароля и выводим сгенерированный пароль
print "Your password is ", $password->randpattern("CCcc!ccn"), "\n";

В шаблоне по которому генерируется пароль:
C – любой заглавный символ [A-Z]
c – любой строчный символ [a-z]
! – любой специальный символ [~`[email protected]$%^&*()-_+={}[]|\:;”‘.<>?/#,]
n – любой целое число [0-9]

Ссылка на модуль String::Random

Оставить комментарий

Ваш email не будет опубликован. Обязательные поля отмечены *

Вы можете использовать это HTMLтеги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Post Navigation