付爸爸的神奇日記本

這個部落格，記錄著付爸爸從年輕時代開始的備忘錄，包含電腦技術、網管、程式設計、資料庫、投資理財、興趣、樂器、日記等，歡迎一起交流與分享、一起學習進步，也歡迎留言給予意見和鼓勵

部落格全站分類：心情日記

Aug 31 Fri 2007 01:22
linux shadow passwd and perl 研究

#example

$1$12345678$zzzzzzzzzzzzzzzzzzzzzz

#decribe

12345678 加密用的8位數key值
$1$12345678$zzzzzzzzzzzzzzzzzzzzzz 加密完後的資料

#perl example

#!/usr/bin/perl



use Crypt::PasswdMD5 qw(unix_md5_crypt);



$user = shift;

$pass = shift;



$line = `cat /etc/shadow | grep $user`;

@shadow = split(/:/,$line);

$passwd_unix = $shadow[1];

$key = substr($passwd_unix,3,8),"\n";

$passwd_perl = unix_md5_crypt($pass,$key),"\n";



print 'passwd_unix = ',$passwd_unix,"\n";

print 'passwd_perl = ',$passwd_perl,"\n";