はじめまして、初めて質問する者です現在、CGIで会員制の掲示板を作っているのですが、IDとパスワードの受け渡しのところで躓いています。仕様は会員さん全員のIDとパスワードがフォルダの中にあり一人一人,ID.prfというファイルの中にパスワードが入っています。その、IDとパスワード使用します。参考になるサイトやどんな文章にすればいいのでしょうか？宜しくお願いいたします。

すいません　開発言語はPerlでした。

これでいいのでしょうか？

ID.prfの中にパスワードの他にメールアドレス等が入っています。

#### 定数値設定 #####

$SCRIPT_NAME = $ENV{’SCRIPT_NAME’};

$SCRIPT_NAME =~ s/.*￥///;

$MEMBER_PATH = ”./members/”;#id.prfが入っているフォルダです。

##### ユーザ名・パスワードチェック #####

# POSTされたデータを取得（アカウント情報部分）

$id = $POST{’id’};

$input_passwd = $POST{’pw’};

if (open FH, $MEMBER_PATH.”$id.prf”) {

$pw = split(/￥x01/, <FH>);

$pw = $tmp[2]

close FH;

if ($input_passwd ne $pw) {

# パスワードが違ったのでエラー表示

# 終了

die ”パスワードが違います。”;

}

} else {

die ”ユーザIDが違います”;

}

宜しくお願いいたします。

#-----------------------------------------------------------------------------

# 定数値設定

#-----------------------------------------------------------------------------

$SCRIPT_NAME = $ENV{’SCRIPT_NAME’};

$SCRIPT_NAME =~ s/.*￥///;

$MEMBER_PATH = ”./members/”;

# ログイン画面表示用エラーメッセージ連想配列

%login_err_msg = {

1 => ’ユーザー名が入力されていません。’,

2 => ’ユーザー名が間違っています。’,

3 => ’パスワードが間違っています。’,

};

#-----------------------------------------------------------------------------

# MAIN

#-----------------------------------------------------------------------------

# クエリー文字列を取得する（GET／POSTされたデータ）

$q = new CGI;

$action = $q->param(’ACT’);

$id = $q->param(’id’);

$pw = $q->param(’pw’);

# Content-Typeをあらかじめ出力しておく

print ”Content-type: text/html; charset=Shift_JIS￥n￥n”;

# ACT別に処理を分岐させる

#なし → ログイン画面表示

#’login’ → ログイン処理後、掲示板を表示

#’post’ → 掲示板投稿処理

#’delete’ → 投稿削除処理

# ACTが何も指定されない場合（CGIを直接起動した場合）、ログイン画面を出す

unless ($action) {

&html_login();

exit();

}

# ユーザ・パスワードチェックを行う

# - この行に来ている時点で、$actionには何か値が入っている。

$login_err = &check_member();

if ($login_err) {# ユーザ名・パスワードに何か問題がある場合

if ($action eq ’login’) {

# ログインしようとしていた場合は、再度ログイン画面を出してあげる

&html_login($login_err_msg{$login_err});# エラーメッセージを表示させつつ、ログイン画面を出す

} else {

# ログイン処理以外（投稿・削除）は、エラーメッセージを出すだけ？？？

print $login_err_msg{$login_err};

}

exit();

}

# 掲示板処理を行う

#- この行に来ている時点で、ユーザ名・パスワードは正しい。

&bbs();

exit();

#-----------------------------------------------------------------------------

# ユーティリティ関数

#-----------------------------------------------------------------------------

# ユーザ名・パスワードが正しいかチェック

#戻り値：

#0 → 正当なユーザ（ユーザ名、パスワードが正しい）

#1 → ユーザ名が未入力

#2 → 存在しないユーザ名

#3 → パスワードが違う

#備考：

#グローバル変数$id、$pdを参照する。

#$idを入力されたユーザー名、$pdを入力されたパスワードとして解釈し、戻り値を返す。

sub check_member

{

# ユーザ名について検証する

if ($id eq ’’) { return 1; }# $idが空

open FH, ”$MEMBER_PATH.$id.prf” or return 2;# $id.prfが存在しない

# プロフィールファイルからパスワード文字列を取得する

@tmp = split(/￥x01/, <FH>);

$valid_pw = $tmp[2];

close FH;

# パスワードについて検証する

if ($pw ne $valid_pw) { return 3; }# パスワードが違う

return 0;# 正当なユーザ

}