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;
}


Замечание модератора:
Эта тема была закрыта автоматически ввиду отсутствия активности в ней на протяжении 100+ дней.
Если Вы считаете ее актуальной и хотите оставить сообщение, то воспользуйтесь кнопкой
или обратитесь к любому из модераторов.


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


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


Свернуть

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

  Тема Ответов Автор Просмотров Последний ответ
Горячая тема (нет новых ответов) Помогите, пожалуйста, моей дочери выжить!
благотворительный топик
30 vitvirtual 3813 19.5.2018, 8:30
автор: vitvirtual
Открытая тема (нет новых ответов) Продвигаю страницу по запросу "Как сделать игру". Помогите советом, пожалуйста
Я секу в теме! Но подать статью угодным поисковикам образом не смо
22 coremission 2213 8.5.2018, 12:33
автор: coremission
Открытая тема (нет новых ответов) Помогите с выбором ноута
20 rokot 919 23.4.2018, 12:09
автор: Room
Горячая тема (нет новых ответов) Тема имеет прикрепленные файлыПомогите с идеями для форума про успех
Спасибо за каждую идею
43 Zoya83 5192 12.4.2018, 11:42
автор: Zoya83
Открытая тема (нет новых ответов) Лендинг или сайт-визитка для ИП? Помогите определиться
6 Yas18 1143 31.3.2018, 20:57
автор: Yas18


 



RSS Текстовая версия Сейчас: 27.5.2018, 5:40
Дизайн