Цифровая капча

yohohox · 5 Авг 2015

Бодрого времени. Подмогите со скриптом для антикапчи.
Есть простенькая цифровая капча.
Цифры появляются рандомно, от 0 до 9999

Код:

<html>
	<body>
		<center>
			<font color="FF0000">Активирован штраф на награду с мобов!</font>
			<br>Введите этот код,<br>=== <font color=LEVEL>976</font> ===<br> для снятия штрафа: <br>
			<edit var="pwd" width=60 length="3"><br>
			<br><button value="Ok" action="bypass -h farm_delay $pwd" width=74 height=21 back="L2UI_ch3.Btn1_normalOn" fore="L2UI_ch3.Btn1_normal">
		</center>
	</body>
</html>

SARCAZM · 5 Авг 2015

Напишу через часок, изи

SARCAZM · 5 Авг 2015

Попробуй, на ошибки не проверял.

Код:

uses SysUtils;

 var tmpDialog,tmpString:string;
 var posCaptcha, num1, count:integer;
begin
  while Engine.Status = lsOnline do begin
    tmpDialog := Engine.DlgText;
    if (Pos('Активирован штраф', tmpDialog) <> 0) then
begin
tmpString:='';
tmpDialog:=''; // Наверное на делфи это не нужно делать, но у меня привычка.
// Ищем капчу в диалоге
    tmpDialog:=Engine.DlgText;
    posCaptcha:=pos('<font color=LEVEL>',tmpDialog);
posCaptcha:=posCaptcha+19;

// Выдираем число из капчи 
while not (tmpDialog[posCaptcha] = ' ') do begin
tmpString:=tmpString + tmpDialog[posCaptcha];
posCaptcha:=posCaptcha + 1;
end;
num1:=StrToInt(tmpString);


// Отправляем ответ на капчу 
Engine.BypassToServer('farm_delay '+IntToStr(num1), True); 
count:=count+1;
print ('Капча выскакивала -->'+IntToStr(count)+'<-- раз, но мы ее обошли =)');
end;
Delay (888);
end;
end.

yohohox · 5 Авг 2015

Увы..
Скрипт прекращает работу когда вылезает капча :/
Магия

пробовал адаптировать вот это - http://rawr.su/topic/136-matematicheskaya-kapcha/ под свою капчу, аналогично невыходит

phoenix · 26 Сен 2015

точно такая же проблема , скрипт офается если вылетает данная капча

joingog · 5 Окт 2015

А как он определяет, что вылезло окно? Он ищет по тексту?

Код:

 if (Pos('Активирован штраф', tmpDialog) <> 0) then

joingog · 5 Окт 2015

Он выдает такую ошибку )
Я поменял с 19 на 18. Не знаю, может я че-то не понимаю, может это как-то поможет.

SARCAZM · 5 Окт 2015

@joingog, у тебя и капча другая немного. Если не заработает, нужна отдельная тема с полным html диалога капчи.

Код:

uses SysUtils;

 var tmpDialog,tmpString:string;
 var posCaptcha, num1, count:integer;
begin
  while Engine.Status = lsOnline do begin
    tmpDialog := Engine.DlgText;
    if (Pos('Активирован штраф', tmpDialog) <> 0) then
begin
tmpString:='';
tmpDialog:=''; // Наверное на делфи это не нужно делать, но у меня привычка.
// Ищем капчу в диалоге
    tmpDialog:=Engine.DlgText;
    posCaptcha:=pos('<font color=LEVEL>',tmpDialog);
posCaptcha:=posCaptcha+19;

// Выдираем число из капчи 
while not (tmpDialog[posCaptcha] = '<') do begin
tmpString:=tmpString + tmpDialog[posCaptcha];
posCaptcha:=posCaptcha + 1;
end;
num1:=StrToInt(tmpString);


// Отправляем ответ на капчу 
Engine.BypassToServer('farm_delay '+IntToStr(num1), True); 
count:=count+1;
print ('Капча выскакивала -->'+IntToStr(count)+'<-- раз, но мы ее обошли =)');
end;
Delay (888);
end;
end.

joingog · 6 Окт 2015

Не работает.
А что ты тут изменил?)
И как выдрать хтмл?))

SARCAZM · 6 Окт 2015

Посмотреть 3 страницы скриптов религия не позволяет?

joingog · 6 Окт 2015

SARCAZM написал(а):
Посмотреть 3 страницы скриптов религия не позволяет?

Да как-то даже не задумывался про это...)

Код:

<html>
<body>
<font color="FF6600">!Активирован штраф на награду с мобов!</font>
<br>������� ���� ���,
<br>=== <font color=LEVEL>99915</font> ===
<br> ��� ������ ������:
<br><edit var="pwd" width=60 length="5"><br><br><button value="Ok" action="bypass -h 00 $pwd" width=40 height=15 back="sek.cbui94" fore="sek.cbui92">
</body>
</html>

