[Perl] Authen::Captcha で画像認証 isoya9の日記/ウェブリブログ

[Perl] Authen::Captcha で画像認証

<< 作成日時： 2007/03/02 22:53 >>

Authen::Captcha 使ってみた。

１．インストール

$ cpan
cpan> install Authen::Captcha

２．認証画像／キー生成コード

use Authen::Captcha;
my $captcha = Authen::Captcha->new(
data_folder => "/tmp",
output_folder => "/www/img",
);
$md5sum = $captcha->generate_code("5") # 画像に5桁の英数字を出力

実行すると
・管理ファイル /tmp/codes.txt
・認証画像 /www/img/$key.png
が生成される。画像はこんな漢字。

３．認証チェックコード

my $code = 画面から入力した値
my $md5sum = 認証キー生成の値
use Authen::Captcha;
my $captcha = Authen::Captcha->new(
data_folder => "/tmp",
output_folder => "/www/img",
);
unless ($captcha->check_code($code,$md5sum) == 1){
print "認証NG";
} else {
print "認証OK";
}

認証キーがMD5だし画像がいけてないので、GD::SecurityImage の方が世さげです。

参考）Captcha