Разработка UDF для работы с anticaptcha сервисами

[El Panda]

Начал разработку UDF для работы с anticaptcha сервисами...
Для "общения" с сервисом использую WinHttp.WinHttpRequest
Как известно подобные сервисы ловят данные через multipart/form-data:

Что такое кодировка multipart/form-data?
Как вы знаете, в обычном POST-запросе все параметры передаются в одной строке ( param1=value1&param2=value2& ... итд.). Наряду с этим существует еще один способ, повсеместно используемый для отправки файла через веб-форму. Данные здесь уже не кодируются в urlencode а отправляются как есть, разграниченные специальными разделителями, которые вы сами генерируете и указываете в заголовке (официальная спецификация RFC1867). Вот пример, как выглядел бы ваш запрос отсылки капчи:

POST http://anti-captcha.com/in.php HTTP/1.0 
Content-Type: multipart/form-data; boundary=*BBBBBB* 
Host: anti-captcha.com 
Content-Length: *XXXXXX* 
--*BBBBBB* 
Content-Disposition: form-data; name="method" 

post 
--*BBBBBB* 
Content-Disposition: form-data; name="key" 
41f4d6c342bcad57b6260e64f6a50619
 --*BBBBBB* 
Content-Disposition: form-data; name="file"; filename="capcha.jpg" 
Content-Type: image/pjpeg 

*CCCCCC* --*BBBBBB*--

Где:
*BBBBBB* - разделитель, который должен быть достаточно уникальным (чтобы не повториться случайно в других данных).

Пример: -------------b358fdj4ha19fdk

Обратите внимание на то, как в примере разделитель используется с 2мя дефисами спереди каждый раз перед указыванием нового параметра и с 2мя дефисами спереди и в конце запроса.

*CCCCCC* - содержимое ФАЙЛА капчи, БЕЗ какого либо кодирования, целиком.

*XXXXXX* - длина содержимого POST-запроса в байтах, начиная от первого разделителя --*BBBBBB* до последнего --*BBBBBB*-- ВКЛЮЧАЯ ОБА. Т.е. предварительно нужно собрать содержимое запроса в памяти, посчитать его длину и уже потом формировать окончательный запрос.


PS. Соответственно если вы шлете не JPG а, скажем, GIF, то Content-Type должен быть не image/pjpeg, а image/gif. То же самое для формата PNG - image/png

И всё бы хорошо но никак не могу передать картинку, а именно

*CCCCCC* - содержимое ФАЙЛА капчи, БЕЗ какого либо кодирования, целиком

Пробовал как просто FileRead, так и _Base64Encode.
Принимает все параметры кроме самой картинки :(

У сообщества есть соображения?

 

[CreatoR]

El Panda [?]

Пробовал как просто FileRead

А если прочитать в бинарном режиме?

P.S
Если решить эту задачу, то станет возможным и заливка файлов на разные сервисы...

Можно пример того что уже используется? Поэксперементирую

 

[El Panda]

А если прочитать в бинарном режиме?

Вроде пробовал, не получилось.

Вот примерный кусок отправки данных через multipart/form-data

Local $post_data
$boundary="dFksdmDjfWfjsnDf"

$post_data &= "--" & $boundary & @CRLF
$post_data &= "Content-Disposition: form-data; name=""method"""&@CRLF&@CRLF
$post_data &= "post"&@CRLF
$post_data &= "Content-Disposition: form-data; name=""key"""&@CRLF&@CRLF
$post_data &= IniRead($INI,"main","ac_key","")&@CRLF
$post_data &= "Content-Disposition: form-data; name=""file""; filename=""capcha.jpg"""&@CRLF
$post_data &= "Content-Type: image/pjpeg"&@CRLF&@CRLF
$post_data &= FileRead(@ScriptDir&"\captcha.jpg")&@CRLF
$post_data &= "--" & $boundary & "--" & @CRLF
$oHTTP.Open("POST", $SERVER_AC&"intest.php")
$oHTTP.setTimeouts(5000, 5000, 15000, 15000)
$oHTTP.SetRequestHeader("Content-Type", "multipart/form-data; boundary="&$boundary&@CRLF)
$oHTTP.SetRequestHeader("Accept-Language", "ru")
$oHTTP.SetRequestHeader("Referer",$SERVER&"index.php")
$oHTTP.SetRequestHeader("User-Agent", $USER_AGENT)
$host = StringReplace($SERVER_AC,"http://","")
$host = StringSplit($host,"/")
$oHTTP.SetRequestHeader("Host",$host[1])
$oHTTP.SetRequestHeader("Content-Length", StringLen($post_data))
$oHTTP.Send($post_data)
$oHTTP.WaitForResponse
If @error Then
    Return 0
EndIf
$resp  = $oHTTP.Responsetext

Поэкспериментировать можно с любой аналогичной формой

 

[timsky]

El Panda
Ну как успехи? Разобрался?

 

[uninstall]

Средствами AutoIT решить данный вопрос не смог, написал библиотерку на delphi и использовал ее, если интересен данный вариант могу выложить библиотеку с описанием использования

 

[El Panda]

Средствами AutoIT решить данный вопрос не смог, написал библиотерку на delphi и использовал ее, если интересен данный вариант могу выложить библиотеку с описанием использования

Очень интересно ;)

 

