アクセス制限・ディレクトリゲイトについて

質問

CGIアクセス制限のスクリプトを探していたら下記のディレクトリゲイトを見つけました。早速ダウンロードしてFTPアップロードして、いざ「ユーザー・マネージャー管理者認証」画面でログインしようと思ったら、admin.cgiファイル内に管理者用パスワードを設定する項目がなく、どのようにして管理者パスワードを設定していいのかわからず、困っています。いろいろとサイトのサポート掲示板や説明書を片っ端から探して読んだのですが、ギブアップです。どのように管理者パスワードを設定したらよいのでしょうか？

http://www.webpower.jp/websofts/password_protection/directory_gate/

回答No.1

sakusaker7

ざっと見なんで間違ってたらごめんなさい。

adm.cgiの Loginというサブルーチンに

if (!open IN, $ADMIN_FILE) {
show_ErrorPage('[13]ファイル読込エラー',
'マスターファイルの読み込みに失敗しました',
"<p>　マスターファイルを読み込みオープンに失敗しました。<br>\n"
. "　マスターファイルがあるディレクトリのパス(場所)の指定は正しいか、指定されたパスにディレクトリが存在するか、パーミッション(読み書き権)は正しく設定されているを確認してください。</p>");
}
$password = <IN>;
close IN;
$password =~ tr/\x0D\x0A//d;

if (crypt($SIO{'password'}, $password) ne $password) {
push @err_msg, "<b>パスワードが不正です。</b><br>\n"
. "→大文字小文字の区別は正しいか、[CapsLock]がオンになっていないか等を確認の上、再入力してください。";
}
}

という部分があり、ここで管理者ログインをチェックしているようです。

$ADMIN_FILE に名前(パス)が格納されているファイルの中身が、
cryptで暗号化されたパスワードになっているみたいです。
なんで、

echo nanonano|perl -e "print crypt(<>, 'xy');"

で得られるようなパスワード文字列を
このファイルの先頭行に追いとけばよいと思います。
上記の一行野郎の 'xy' は cyrpt関数の saltなんで、
適当な二文字を決めてそれにしてください。

詳しくはPerlの組み込み関数の解説があるところで
cryptについて調べてみてください。