X   Сообщение сайта
(Сообщение закроется через 3 секунды)



 

Здравствуйте, гость ( Вход | Регистрация )

Открыть тему
Тема закрыта
> Помогите с perl
UaAngel
UaAngel
Topic Starter сообщение 12.12.2010, 13:21; Ответить: UaAngel
Сообщение #1


мошенник
****

Группа: Banned
Сообщений: 300
Регистрация: 16.11.2009
Из: Украины
Поблагодарили: 46 раз
Репутация:   5  


Доброе время суток, помогите поправить скрипт perl
Нужно поправить что бы скрипт отдавал в антикапчу русскую капчу и её распознавали русские.
Прописывал параметр 'is_russian' => 2 капча отдаётся в антикапчу распознаётся а скрипт её не вводит.
Может подскажите что нужно поправить?

вот сам код отдачи капчи
sub captcha {
    my ($cont, $format, $key, $ua) = @_;
    #$ua = LWP::UserAgent->new();
    if (length($cont)>100){
        for (my $i=0; $i<10; $i++){
            my $data = [
            'method' => 'base64',
            'key' => $key,
            'body' => encode_base64($cont),
            'ext' => $format,
            ];
            $h_cap++;
            my $content = $ua->post("http://antigate.com/in.php", $data)->content;
            my @id = $content =~ /OK\|(.*)/;
            my $id = "@id";
            #print "$content\n";
            if ($id>0){
                sleep(4);
                for (my $z=0;$z<40;$z++){
                    $content = $ua->get("http://antigate.com/res.php?key=$key&action=get&id=$id")->content;
                    my @c = $content =~ /OK\|(.*)/;
                    my $c = "@c";
                    #print "$content\n";
                    if ($c){
                        $h_cap_try++;
                        return $c;
                    }
                    sleep(1);
                }
            } else {file_put_contents("hz.txt", $content);}
        }        
    }
    return 0;
}


Сообщение отредактировал UaAngel - 12.12.2010, 13:21


--------------------
Мошенник
0
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Открыть тему
Тема закрыта
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0


Свернуть

> Похожие темы

  Тема Ответов Автор Просмотров Последний ответ
Открытая тема (нет новых ответов) Помогите выбрать программу
Помогите выбрать программу
11 impak 1347 11.12.2017, 13:11
автор: Mikki
Открытая тема (нет новых ответов) Помогите найти плагин на WP
Отзывы с профилей соц сетей
1 SEOMR 442 30.11.2017, 7:18
автор: Nell
Открытая тема (нет новых ответов) Помогите найти проблему
Долгий ответ сервера
6 maxim1249 695 29.11.2017, 17:27
автор: genjnat
Открытая тема (нет новых ответов) Помогите оценить новотник. Плиз
1 Alex-777 527 29.11.2017, 7:18
автор: grumdas
Открытая тема (нет новых ответов) Помогите с неймингом для сборника советов
советы по разработки и жизни
11 coremission 1886 15.11.2017, 22:23
автор: rogefer


 



RSS Текстовая версия Сейчас: 16.12.2017, 11:51
Дизайн