NetSago
Вход
Войти

Как присоединиться?
Меню
Главная
События
 Заметки
Статьи
Теги
Поиск
О Проекте
Ссылки
Наше
RSS События по RSS
RSS Заметки по RSS
netsago NetSago
Популярное
Руководство по получению прибыли от Свободных и Открытых Проектов by Джон Эндрюс

Настройка ядра с помощью sysctl by n0xi0uzz

Заметки — CAPTCHA с помощью Perl модуля Authen::Captcha
Назад в Заметки

CAPTCHA с помощью Perl модуля Authen::Captcha
n0xi0uzz



Теги: perl captcha



Что такое CAPTCHA? CAPTCHA — это автоматизированный тест чтобы определить, человек ли использует программу, или бот.

Сейчас CAPTCHA распространена по Сети, в основном, в виде автоматически сгенерированной картинки с текстом, который должен распознать пользователь для выполнения определенного действия (как правило, заполнение какой-либо формы) и прописать в определенном текстовом поле.

При программировании на Perl данная технология реализуется довольно легко с помощью модуля Authen::Captcha. Ниже приведен исходный код генерации изображения и проверки введенного пользователем текста:

#!/usr/bin/perl

use strict;
use warnings;

use Authen::Captcha;
use IO::Prompt;

# определям директории для хранения
# генерируемых данных
my $captcha = Authen::Captcha->new(
        data_folder   => '/tmp/Authen_Captcha',

        

output_folder => '~/public_html/', ); # генерируем картинку с 5 символами my $md5sum = $captcha->generate_code(5); # выводим её пользователю: my $code = prompt "$md5sum.png "; # проверяем результат: my $result = $captcha->check_code( $code, $md5sum ); # в зависимости от результата, # выводим сообщение if ( $result == 1 ) { print "Верно\n"; } else { print "Неверно!\n"; }

Язык
English/Английский
Поиск
Расширенный Поиск
Ошиблись?
Если вы обнаружили ошибку на сайте, пожалуйста, сообщите нам о ней.
Посчитали
0 / 0
К нам сегодня роботы не заходили, человеки могут быть спокойны.

Зарегистрированных пользователей: 0
Онлайн: 0

Время генерации: 0.010 с
NetSago.v2.β © [2006;∞)  Neunica