求助：perl中的crypt()

megalomania

想要驗證用戶的密碼是否正確，尋得代碼如下：
　　　　sub　validate_passwd　{
　　　　　　　　my($user,$passwd)　=　@_;
　　　　　　　　my($pwdhash);
　　　　　　　　if　(　!($pwdhash　=　(getpwnam($user))[1])　||
　　　　　　　　　　　　　　　$pwdhash　ne　crypt("\U$passwd","\U$name"　)　{
　　　　　　　　　　　　.......
　　　　　　　　}
　　　　　　　　return　1;
　　　　}
不知道當中的$name應該是什麽内容，我用用戶名 | 用戶全稱 | [加上"$1$"]，統統不行，有誰知道怎麽回事？

apile

http://search.cpan.org/~nikip/Authen-PAM-0.14/FAQ.pod
unix通常用MD5編碼...
而CRYPT必須要知道key才有辦法編碼成與unix的MD5一模一樣的數值.
所以你應該用上面那個module..