среда, 15 октября 2008 г.

Скрипт на perl для создания паролей

#!/usr/bin/perl -w
my @a=("a".."z","A".."Z","0".."9");
for (1..32) { print $a[int rand @a]; };
print "\n";'

7 комментариев:

f-andrey комментирует...

Как я понимаю спецсимволов у тебя в алгоритме не предусмотрено?
а вобше почему не юзать например sysutils/pwgen2 хотя перл он почти всегда есть, а это надо устанавливать :)

Князь комментирует...

Их очень легко добавить. Конечно можно поставить кучу программ. Но этот скрипт на всякий случай - если других вариантов нет :)

Unknown комментирует...

Pwgen может генерировать "запоминающиеся" пароли, а не только полностью случайные. Менее надежно, но зато юзер не перепишет его на бумажку.
А вот тут я даже написал скрипт, который через pwgen генерирует имена и пароли
http://takeworld.blogspot.com/2008/09/blog-post.html

Vlad Styran комментирует...

Баловство все это. Я бы не советовал доверять бытовым псевдослучайным генераторам.

https://www.grc.com/passwords.htm

Князь комментирует...

Такие пароли пользователь не в состоянии запомнить. В заголовок слово "пароль" было выведено только для примера и, если хватает мозгов, этому скрипту можно найти другое применение.

AlexAlexeev комментирует...

md5 -s "eyr348yhdf"

Анонимный комментирует...

head -c 12 /dev/random | uuencode -m - | sed -n "2,2p"