Скрипт генерации паролей на Perl

Этот скрипт был написан/найден мной года 4 назад. С тех пор я периодически пользуюсь им для генерации паролей в консоли. Может кому пригодится. Называется passgen:

#!/usr/bin/perl
print "Password length:";
chomp($length=<stdin>);
$length=~s/\D*//g;
$length||='8';
srand();
@letters=('a'..'z','A'..'Z',0..9,'#','*','_','-','+','=');
for (1..$length){($pass.=$letters[rand(@letters)])};
print "\033[1;31m$pass\033[0;39m\n";

Есть еще неплохая утилита Pwgen.

Pwgen is a small, GPL'ed password generator which creates passwords which can be easily memorized by a human.

$ sudo apt-get install pwgen

А чем пользуетесь вы для генерации паролей?