GD::SecurityImage

Perl

http://osakattf.hp.infoseek.co.jp/ ここから Osaka.zip をダウンロードして使ってみた。

use GD::SecurityImage;

my $image = GD::SecurityImage->new(
    width    => 300,
    height   => 80,
    lines    => 1,
    font     => q{/Users/cooldaemon/work/test/captcha/Osaka.ttc},
    scramble => 1,
    bgcolor  => q{#999999},
);

$image->random( q{hoge} );

$image->create(
    ttf => q{box},
    ,
    [0,0,0],
    [200,200,200]
);

my ($image_data,$mime_type,$random_number)
    = $image->out( force => q{jpeg}, compress => 10 );

詳しいパラメータの使い方は、また今度、仕事で使う時に追記する予定。