#!/usr/bin/perl -w
my @a=("a".."z","A".."Z","0".."9");
for (1..32) { print $a[int rand @a]; };
print "\n";'
среда, 15 октября 2008 г.
Скрипт на perl для создания паролей
Подписаться на:
Комментарии к сообщению (Atom)
#!/usr/bin/perl -w
my @a=("a".."z","A".."Z","0".."9");
for (1..32) { print $a[int rand @a]; };
print "\n";'
7 комментариев:
Как я понимаю спецсимволов у тебя в алгоритме не предусмотрено?
а вобше почему не юзать например sysutils/pwgen2 хотя перл он почти всегда есть, а это надо устанавливать :)
Их очень легко добавить. Конечно можно поставить кучу программ. Но этот скрипт на всякий случай - если других вариантов нет :)
Pwgen может генерировать "запоминающиеся" пароли, а не только полностью случайные. Менее надежно, но зато юзер не перепишет его на бумажку.
А вот тут я даже написал скрипт, который через pwgen генерирует имена и пароли
http://takeworld.blogspot.com/2008/09/blog-post.html
Баловство все это. Я бы не советовал доверять бытовым псевдослучайным генераторам.
https://www.grc.com/passwords.htm
Такие пароли пользователь не в состоянии запомнить. В заголовок слово "пароль" было выведено только для примера и, если хватает мозгов, этому скрипту можно найти другое применение.
md5 -s "eyr348yhdf"
head -c 12 /dev/random | uuencode -m - | sed -n "2,2p"
Отправить комментарий