nlog(n): Tiny Gimpy で迷惑コメント対策

Mon April 14, 2014

Tiny Gimpy で迷惑コメント対策

CAPTCHA™ による画像認証をつけて迷惑コメント対策をすることにした。

■ ■ ■

はじめに

これまで，このブログにコメント投稿をする際は，1度プレビューをしてからにしてもらうということで迷惑コメントを排除してきた (nlog(n): プレビューを強制する迷惑コメント対策)。しかし，このやり方に対応するロボットが出てきて，迷惑コメントが1日に100件以上も入るようになってしまった。

そこで，CAPTCHA™ を使って迷惑コメント対策をすることにした。Movable Type に導入するのにはいくつかの方法が提案されている。

Captchaプラグイン (解説: Ogawa::Buzz: Captcha Plugin公開，Ogawa::Buzz: Captcha Plugin 0.11a公開)，条件: Movable Type 3.2 以降
SCode | Movalog Plugins: Movable Type plugins by Arvind Satyanarayan 条件: Movable Type 3.2 または 3.3
CAPTCHA によるコメントスパム対策 - Open MagicVox.net

このブログは Movable Type 2.661 である。Movable Type 3.2 用のプラグインを手直しすれば使えそうだが，テストするのがしんどいので，Open MagicVox.net 提案の方法を使うことにした。仕組みとしては The CAPTCHA Project. Gimpy. を使っているとのこと。Gimpy は何故か現在リンク切れ。

動作環境

動作環境は Vine Linux 4.2, Movable Type 2.661, CGI 3.65, GD 2.0.35, Digest::MD5 2.53。

インストールと設定

ダウンロードとインストール

CAPTCHA によるコメントスパム対策 - Open MagicVox.net から Tiny Gimpy の CGI をダウンロードして設置。設定ファイルは tgimpy.cfg という名前にして，tgimpy.cgi と同じディレクトリに置いた。

/cgi-bin/tgimpy.cgi
/cgi-bin/tgimpy.cfg

必要な Perl モジュール CGI, GD, Digest::MD5 をインストール。Vine Linux には，GD のコンパイル済みパッケージが用意されている。

# apt-get install perl-GD
# cpan -i CGI Digest::MD5

動作確認

Tiny Gimpy にブラウザでアクセスしてみると，

http://nlogn.ath.cx/cgi-bin/tgimpy.cgi?cfg=tgimpy&key=1

tgimpy.cgi

画像は出るが，画像の中にノイズが入らない。どうしてだろう?

Movable Type の修正

個別記事とコメントプレビューの2つのテンプレートに以下を追加。

<input type="hidden" name="cfg" value="tgimpy" />

<label>Confirmation Code (<span class="accesskey">D</span>):</label><br />
<input type="text" name="ans" accesskey="D" tabindex="<$MTEnumVar name="tabindex"$>" />
<img src="/cgi-bin/tgimpy.cgi?cfg=tgimpy&key=<$MTEntryID$>" /> (必須)

MTEnumVar というのは，連番を振ってくれるプラグイン Ogawa::Buzz: MTEnumVar Plugin の変数タグ。

Comment.pm の修正

(MT のインストールパス)/lib/MT/App/Comment.pm を修正する。これもそのまま。

sub post {
   my $app = shift;
   my $q = $app->{query};

   return do_preview($app, $q, @_) if $app->request_method() ne 'POST';

   ;### ここから追加
   require '/home/http/html/cgi-bin/tgimpy/tgimpy.cgi';
   my $cfg = $q->param ('cfg');
   my $ans = $q->param ('ans');
   return $app->handle_error ("認証キーを入力してください")
   if (! &TGimpy'CheckAnswer ($cfg, $q->param('entry_id'), $ans));
   ;### ここまで追加