Passook is a perl script that generates passwords. You can customize the security of the password generated.