知的判断に頼ったロボット書込み抑止機能の追加
※当然ながら人手の荒らしには効果がありません
説明文次第で言語が判らない人にも効果があるやもしれません

■やってること
指示された文字列がきちんと入っているかチェックするだけ
説明文が理解できない人やBOTには効果がある。
文字列は変更する可能性があるのでクッキーには保存しておりません。
使用ソースはYYBBSですが掲示板の少々の改造経験があれば
一般的なBBSにも対応できると思います

■追加部分について
投稿部分、返信部分、チェック部分(ログ書込処理)の３箇所あります。
修正個所については前後部分を目安に判断してください。
「chk_str」「キーワード(NEKOYASHIKI)」及び説明文は適当な文字列に変更してください


▼(１)投稿部分の追加

<tr>
  <td nowrap><b>題　　名</b></td>
  <td><input type=text name=sub size="$sub_wid"></td>
</tr>


<↓↓↓追加部分ココから↓↓↓>
<tr>
  <td nowrap><b>　</b></td>
  <td><input type=text name=chk_str size=30><b>←BOT用トラップです、ここには「NEKOYASHIKI」(半角・大文字)と入れないと投稿できません</b></td>
</tr>
<↑↑↑追加分ココまで↑↑↑>

<tr>
  <td nowrap>
    <input type=submit value="投稿する"><input type=reset value="リセット">
  </td>
</tr>


▼(２)返信部分の追加

<tr>
  <td nowrap><b>タイトル</b></td>
  <td><input type=text name=sub value="$resub" size=$sub_wid>
  <input type=submit value="返信する"><input type=reset value="リセット"></td>
</tr>

<↓↓↓追加部分ココから↓↓↓>
<tr>
  <td nowrap><b>　</b></td>
  <td><input type=text name=chk_str size=30><b>←BOT用トラップです、ここには「NEKOYASHIKI」(半角・大文字)と入れないと投稿できません</b></td>
</tr>
<↑↑↑追加分ココまで↑↑↑>

<tr>
  <td colspan=2><b>メッセージ</b><br>
  <textarea cols=$com_wid rows=5 name=comment wrap="$wrap"></textarea></td>
</tr>

▼(３)「ログ書込処理」部分の追加

sub regist {
	# POST限定

<↓↓↓追加部分↓↓↓(１行)>
	if ($in{'chk_str'} ne "NEKOYASHIKI") { &error("不正なアクセスです"); }

	if ($MethPost && !$post_flag) { &error("不正なアクセスです"); }
	# 他サイトからのアクセスを排除
	if ($base_url) {
		$ref_url = $ENV{'HTTP_REFERER'};
		$ref_url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		if ($ref_url !~ /$base_url/i) { &error("不正なアクセスです"); }
	}

以上です