Форум работает в тестовом режиме. Все данные были перенесены со старого сайта 2018 года. Некоторая информация может быть недоступна, например вложения или хайды. Просьба сообщать о данных случаях через функционал "Жалоба", прямо под постом, где отсуствуют данные из хайда или проблемы с вложением.
Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.

Анти-капча под бабаяву

PandaTrader

PandaTrader

Рег
7 Дек 2015
Сообщения
125
Реакции
0
Привет всем,есть ли у кого анти-капча под бабаяву?В окне нужно ввести 4 рандомные цифры клавиатурой.
 
4 случайные цифры и все?
Можешь текст диалогового окна выложить?
 
@savant, сейчас попробую.Там капча вылетает через n кол-во времени,после того,как кто-то пропишет .bot
 
Вот сама капча

image.png
 
@savant, Хорошо,спасибо.Надеюсь на вашу помощь)там похоже от 1000 до 9999 цифры.
 
PandaTrader написал(а):
savant, Хорошо,спасибо.Надеюсь на вашу помощь)там похоже от 1000 до 9999 цифры.
Нажмите для раскрытия...
сохрани плз это диалоговое окно и выложи сюда

uses classes;
begin
with Tstringlist.create do
try
Text := Engine.DlgText;
SaveToFile('C:\dlg.txt');
finally
Free;
end;
end.
да, капча халява, разобрать хтмльку и отправлять ответ :D
 
@savant,

Код: 
<html><title>НЕ ЗАКРЫВАЙТЕ ЭТО ОКНО!</title><body>
<font color="LEVEL"><center>Приветствую, Ad123fw!</center></font><br>
Это страница для защиты от ботов. Вы должны ввести простой код каптчи, для продолжения игры<br1>
	Если вы не введете каптчу в течении одной минуты, <font color="LEVEL">вы будете отправлены в тюрьму</font><br>
	Введите указанные ниже символы, чтобы подтвердить, что вы не робот.<br>
	<center>
		<font color="LEVEL">9273</font> ///одно из рандом чисел.Числа всегда 4-х значные.
		<br>
		<edit var="captcha" width=60 height=20 length="4">
		<button value="Ввод" action="bypass -h user_complaint_captcha $captcha" width=60 height=25 back="L2UI_ct1.button_df" fore="L2UI_ct1.button_df">
	</center>
</body></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+20;

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


// Отправляем ответ на капчу
print (IntToStr(num1));
Engine.BypassToServer('user_complaint_captcha '+IntToStr(num1), True);
count:=count+1;
print ('Капча выскакивала -->'+IntToStr(count)+'<-- раз, но мы ее обошли =)');
end;
Delay (888);
end;
end.
З.Ы. Набросок стырил у Сарказма :pandaredlol:
 
@savant, сейчас попробую.Если всё будет удачно,то это будет великолепно)Будь бабой,ябтедал)И да,можно ли анти-капчу объеденить с скриптом на возвращения на спот?
 
@PandaTrader, :lool: . Как жалко, что ты не длинноногая блондинка )))

uses SysUtils;

Procedure AntiCaptcha;
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+20;

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


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

begin
script.newthread(@AntiCaptcha); //здесь подключаем нашу антикапчу

//далее пишем обычный скрипт на кач

end.

Так попробуй. Комментарии написал, спрашивай если где непонятно.
 
@savant, Хм...Я вставил скрипт на кач,но выводит такую ошибку:
-88693455.jpg

Если убираю вар,а классы вывожу в верхние строки,то уже проблема в конце с "end."
 
var после begin'a. Оригинально.
 
@PandaTrader, перенеси свой кусок кода от "var" до "Enemy:TL2Life" (5 строчек) и поставь их после "uses SysUtils";
 
как по мне, очень изи капча, вырезал нужный кусок из текста, вставил в отправку байпаса :hz:
 
@Agonia, ну,савант помог с антикапчей,но вот похоже капча всё равно вылетает,так как вчера на чара бан прилетел всё же.

@Agonia, может поможешь ты?Пожалуйста.Хотелось бы увидеть пример твоей антикапчи.
 
@PandaTrader, вместо строки

Engine.BypassToServer('user_complaint_captcha '+IntToStr(num1), True);

подставь

Print('user_complaint_captcha '+IntToStr(num1));

Напиши сюда что тебе адрик скажет
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху