PAM是pluggable authentication modules系统的一个实现，它最初有sun开发；很快被Linux社区的接受，并且开发了更多的模块。其目标是提供一套可用于验证用户身份的函数库，从而将认证从应用程序开发中独立出来。下面是一些PAM在口令保护中的简单例子。 使用pam-tally.so pam-tally.so是一个PAM模快，用于监视用户登陆失败次数并该值超过特定值时做出反映。例如用户在登陆3次失败后，其帐号会被锁定一段时间，或永久锁定（或到联系到系统管理员）。将下面行添加到/etc/pam.d/login: account required /lib/security/pam-tally.so deny=3 no-magic-root 这行配置pam-tally.so ，使之在用户连续3次登陆失败后锁定其帐号。这样攻击者就只有3次猜测口令的机会，之后就会被剔出。 pam-cracklib.so 是alec muffett编写的PAM版本的cracklib库，用于检查口令的强度，他首先调用cracklib例程来测试口令是否能被破解。在通过这个测试后再进行如下测试： 。 口令是否回文？ 。 新口令是不是旧口令的大小写变换版本？ 。 新口令和旧口令是否非常相似？ 。 口令是否太短？ 。 新口令是不是旧口令的移位版本？ 要以此测试每个新口令。只需要在/etc/pam.d/passwd文件中用如下行替换原来pam-unix.so模块； passWord required pam-cracklib.so retry=3 password required pam-unix.so use-authtok md5 这样就给用户三个机会来选择合适的健壮口令。也可以强制口令的长度： password required pam-cracklib.so retry=3 minlength=10 password required pam-unix.so use-authtok md5 强制MD5散列 有些linux发布默认配置下使用DES散列，而非MD5散列。要想强制所有新口令都以MD5散列方式保存，只需直接把md5添加到/etc/pam.d/passwd文件的pam-unix.so 行中： password required pam-unix.so use-authtok md5 下面这段perl代码可用来生成强口令 #！/usr/bin/perl -w #passwd-generator.pl use strict; my @chars=(33..91,93..126); my $num-chars=@chars; my $length; my $punt='! "#$%&'()*+,-./:;<=>?@[\\]^{}~ '; print "enter number of characters in your passwd:" chmop($length=<STDIN>); die "length must be greater than 6!" if $length<=5; while(1){ my $password=' '; foreach (1..Slength){ Spassword.=chr(Schars[int(rant(Snum-chars))]); } if($passwd=~/[a-z]/ and $passwd=~/[A-Z]/ and $passwd=~/[0-9]/ and $passwd=~/[$punt]/ { print Spassword, "\n" ; exit; } }
（出处：http://www.sheup.com）