POST
1999/08/13(金) 22:02:42
BIGLOBEでは最近、サーバの仕様が変わって、
cgiを呼び出す際には、
http://cgi.www5a.biglobe.ne.jp/~**/***.cgiのようにし、
同ユーザのページからリンクした時だけ動作するようになってしまいました。（
http://cgi.****で呼び出せるのは拡張子.cgiのみ）
それが原因かどうかは分かりませんが、
$now = time;
($p1, $p2) = unpack("C2", $now);
$wk = $now / (60*60*24*7) + $p1 + $p2 - 8;
@saltset = ('a'..'z','A'..'Z','0'..'9','.','/');
$nsalt = $saltset[$wk % 64] . $saltset[$now % 64];
if (!eval '$pwd = crypt($_[0],$nsalt);') { &error(1); }
if ($pwd =~ /^\$1\$/) { $salt = 3; } else { $salt = 0; }
if (crypt($_[0],substr($pwd,$salt,2)) ne $pwd) { &error(2); }
という処理をすると、error(2)に引っかかってしまいます。
原因として考えられることはありますでしょうか？