SARCAZM · 7 Окт 2015

@joingog,

uses SysUtils;

var tmpDialog,tmpString:string;
var posCaptcha, num1, count:integer;
begin
while Engine.Status = lsOnline do begin
tmpDialog := Engine.DlgText;
if (Pos('Активирован штраф', tmpDialog) <> 0) then
begin
tmpString:='';
tmpDialog:=''; // Наверное на делфи это не нужно делать, но у меня привычка.
// Ищем капчу в диалоге
tmpDialog:=Engine.DlgText;
posCaptcha:=pos('<font color=LEVEL>',tmpDialog);
posCaptcha:=posCaptcha+19;

// Выдираем число из капчи
while not (tmpDialog[posCaptcha] = '<') do begin
tmpString:=tmpString + tmpDialog[posCaptcha];
posCaptcha:=posCaptcha + 1;
end;
num1:=StrToInt(tmpString);

// Отправляем ответ на капчу
print (IntToStr(num1));
Engine.BypassToServer('00 '+IntToStr(num1), True);
count:=count+1;
print ('Капча выскакивала -->'+IntToStr(count)+'<-- раз, но мы ее обошли =)');
end;
Delay (888);
end;
end.
Копай в сторону байпасса c отправкой ответа если не заработает. У автора байпасс содержал ключевое слово farm_delay, а у тебя просто 00
Заодно добавил вывод выдранного числа, для дебага. Сам сижу без адреналина уже пару месяцев, мог допустить глупую опечатку. Проверить не могу.

Cloudy · 7 Окт 2015

SARCAZM написал(а):
@joingog,

uses SysUtils;

var tmpDialog,tmpString:string;
var posCaptcha, num1, count:integer;
begin
while Engine.Status = lsOnline do begin
tmpDialog := Engine.DlgText;
if (Pos('Активирован штраф', tmpDialog) <> 0) then
begin
tmpString:='';
tmpDialog:=''; // Наверное на делфи это не нужно делать, но у меня привычка.
// Ищем капчу в диалоге
tmpDialog:=Engine.DlgText;
posCaptcha:=pos('<font color=LEVEL>',tmpDialog);
posCaptcha:=posCaptcha+19;

// Выдираем число из капчи
while not (tmpDialog[posCaptcha] = '<') do begin
tmpString:=tmpString + tmpDialog[posCaptcha];
posCaptcha:=posCaptcha + 1;
end;
num1:=StrToInt(tmpString);

// Отправляем ответ на капчу
print (IntToStr(num1));
Engine.BypassToServer('00 '+IntToStr(num1), True);
count:=count+1;
print ('Капча выскакивала -->'+IntToStr(count)+'<-- раз, но мы ее обошли =)');
end;
Delay (888);
end;
end.
Копай в сторону байпасса c отправкой ответа если не заработает. У автора байпасс содержал ключевое слово farm_delay, а у тебя просто 00
Заодно добавил вывод выдранного числа, для дебага. Сам сижу без адреналина уже пару месяцев, мог допустить глупую опечатку. Проверить не могу.

Все равно не работает, к сожалению

SARCAZM · 7 Окт 2015

@Cloudy, хотелось бы увидеть твой html код. Конечно, быстрее было бы прямо на сервере через тимвивер написать скрипт, нежели тыкать пальцем в небо. Я же не гуру делфи и скриптов на паскаль, могу допустить глупую ошибку и не видеть ее в упор

lzlzsahsa · 27 Янв 2016

кто сможет помочт проблема в том что скрипт не убирает капчю а нооборот взывает могу придоставить чтонада даже тм скайп помогите ктота

savant · 27 Янв 2016

После таких постов мне иногда хочется кого-нибудь побить... учебником русского языка

DanMor · 9 Апр 2016

АП тему, капчу так и не доработали.

SARCAZM · 9 Апр 2016

DanMor написал(а):
АП тему

Для апа есть кнопка.

DanMor написал(а):
капчу так и не доработали.

Капчу не доработали или скрипт на ее обход?
P.S. В обоих случаях никто за вас не обязан этого делать

DanMor · 10 Апр 2016

SARCAZM, при появлении капчи скрипт вписывает число,после чего штраф снят. Но капча после этого не закрывается и все повторяется до бесконечности. В этом вся суть проблемы.

pekos · 10 Апр 2016

Work only in Iterlude or in H5 too?

Цифровая капча

yohohox

SARCAZM

Это что за покемон?

SARCAZM

Это что за покемон?

yohohox

phoenix

joingog

joingog

SARCAZM

Это что за покемон?

joingog

SARCAZM

Это что за покемон?

joingog

SARCAZM

Это что за покемон?

Cloudy

SARCAZM

Это что за покемон?

lzlzsahsa

savant

DanMor

SARCAZM

Это что за покемон?

DanMor

pekos