The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Authen::TuringImage - Image based Turing test (CAPTCHA)

VERSION

 $Revision: 1.006 $
 $Date: Fri Jun 16 03:00:07 PDT 2017 $

SYNOPSIS

  use Authen::TuringImage;

  my $auth = new Authen::TuringImage;

  # Write challenge image to a file.

  my ($challenge) = $auth->challenge;
  open (CHALLENGE, "> challenge.jpg");
  print CHALLENGE, $challenge->jpeg;
  close CHALLENGE;

  # Read and verify challenge response.

  my $response = <STDIN>;
  print $response eq $auth->response ? "OK" : "Failed";

DESCRIPTION

This module implements an image based Turing test (aka "CAPTCHA") to help protect resources from automated access.

CONSTRUCTOR

new

Creates and returns a new Authen::TuringImage object.

METHODS

challenge

Returns an image for use as a Turing test challenge, as well as the text of the challenge, in that order, as a two element list. The user must read and enter the characters in the image.

response

Returns the correct response to the Turing image challenge.

AUTHOR

Ashish Gulhati, <authen-ti at hash.neo.tc>

BUGS

Please report any bugs or feature requests to bug-authen-turingimage at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Authen-TuringImage. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Authen::TuringImage

You can also look for information at:

LICENSE AND COPYRIGHT

Copyright (c) 2001-2017 Ashish Gulhati.

This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License 2.0.

See http://www.perlfoundation.org/artistic_license_2_0 for the full license terms.