The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Тематический каталог: Реализация теста Тьюринга на Perl (вво..."
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Разговоры, обсуждение новостей (Public)
Изначальное сообщение [ Отслеживать ]

"Тематический каталог: Реализация теста Тьюринга на Perl (вво..."  
Сообщение от auto_topic (??) on 13-Июл-04, 02:48 
Обсуждение статьи тематического каталога: Реализация теста Тьюринга на Perl (ввод цифр изображенных на картинке) (perl image auth web cgi)

Ссылка на текст статьи: http://www.opennet.me/base/dev/turing_test.txt.html

Высказать мнение | Ответить | Правка | Cообщить модератору

 Оглавление

Сообщения по теме [Сортировка по ответам | RSS]

1. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от igor email(??) on 13-Июл-04, 02:48 
У тебя в урле картинки прямым текстом указано число, которое изображено ... не хорошо
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

2. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от Tigrisha email on 13-Июл-04, 09:03 
однако действительно дыра получается. Роботу совершенно незачем анализировать картинку. Проще взять и вынуть число из URL. Ведь они у тебя довольно простого вида
http://www.price-list.kiev.ua/cgi-bin/anti_robot_img.cgi?cod....

Соответственно кусочек после code и есть число. :)

Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

3. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от scorp21 email(??) on 13-Июл-04, 11:33 
От этого избавиться можно.
А так в принципе очень даже ничего.
Немного подшлифовать, заменить gif на png и рабочий package готов.
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

4. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от Vladimir Maximenko email on 13-Июл-04, 11:35 
Упс !

действительно ошибся с кодом сессии
исходник исправил

нужно читать так
Картинка отображается на странице как STDOUT работы небольшого скрипта, генерирующего картинку, код сессии передаем скрипту как параметр
<img align="right" src="/cgi-bin/anti_robot_img.cgi?code=<session_code>" border=1 alt="">

Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

5. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от AcidumIrae email on 13-Июл-04, 12:45 
Perl конечно хороший язык, но PHP рулит
----------------------------------------
header("Content-type: image/png");
session_start();
//Config
$font   = 4;   //Largest built-in font
$width  = 100; //Image width
$height = 35;  //Image height
$num    = 255; //Number of random background lines

$minc   = 4;   //Minimum word length
$maxc   = 8;   //Maximum word length

// seed with microseconds
function make_seed()
{
  list($usec, $sec) = explode(' ', microtime());
  return (float) $sec + ((float) $usec * 100000);
}

mt_srand(make_seed());

$len=mt_rand($minc,$maxc);
$string="";
for($i=0;$i<$len;$i++)
{
  if(mt_rand(0,1))
    $c=mt_rand(65,90);
  else
    $c=mt_rand(97,122);
  $string.=chr($c);
}

$_SESSION['word_verify']=$string;

/*********************************************************/
$im     = imagecreatetruecolor($width,$height);
$tcolor = imagecolorallocate($im, 0, 0, 0);
$bcolor = imagecolorallocate($im, 255, 255, 255);

$fx  = imagefontwidth($font);
$fy  = imagefontheight($font);

$x=mt_rand(2,$width-$fx*strlen($string)-2);
$y=mt_rand(2,$height-$fy-2);

imagefill($im, 1, 1, $bcolor);
imagerectangle( $im, 0, 0, $width-1, $height-1, $tcolor);

//Drawing random lines
for($i=0;$i<$num;$i++)
{
  $tx = mt_rand(0,$width);
  $ty = mt_rand(0,$height);

  $dx = mt_rand(mt_rand(-3,0),mt_rand(0,3));
  $dy = mt_rand(mt_rand(-3,0),mt_rand(0,3));

  imageline($im,$tx,$ty,$tx+$dx,$ty+$dy,$tcolor);
}

//cleaning box for text
imagefilledrectangle( $im, $x-1, $y-1, $x+$fx*strlen($string)+1, $y+$fy+1, $tcolor);
imagefilledrectangle( $im, $x-1, $y-1, $x+$fx*strlen($string)+1, $y+$fy+1, $bcolor);

//Writing text
imagestring($im, $font, $x, $y, $string, $tcolor);
imagestring($im, $font, $x+1, $y, $string, $tcolor);

