VPF::Получение картинки кода защиты

eViperEA

Дата 25.3.2008, 12:39 (ссылка)

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

Загрузка ...

Шустрый

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

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

вот то что надо заполнять... в форме

Код


<tr><td class="midtext">Username:</td><td>
<input type="text" name="COOKIEusername" size="25" class="form" autocomplete="off"></td></tr>
                    <tr><td class="midtext">Password:</td><td>
<input type="password" name="COOKIEpass" size="25" class="form" autocomplete="off"></td></tr>
                    <tr><td class="midtext" valign="top">Security Code:</td><td class="midtext">
<img src="captcha/imagebuilder.php" onclick="this.src='captcha/imagebuilder.php?newtime=' + (new Date()).getTime();">
(Click to reload)<br />
<input type="text" name="verify" size="17" maxlength="17" autocomplete="off" class="form"></td></tr>
                    <tr><td></td><td align="right">
<input type="submit" value="Login" name="loginsubmit" class="form"></td></tr>
                    </table></td>
                    </td>

eViperEA

Дата 27.3.2008, 15:59 (ссылка)

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

Загрузка ...

Шустрый

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

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

С картинкой я разобрался как мне теперь ввести ее код в Edit1
S.Add('code=');?

vovksextra

Дата 28.3.2008, 01:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(eViperEA @ 27.3.2008, 15:59)

С картинкой я разобрался как мне теперь ввести ее код в Edit1
S.Add('code=');?

Если было-бы все так просто - картинки бы не ставили.

А теперь по делу - все элементарно просто.

Отправляешь свою картинку в СОРО (система оптического распознавания образов) , и получаешь код ))

eViperEA

Дата 28.3.2008, 07:28 (ссылка)

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

Загрузка ...

Шустрый

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

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

я и не собираюсь легко с ней справляться мне просто надо ввести в ручную то что на картинке и отправить заполненную форму на серв.. тоесть сам распознаю картинку... Вопрос в другом как мне из Edit1 в строчку S.Add('code='); перенести значение?

vovksextra

Дата 28.3.2008, 10:14 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(eViperEA @ 28.3.2008, 07:28)

Так ?

Код


S.Add('code='+Edit1.Text);

eViperEA

Дата 28.3.2008, 10:46 (ссылка)

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

Загрузка ...

Шустрый

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

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

ой сори я вместо edit1.text писал edit1!!! Cпасибо со всем разобрался...!!! smile

eViperEA

Дата 1.4.2008, 07:53 (ссылка)

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

Загрузка ...

Шустрый

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

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

На нескольких сайтах он при обработке изображения мне выдает ошибку JPEG error #53
Что ему не нравится?

Код


procedure TForm1.FormCreate(Sender: TObject);
const
C_Url='http://server.ru/image.php?';
var
  MS: TMemoryStream;
  jpg: TJPEGImage;
begin
x:=0;
MS:=TMemoryStream.Create;
jpg:= TJPEGImage.Create;
IdHTTP1.Get(C_Url,MS);
MS.Position := 0;
jpg.LoadFromStream(MS);
Image1.Picture.Bitmap.Assign(jpg);
MS.free;
jpg.Free;
end;

Qu1nt

Дата 1.4.2008, 12:04 (ссылка)

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

Загрузка ...

Опытный

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

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

Дык, значит картинка другого формата smile

Diamond1309

Дата 4.5.2008, 17:08 (ссылка)

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

Загрузка ...

Новичок

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

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

2eViperEA:

узнаю код странички)))) я тоже пытаюсь сделать такую же прогу, что и ты. С картинками у мня все норм. Вот только никак не могу авторизоваться. post-запрос как-то вроде не правильно работает

Делаю так (Indy10, Delphi7):

Код


var s:TStringList;
    f:textfile;
begin
      s:=TStringList.Create;
      s.Add('COOKIEusername='+Edit1.Text);
      s.Add('&COOKIEpass='+Edit2.Text);
      s.Add('&verify='+Edit3.Text);
      assignfile(f,'C:\1.html');
      rewrite(f);
      memo1.Text:=idhttp.Post('http://server.com/login.php?', s);
      write(f,memo1.text);
      closefile(f);
end;

в итоге получаю ту же страничку авторизации хотя HandleRedirect=true, CookieManager подключен.
В чем моя ошибка? как можно прослушать что отправляет браузер?

Qu1nt

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

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

Загрузка ...

Опытный

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

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

Посмотри, что отправляет браузер и, что отправляешь ты... (с)

darkmamba

Дата 1.6.2009, 12:12 (ссылка)

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

Загрузка ...

Шустрый

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

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

Подскажите как быть в таком случае, когда ссылка на картинку неявная, а вместо нее хэш.
Код такой:

Код


  M : TMemoryStream;
begin
  M := TMemoryStream.Create;
  http.Get('http://XXXXXXXX.ru/image.php?type=regcheck&imagehash=a3b2b3b1d75b524e49280b7efb1e3dab', M);
  M.Position := 0;
  M.SaveToFile('G:\1.jpg');
  M.Free;

Картинка сохраняется в 1 пиксель. Хотя браузер все нормально видит. Если вместа хеша будет ссылка типа http://XXXXXXXX.ru/image.php?type=regcheck&image.jpg (или другой рисунок) то сохраняется все нормально... варианты кончились smile

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