|
■ あけび(管理者) ■ 2003/7/11 (金) 18:34:15 |
|
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Q312461) |
| サーバとperlのcryptに互換性があれば(稀に違う場合もあります)、以下の方法で大丈夫だと思います。
while(<DATA>){
if(!/:/){next;}
s/\r?\n?$//;
($user,$pass)=split(/:/);
if($AUTHCOOKIE{'user'}eq $user && $AUTHCOOKIE{'pass'}eq $pass){$ret=1;last;}
}
この範囲を
if(open(READ,".htpasswdファイルのパス")){
while(<READ>){
if(!/:/){next;}
s/\r?\n?$//;
($user,$pass)=split(/:/);
if($AUTHCOOKIE{'user'}eq $user && crypt($AUTHCOOKIE{'pass'},$pass)eq $pass){$ret=1;last;}
}
close(READ);
}
に変更
|
|
|