Perでクイズを作っています。「戻る」対策を教えて

質問

只今、Perl言語を使ってクイズを作っています。

問題を表示して、<INPUT TYPE=radio・・・>と言うとても簡単なものですが、1問毎に正解を表示させて、20問終了後に正解率を表示させています。
1問毎にPerlプログラムで正誤をカウントして正解率を計算しているのですが、「戻る」をクリックされると正解を再度選択できますので正確な採点にはなりません。
私には、サーバー側に存在するPerlでのプログラムで正誤の計算をしたものを「戻る」で、その計算が無かったことに出来る、言い換えれば「時間を戻す」ことが出来ること自体がとても不思議でたまりません！！
何故、そんなことが出来るのかも知りたいのですが、今回の質問は、Perl言語を使ったプログラムで「戻る」をクリックされたか否かを知る方法を教えて下さい。クイズの入口はｈｔｍｌで記述しているのですが、問題の表示、解答等はPerlで記述していますので、Perlプログラムの制御下の時のみ「戻る」を無効に出来ればその方法も教えて頂ければ大変助かります。
よろしく、お願い致します。

回答No.3

mitoneko · ベストアンサー

保存の方法は、何だっていいです。ようするに、次に、サーバー側でCGIを起動した時に、参照できれば良いだけです。
　テキストファイルに書くも良し。データベースに入れるも良し。perlだと、普通は、このあたりの２択かな。
　空のファイルのファイル名で記録というのもありかもしれません（レコード管理が楽ちん。検索も削除も追加も全部ファイルシステムにお任せ=^・。・^=）。
　レジストリに入れるという手も（普通はしません=^・・;=）

　アプリケーションサーバーを利用してだと、もっと選択肢は豊富にありますけどね。

お礼

mitoneko様
返信を頂き、大変ありがとうございました。
素人の私に親切に説明をして頂き、感謝しています。
早速、プログラムを考えてみます。

ありがとうございました。

回答No.2

k_kota

対策が全くないわけでは無いです。
ただ、この文章の内容だとperlを勉強してCGIの内容を理解してくださいとしか言えないです。

結局戻るを押したかどうかもhtmlの範疇では判別できません。
なので、perlで判別するのが一番です。となると内容理解する必要があります。

お礼

mitoneko様
返信を頂き、大変ありがとうございました。
素人の私に親切に説明をして頂き、感謝しています。
早速、プログラムを考えてみます。

ありがとうございました。

回答No.1

mitoneko

webアプリケーションを作成していると、必ずぶつかる問題です。
　不正な画面遷移とか、不正遷移対策とかなどなどのワードで検索すれば山のように記事が出てきます。どんな言語でアプリケーションを組むかによらない、httpの根源的な問題です。
　これは、画面の遷移のコントーロールが基本的に、アプリケーションのコントロール下ではなく、ブラウザーのコントロールにより行われるのが原因です。

　戻るのを統一的に「禁止」「阻止」する方法はありません。ｗｅｂアプリケーションには、ブラウザーの機能をコントロールするスベがないからです。ｊａｖａｓｃｒｉｐｔを活用してある程度のブロックは出来ますが、それにしても、urlを手打ちして前のページに戻ることはどうやっても阻止することが出来ません。

　ではどうするかですが、webアプリケーションの側で、画面がどのように遷移していったかを記録し管理していくしかありません。

　有名な方法では、ワンタイムトークンの埋め込みでしょうか。
　質問１→回答→質問２
　の順でページが進んでいくとします。このページ群は、必ずこの順序で進む必要があります。たとえ、回答のページのｕｒｌを手打ちされたとしても無効にしなくてはなりません。

　そこで、質問１のページに乱数を元に生成したＩＤをhiddenフィールドにでも格納しておきます。同時に、質問１で発行したＩＤとして、perl側でも記録をつけておきます。
　回答欄を生成する際には、まず、ｈｉｄｄｅｎフィールドを確認します。ついで、質問１のページのＩＤ記録と照合し、そのＩＤが存在するかどうかを確認します。存在すれば、このＩＤ記録を削除又は無効にします。その後、回答欄の生成処理を実行します。
　もし、ＩＤの照合が失敗したら、これは、何らかの不正な遷移です。トップページへ強制的に飛ばすも良し。エラーページを出すも良し。とにかくエラー処理をします。

　この手順で、残りのページも全部制御します。
　真ん中のページへいきなり飛んできても、サーバーにＩＤ記録がありませんから、エラーになります。戻るボタンで前のページに戻っても、すでに前のページのＩＤ記録は削除されていますから、やっぱりエラーになります。
　唯一の穴は、ｈｉｄｄｅｎフィールドを適当に作成してＵＲＬを手打ちでコールされた場合です。万が一、偶然ＩＤが一致するとエラーにならなくなります。そのため、ＩＤの値は、なるべく長い、かつ充分でたらめなコードを毎回生成するようにしてください。間違っても、推測できるようなものでは困ります。

　他にも、セッションを利用するなど、いろいろな方法があります。最初に書いたような単語で検索を掛けてみると良いでしょう。

補足

mitoneko様
詳しく説明して頂き、大変ありがとうございます。私の勉強不足で「ワンタイムトークン」と言う言葉を始めて知りました。（お恥ずかしい限りです）。
教えて下さい！「質問１のページに乱数を元に生成したＩＤをhiddenフィールドにでも格納しておきます。同時に、質問１で発行したＩＤとして、perl側でも記録をつけておきます。」と有りますが、『perl側でも記録を付ける』とは具体的にどうすればいいのでしょうか？
hiddenで回答へ引き継ぐのは分かるのですが、もう一方の実現方法が分かりません。ファイルに書くのでしょうか？
素人で申し訳ありませんが、教えて下さい。