MaMac 書込み所
[リストに戻る] [ホームに戻る] [新規投稿] [スレッド表示] [トピック表示] [留意事項] [ワード検索] [管理用]
タイトル対策チェック追加
投稿日: 2005/12/03(Sat) 12:36
投稿者penguin-19  <mizusawa@kiwi.ne.jp>
参照先http://mizusawa.no-ip.info:8080/index.html

 どもです。

 まだスパムが続いているようなので、2つほど対策を入れてみてはどうでしょうか。

1. URLと同じものが本文中にでてきたら宣伝と判断して拒否する。意外と効果あるそうです。
2. 外国スパム対策で、ひらがなが一つもないと拒否する。ただしこの方法、例えば「賛成」などの一言コメントもはじいてしまいます。

 二つチェックを追加し、拒否の文言が同じなのでコメント文でなんではじいたのか確認できるようにしてあります。

●オリジナル yyregi.cgi
# 禁止ワードチェック
if ($deny_word) {
&deny_word($in{'name'});
&deny_word($in{'comment'});
}

# URL自動リンク
if ($autolink) { &auto_link($in{'comment'}); }

●変更後
# 禁止ワードチェック
if ($deny_word) {
&deny_word($in{'name'});
&deny_word($in{'comment'});
}

# URLと同じものが本文にあったら宣伝なのでオミット
if ( $in{'comment'} =~ m/$in{'url'}/) {
&error("不適切な投稿のため受理できません<!--■宣伝と判断■-->");
}

# ひらがながないとはじく 外国スパム対策
if ($in{'comment'} !~ /\x82[\x9f-\xf1]/) { # スクリプトがSJISの場合
# if ($in{'comment'} !~ /\xA4[\xA1-\xF3]/) { # スクリプトがEUCの場合
&error("不適切な投稿のため受理できません<!--■日本語ではないと判断■-->");
}

# URL自動リンク
if ($autolink) { &auto_link($in{'comment'}); }

 一応MacPerl 5.6で動作確認済み。

 残映のヘイゴさんによるとMacJPerlでは外国スパム対策は動作しないとのこと。


- 関連ツリー

対策チェック追加 - penguin-19 2005/12/03(Sat) 12:36 No.154
     ├ Re: 対策チェック追加 - mamac 2005/12/03(Sat) 15:48 No.159
     ├ Re: 対策チェック追加 - penguin-19 2005/12/03(Sat) 17:17 No.160
     └ Re: 対策チェック追加 - mamac 2005/12/03(Sat) 19:50 No.162


- 返信フォーム

お名前
Eメール
タイトル
メッセージ
参照先
イメージ   [イメージ参照]
暗証キー (英数字で8文字以内)
投稿キー (投稿時 投稿キー を入力してください)
文字色