
Убойная капча, для защиты не только от спамеров, но и армии злостных школьнегов.
Для защиты от абсолютно деревянных школьнегов можно использовать капчу попроще:

А от более-менее вменяемых — посложнее:

А вот, собственно, и код:
# Функция генерации антиспам-сообщения
sub new_capcha{
my $rand_max = int('1' . '0' x 500); # Максимально возможное число для капчи
my $expressions_max = 50; # Максимальное число математических действийmy @signs = ('+', #
'-', # Допустимые операции с числами
'*', # в тексте капчи
'/');#
my $expression = int(rand($rand_max)) . ' ';
my $expressions_count = 1 + int(rand($expressions_max - 1));
for (my $i = 0; $i < $expressions_count; $i++){
$expression .= ' ' . $signs[int(rand(@signs))] . ' ' . int(rand($rand_max));
}
return $expression;
}
Проверка правильности ответа:
my ($capcha_result, $capcha_val) = @_;
my $capcha_result_tmp = eval($capcha_val . " =");
if ($capcha_result != $capcha_result_tmp) {
return 'Извините, Вы слишком тупы для продолжения регистрации.';
}
Webmoney Z163628999150, R61715184597
|
14 Авг 2009
Ахахахха! Долго смеялся
D
24 Авг 2009
хорошо что у тебя капчи нет. ненавижу ее как пользователь. больше всего добивает капча от ЖЖ — она такаааая непонятная часто бывает.
15 Сен 2009
ету капчу легко пройти с помощю пхп скрипта!
15 Сен 2009
Да Вы что ??! Какой кошмар!
21 Сен 2009
спасибо большое.
15 Окт 2009
Я думаю тут просто спасибом не отделаешься, но честно признаюсь пока я в пхп не разбираюсь, надо собраться с силами и почитать на досуге.
15 Окт 2009
Да, оно видно, ибо это Perl
10 Дек 2009
Здорово! А то, что-то слишком легко живётся интернет пользователям
30 Дек 2009
>>ету капчу легко пройти с помощю пхп скрипта!
хах, ну и бред) прям леегко)
небось, сам представление не знаешь что такое php, а от крутых кодеров слышишь, вот и хуйню несешь)
12 Янв 2010
боже
я в принципе к себе на блог капчу не стал ставить, так как считаю, что любая, самая простая капча, может отпугнуть комментатора — картинка не загрузилась, лень считать или еще что-нибудь
08 Фев 2010
Ниразу не защитит. Ломается как спичка.
08 Фев 2010
Спасибо, кэп!
13 марта 2010
Убойная капча — класс.
31 марта 2010
прикольно, а на пхп есть такая капча
05 Апр 2010
Это вопрос, или констатация факта?
14 Апр 2010
Если нужна термоядерная защита, то нужно тоже самое + непонятный шрифт + GD.
Если для прикола, или от школоты — сойдет.
А вообще капча меня раздражает. Любая.
10 Авг 2010
для капчи двойные игтегралы рулят:)