среда, 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";'

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

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

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

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

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

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

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

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

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

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

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

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

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

ну вот зачем каждый раз изобретать велосипеды? ;) cookbook уже давно существует.

perl -e "my @chars = ("A" .. "Z", "a" .. "z", 0 .. ', '|', '_', '-'); print join '', @chars[ map { rand @chars } (1 .. 10) ];"

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

md5 -s "eyr348yhdf"

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

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