The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

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

VERSION

 $Revision: 1.008 $
 $Date: Sat Oct 27 21:04:57 PDT 2018 $

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) Ashish Gulhati.

This software package is Open Software; you can use, redistribute, and/or modify it under the terms of the Open Artistic License 1.0.

Please see http://www.opensoftwr.org/oal10.txt for the full license terms. By using or modifying this software, you indicate your agreement with the license terms.