[uninstall]

Как и обещал выкладываю модуль UploadForm на Delphi 7 для заливки картинок на anticapcha сайты и функцию SendCapcha для использования модуля.
Модуль скомпилирован в формате dll, имеется исходный код - dpr файл.
Функция находиться в файле au3.

P/S. Для корректной работы модуля меняете в функции SendCapcha сайт сервиса распознавания и $capcha_key на свои

 

[timsky]

За ДЛЛ мега респект!

Но все же странно, в чем проблема-то. :blink:

 

[uninstall]

Проблема в функциях AutoIT, точнее в их отсутствии - нет функции оправляющей запрос методом post

 

[`p r o x y]

Проблема в функциях AutoIT, точнее в их отсутствии - нет функции оправляющей запрос методом post

почему же, что-то было-было ...на офф форуме - HTTP UDF's, кажется...

 

[uninstall]

Проблема в функциях AutoIT, точнее в их отсутствии - нет функции оправляющей запрос методом post

почему же, что-то было-было ...на офф форуме - HTTP UDF's, кажется...

Я ни нашел не одной из функций позволяющих выслать двоичный файл методом post

 

[`p r o x y]

Я ни нашел не одной из функций позволяющих выслать двоичный файл методом post

я сам не тестировал, но в UDF`ке заявленно, что есть

 

[uninstall]

Я ни нашел не одной из функций позволяющих выслать двоичный файл методом post

я сам не тестировал, но в UDF`ке заявленно, что есть

Ну так потестируй, если получиться то большой тебе респект и уважуха, а пока хотя бы сслыку на топик в форуме скинь, где ты этот HTTP UDF видел

 

[kaster]

uninstall
Его фраза "я сам не тестировал, но..." - это и есть ссылка ;D

 

[`p r o x y]

uninstall

Его фраза "я сам не тестировал, но..." - это и есть ссылка

ye-e-e-epp

Ну так потестируй

наезд? ;D

 

[uninstall]

to `p r o x y,
Хватит офтопить

 

[uninstall]

Недавно вернулс к вопросу распознавания капч и был неприятно удивлен тем, что моя библиотека по отсылке post запросов перестала работать. К сожалению починить ее мне не удалось. Но выход я нашел - выкладываю программу на Perl которая позволяет полностью автоматизировать процесс распознавания капч, для ее работы нужна лишь функция обертка:

#include <Constants.au3>
Local $foo = Run('cap.exe сервис_сайт капча_ключ файл_картинки', '', @SW_HIDE , $STDOUT_CHILD)
Local $line
While 1
    $line = StdoutRead($foo)
    If @error Then ExitLoop
	if $line <> '' then Msgbox (0,'Captcha found',$line)
Wend

P.S.Как только одобрят размещение моего файла на форуме, сразу же размещу ссылку на cap.exe

 

[uninstall]

Ссылка на файл <a href="http://autoit-script.ru/index.php?action=downloads;sa=downfile&id=11" />cap.exe</a>


Добавлено:

Сообщение автоматически объединено: 17 Дек 2009

К сожалению модуль Cap.exe написанный на перл перестал работать по причине ограничений компилятора (просят заплатить денег за снятие временного ограничения работы скомпилированной программы). В связи с чем вернулся к предыдущему решению - библиотека на delphi, которое и выкладываю.
P.S. Изначально она была компилирована под delphi 7 и перестала работать, перекомпилировал под delphi 10 и все нормально
P.SS. Нашел в чем ошибка - работа модуля не зависит от версии компилятора, наблюдается зависимость от имени файла, он должен содержать только английские символы и не содержать специальных символов типа "_", "-" и т.д., "." можно использовать, если кому интерсно выкладваю версию dll компилированную delphi 10, c обновленными интернет библиотеками indy

 

[o_nix]

uninstall - а нельзяли к этой dll добавить ещё параметры

опциональные поля (не обязательные):
phrase => 0 или 1 (0 по умолчанию, 1 помечает что у капчи 2-4 слова)
regsense => 0 или 1 (0 по умолчанию, 1 помечает что текст капчи чувствителен к регистру)

numeric => 0 или 1 или 2 (0 по умолчанию, 1 помечает что текст капчи состоит только из цифр, 2 помечает что на капче нет цифр)
calc => 0 или 1 (0 по умолчанию, 1 помечает что цифры на капче должны быть сплюсованы)
min_len => 0..20 (0 по-умолчанию, помечает минимальную длину текста капчи)
max_len => 0..20 (0 - без ограничений, помечает максимальную длину капчи)

Хотябы этих два очень важных

phrase => 0 или 1 (0 по умолчанию, 1 помечает что у капчи 2-4 слова)
regsense => 0 или 1 (0 по умолчанию, 1 помечает что текст капчи чувствителен к регистру)

 

[uninstall]

На сайте antigate.com пишут, что эти параметры у них не всегда корректно отрабатывают, ну если, тебе нужно то добавить могу. Только необходимо некоторое время подождать, сейчас я просто очень занят.
Изначально библиотека не подразумевала эти возможности, так как мне они нужны не были.