VPF::ICQ Server. - Форум программистов

iddqd

Дата 18.1.2006, 22:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 16.11.2005

Репутация: нет
Всего: 2

Раньше всё было очень просто, надо было отправить пару пакетов и новый номер есть, но теперь при регистрации необходимо вводить число с картинки.
Может кто-нибудь знает как это обойти и снова регистрировать?

--------------------

FRAGNATIC

Дата 18.1.2006, 22:41 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: нет
Всего: 11

iddqd
палюбому ни как обойти это низя
два варианта получаешь картинку и выводишь юзерю пускай вводит
или же получаешь это картинку и распознаёшь что на ней написано и опятьже это вводишь) но уже без участия юзера)
а всё потому что нектрые эти номера тысячами регают для флуда и спама=)

iddqd

Дата 19.1.2006, 15:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 16.11.2005

Репутация: нет
Всего: 2

Получить картинки из ХТМЛ, я думаю будет крайне не просто, по крайней мере AOL сделал всё для этого.
ПРосто надо отправить какой-то набор пакетов, который вернёт то ли картинку, то ли ссылку на картинку.
Это реализовано в 10-11 протоколе. Но вот где взять инфу... :\

--------------------

_hunter

Дата 19.1.2006, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98

выдрать картинку из HTML -- не проблема, проблема ее распознать.

--------------------

Tempora mutantur, et nos mutamur in illis...

Дата 19.1.2006, 16:13 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 10
Всего: 115

Цитата(_hunter @ 19.1.2006, 15:20

)

проблема, проблема ее распознать

Где-то в новостях читал что в скором времени будет доступен SDK Файнридера.
(тк, это было давно может уже и доступен smile

)

Тьма

Дата 19.1.2006, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 339
Регистрация: 22.1.2005
Где: Украина, Винница

Репутация: нет
Всего: 4

http://www.abbyy.ru/sdk/?param=37391

--------------------

Vir magni ingenii

Дата 19.1.2006, 16:47 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 10
Всего: 115

iddqd

Дата 19.1.2006, 17:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 16.11.2005

Репутация: нет
Всего: 2

_hunter, да и мне не надо её распозновать smile

Мне бы просто выдрать.
http://www.icq.com/register

Но потом ведь надо ещё передать все введённый данные.

--------------------

FRAGNATIC

Дата 19.1.2006, 17:50 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: нет
Всего: 11

да даже тут в разделе графики был пример как распозновать рисунки спомощью нейроных ситей)
от Александры =)

_hunter

Дата 19.1.2006, 18:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98

выдрать что?
данные ( с помощью того же WebBrowser' а ) передать -- раз плюнуть. а вот чтобы картинку _передать_ ее распознать нужно

--------------------

Tempora mutantur, et nos mutamur in illis...

N1k

Дата 19.1.2006, 19:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 4.1.2006

Репутация: 2
Всего: 2

Код


procedure TUINRegThread.Execute;
var
  Gnm:string;
  ImgURL:string;
begin
FreeOnTerminate:=true;
while not Terminated do
  begin
    FMsg:='';
    Synchronize(DoSetProxy);
    if Terminated then break;
    FIEHTTP.URL:='https://www.icq.com/register/';
    try
      DoStatus('Открываем страницу регистрации.');
      FIEHTTP.Execute;
    except
      DoStatus('Ошибка при открытии страницы регистрации!');
      Continue;
    end;
    if pos('Register an ICQ number',FIEHTTP.result_sl.Text) > 0 then
      begin
        DoStatus('Открыта страница регистрации.',FIEHTTP.result_sl.Text);
        Gnm:=GetValueFromName(FIEHTTP.result_sl.Text,'gnm');
        ImgURL:='https://www.icq.com'+StrC(FIEHTTP.result_sl.Text,'"','/img/aa_img.php','"');
        try
          DoStatus('Загрузка картинки.');
          FIEHTTP.ExecuteURL(ImgURL);
        except
          DoStatus('Ошибка загрузки картинки!');
          Continue
        end;
        ShowImage;
        if FImgChars = '' then Continue;
        FPassword:=GetPassword;
        FA1:=GetAnswer(1);
        FA2:=GetAnswer(2);
        FIEHTTP.URL:='https://www.icq.com/register/index.php';
        FIEHTTP.getStr:='css=whitepages'+
                     '&lg_id='+
                     '&qtype=user&qtype2=user'+
                     '&nickname='+US.NickName+
                     '&fname='+US.FirstName+'&lname='+US.LastName+
                     '&email='+US.Email+'&gender=0&age=13'+
                     '&password='+FPassword+'&password_confirm='+FPassword+
                     '&qa1=custom&userq1='+US.Q1+
                     '&answer1='+FA1+
                     '&qa2=custom&userq2='+US.Q2+
                     '&answer2='+FA2+
                     '&gnm='+Gnm+
                     '&word='+FImgChars;
        FIEHTTP.RequestMethod:='GET';
        try
          DoStatus('Отправка регистрационной формы.');
          FIEHTTP.Execute;
        except
          DoStatus('Ошибка при отправке регистрационной формы!',FIEHTTP.result_sl.Text);
          Continue
        end;
      end
    else
      begin
        DoStatus('Это не страница регистрации!',FIEHTTP.result_sl.Text);
        Continue;
      end;
    if pos('Register an ICQ number',FIEHTTP.result_sl.Text) > 0 then
      DoStatus('Ошибка в заполнении формы!',FIEHTTP.result_sl.Text);
    if pos('An error has occured, please go back and try again',FIEHTTP.result_sl.Text) > 0 then
      begin
        DoStatus('Регистрация заблокирована!',FIEHTTP.result_sl.Text);
        Continue;
      end;
    if pos('Your new ICQ Number is',FIEHTTP.result_sl.Text) > 0 then
      begin
        DoStatus('Регистрация успешная.',FIEHTTP.result_sl.Text);
        ParseUIN(FIEHTTP.result_sl.Text);
        Continue;
      end;
  end;
end;

Цитата

ПРосто надо отправить какой-то набор пакетов, который вернёт то ли картинку, то ли ссылку на картинку.
Это реализовано в 10-11 протоколе. Но вот где взять инфу... :\

Не набор, а один пакет в ответ на который вернут не ссылку а саму картинку.
Это было реализовано не в 10-11 протоколах, а гараздо раньше...
И на www.icq.com/register и на login.icq.com блок по IP? так что без проксей не обойтись.
На login.icq.com блок снимается довольно быстро, а на www.icq.com/register лучше не злоупотреблять, а то навечно в бан попасть можно.

Это сообщение отредактировал(а) N1k - 19.1.2006, 19:28

Wowa

Дата 19.1.2006, 19:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград

Репутация: нет
Всего: 290

Эта тема закрыта. Т.к. взлом нельзя обсуждать на форуме.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »