Комментарии на: CAPTCHA Perl. Генерация при помощи ImageMagick

От: dimio

dimio — Tue, 27 Apr 2010 03:55:02 +0000

Хэш капчи класть в файл или иную БД (в файл логичней и проще, но если уже есть БД для движка – почему бы не создать там таблицу), отработавшие (и при желании – протухшие) хэши капч удалять. Для удобства можно капчам идентификаторы присваивать некие.

От: bash

bash — Mon, 26 Apr 2010 10:48:43 +0000

ну хэш пользовательского ввода вычислить без проблем… а вот хэш капчи как ?? он же уже забыт, т.к. скрипт отработался на выводе капчи ). да и вобще это разные скрипты могут быть – один выводит капчу, а другой принимает ввод… вот и заморочка у меня тут (

От: dimio

dimio — Mon, 26 Apr 2010 06:08:15 +0000

Я бы вычислял хэш сгенерированного слова для капчи и хэш пользовательского ввода, а затем сравнивал их. Модуль Digest::MD5 в помощь.

От: bash

bash — Sun, 25 Apr 2010 08:14:28 +0000

вот сделал капчу… все работает.
а как правильно проверять ее и ввод юзера ?

От: dimio

dimio — Tue, 23 Mar 2010 05:22:29 +0000

Запустил для проверки на сервере у себя: исходный код – .

Perl v5.8.8
ImageMagick 6.5.9-9 2010-02-25 Q16
Image::Magick (6.005009)

От: mike

mike — Mon, 22 Mar 2010 19:36:45 +0000

img src=\”$cap_url\” border=\”2\”

От: mike

mike — Mon, 22 Mar 2010 19:35:46 +0000

Сделал так:
$query = new CGI;
print $query->em(“”),
$query->textfield(
-name => ‘cap_value’,
-size => 10,
-maxlength => 5,
);
все заработало, но картинка пустая

От: dimio

dimio — Mon, 22 Mar 2010 19:26:41 +0000

Понятно, это движок режет код…

От: dimio

dimio — Mon, 22 Mar 2010 19:22:05 +0000

В примере указано так:

print $query->em(““),

,а вы передаёте пустую строку.
Модуль CGI подключен кстати?

Что касается рисунка – во-первых – шрифт указан правильно? Во-вторых – можно покрутить параметры генерации. У меня получалась нормальная картинка с капчей при указанных в примере параметрах.

От: mike

mike — Mon, 22 Mar 2010 18:57:24 +0000

Что-то не работает!
Рисунок – просто белый прямоугольник,без текста, а потом
вываливается на
print $query->em(“”),
$query->textfield(
-name => ‘cap_value’,
-size => 2,
-maxlength => 2,
);

с сообщением
Can’t call method “em” on an undefined value at /home/…….