imagerectangle( $im, 0, 0, $width-1, $height-1, $tcolor);

imagepng($im);
imagedestroy($im);

Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

6. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от Questy (??) on 13-Июл-04, 13:20 
У меня при заходе на сайт генерятся хитрые code, которые ничего не дадут при анализе.

Да и зайдя на http://www.price-list.kiev.ua/cgi-bin/anti_robot_img.cgi?cod... тоже получил не 53191.

Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

7. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от foobar on 13-Июл-04, 17:48 
Можно и картинки обойти, если очень захотеть ;)
На /. как-то пробегало, открываем какой-нить порно ресурс и за показ фришного контента требуем от юзеров распознать _вашу_ картинку...
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

8. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от danver on 14-Июл-04, 20:37 
Скажите, а зачем картинку выводят в PNG ?
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

9. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от Astor on 15-Июл-04, 02:04 
Потому что это стандарт де-факто для опенсурсного ПО. JPEG'и, BMP и прочие GIF'ы не подходят по лицензионным соображениям.
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

10. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от Dr. Nebula email on 13-Май-05, 11:55 
Хороший модуль, только на мой взгляд несколько сыроват: есть лишние подпрограммы, да и удалять старые файлы сессий лучше не при начале новой (ибо при частом обращении есть шанс, что кто то начнет новую еще до того как будет обработан преведущий запрос), а в подпрограмме проверки - если есть такая сессия, но код неправильный - удалить файл сессии
И возможно следует объединить в одну подпрограмму создание новой сессии и генерации картинки
Но это только мое мнение, глубоко модуль не копал, только посмотрел
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

11. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от Dimma on 30-Авг-05, 01:31 
Тоже по теме можете посмотреть
http://www.progland.com/protect_forms.htm
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

12. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от СТАС email on 23-Дек-05, 14:20 
Что за шняга дайте готовый скрипт накой нам это ?? выложите сам скрипт как он должен вызывать модуль а то я ламер и и не тока я незнаем как чё делать !
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

13. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от Dr. Nebula email on 25-Дек-05, 23:37 
>Что за шняга дайте готовый скрипт накой нам это ?? выложите сам
>скрипт как он должен вызывать модуль а то я ламер и
>и не тока я незнаем как чё делать !

Учиться

Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

14. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от Lookfor email on 26-Дек-05, 14:28 
Друзья, помогите ламеру разобраться что к чему.
Что и куда нужно поместить что-бы это все заработало...
Есть сервер, на нем стоит Perl, и сайт на котором есть заполняемая форма.
Что нужно написать в htm файле? И какие куда скрипты поместить? Спасибо!!!
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

17. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от Жан on 24-Май-06, 17:29 
Жалко, что на последнее сообшение по установке так никто и не ответил.
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

19. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от Федор on 17-Авг-06, 16:55 
да жалко но можно покапаться и найти самому что куда  вставлять, так и сказано выше УЧИТЬ :)
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

20. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от Roman email(??) on 29-Авг-06, 17:51 
на РНР проще организовать... и в JPEG можно, и в PNG и даже в файл - а потом этот файл читать.
а зачем сохранять данные в файл? можно ведь сохранять в сессию, а код сессии - в куки пользователю.
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

21. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от Костя email(??) on 23-Янв-07, 11:43 
У меня неболшая проблемка по работе указанного модуля.
У меня не получается сходу картинку выводить в форму приходится сохранять на сервере, а src= выводить её местоположение.
Нельзя как нить выводить в браузер без создания файла?
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

22. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от grey (??) on 28-Фев-07, 14:42 
Господа... Вешался на Annotate? покопал форумы - нарыл что параметр gravity - обязательный... воткнул, вешацца перестало, но в картинку текст не пихает, выдает только фон и шум.
Шрифт видит - проверено.
Куда копать?

ЗЫЖ: Неплохо бы в статью добавить несколько строк про Контент-тайп, а то ведь у слабодумающих набор символов будет выдавать ;о)

Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

23. "Реализация теста Тьюринга на Perl (ввод цифр изображенных на..."  
Сообщение от Юзер (??) on 26-Фев-09, 13:37 
Нужно прописать путь до шрифта font=>'путь.../шрифт.ttf'
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору


Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру