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

MetalFan

Дата 16.1.2008, 14:08 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

создай чтоли отдельную тему или эту почитай

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

There are always someone smarter than you...

In4matik

Дата 17.1.2008, 06:31 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(WaReZMEN @ 16.1.2008, 09:50)

как узнать что постит страница? ну тоесть я ввел код скартинки и нажимаю на кнопку отправить ... как это с эмулировать?

тебе нужна прога IEWatch (это снифер встраиваемый в интернет эксплоер). Я ей пользовался.

WaReZMEN

Дата 17.1.2008, 09:06 (ссылка)

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

Загрузка ...

Опытный

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

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

In4matik, спасибо!

Результат снифа

Код


ctl00$MainContent$tbKod    1sqz
ctl00$MainContent$btVoting.y    15
ctl00$MainContent$btVoting.x    109
__VIEWSTATE    /wEPDwUJOTUwMzI1ODM4D2QWAmYPZBYCAgMPZBYGAgYPZBYEAgEPFgIeBFRleHQF5wI8YSBpZD0iaWRQUFNjYXJhYiIgaHJlZj0iaHR0cHM6Ly9sb2dpbi5saXZlLmNvbS9sb2dpbi5zcmY/d2E9d3NpZ25pbjEuMCZhbXA7cnBzbnY9MTAmYW1wO2N0PTEyMDA1NTAyNTImYW1wO3J2ZXI9NC41LjIxMjUuMCZhbXA7d3A9TUJJX1NTTCZhbXA7d3JlcGx5PWh0dHBzOiUyRiUyRm1zZmFpcnBsYXkucnUlMkZWb3RpbmcuYXNweCZhbXA7bGM9MTA0OSZhbXA7aWQ9MjU0MDY1Ij48aW1nIHNyYz0iaHR0cDovL3d3dy5wYXNzcG9ydGltYWdlcy5jb20vMTA0OS9zaWduaW4uZ2lmIiBjbGFzcz0iUGFzc3BvcnRTaWduSW4iIGFsdD0iV2luZG93cyBMaXZlIElEIiBzdHlsZT0iYm9yZGVyLXN0eWxlOm5vbmUiIGlkPSJpZFNJIi8 PC9hPmQCBQ8WAh4HVmlzaWJsZWgWCmYPFQEAZAIBDxUCAS0BLWQCAg8VAQBkAgMPFQEAZAIEDxUBPVJlZ2lzdGVyVXNlci5hc3B4P2RlamF2dT0wMDAwMDAwMC0wMDAwLTAwMDAtMDAwMC0wMDAwMDAwMDAwMDBkAgcPZBYQZg8PFgIfAAUEc2VyZ2RkAgEPFQJwUmVuZGVyVXNlckZvdG8uYXNweD9Vc2VySWQ9NjZhZTk1MWYtODQ1Mi00NGVjLWExYTItNTQ2ZTI2YWU2MDVkJkZvdG9UeXBlPTAmSXNUaHVtYm5haWw9dHJ1ZSZIZWlnaHQ9MjA1JldpZHRoPTE5OBx3aWR0aDogMTk4cHg7IGhlaWdodDogMTQ4cHg7ZAICDw8WAh8ABQIxNGRkAgMPDxYCHwAFAzMyN2RkAgcPDxYCHghJbWFnZVVybAU/SW1hZ2VHZW5lcmF0b3IuYXNweD9Vc2VySWQ9NjZhZTk1MWYtODQ1Mi00NGVjLWExYTItNTQ2ZTI2YWU2MDVkZGQCCQ8VAjNodHRwOi8vY2lkLTMxNzIzNjI3YTcxZjhiZTEuc3BhY2VzLmxpdmUuY29tL3Bob3Rvcy8zaHR0cDovL2NpZC0zMTcyMzYyN2E3MWY4YmUxLnNwYWNlcy5saXZlLmNvbS9waG90b3MvZAIKDxUKC3Zpc2liaWxpdHk6AjEycFJlbmRlclVzZXJGb3RvLmFzcHg/VXNlcklkPWU4ZDA2MzBjLWYyMTUtNDMwNi1hYmNlLTQxZGY4MmY4NzhmNyZGb3RvVHlwZT0wJklzVGh1bWJuYWlsPXRydWUmSGVpZ2h0PTEwMCZXaWR0aD0xMDALdmlzaWJpbGl0eToad2lkdGg6IDk5cHg7IGhlaWdodDogNzRweDsLdmlzaWJpbGl0eTpJVm90aW5nLmFzcHg/VXNlcklkPWU4ZDA2MzBjLWYyMTUtNDMwNi1hYmNlLTQxZGY4MmY4NzhmNyZzb3J0Qnk9JmJBc2M9VHJ1ZQt2aXNpYmlsaXR5OklWb3RpbmcuYXNweD9Vc2VySWQ9ZThkMDYzMGMtZjIxNS00MzA2LWFiY2UtNDFkZjgyZjg3OGY3JnNvcnRCeT0mYkFzYz1UcnVlC3Zpc2liaWxpdHk6ZAILDxUKC3Zpc2liaWxpdHk6AjExcFJlbmRlclVzZXJGb3RvLmFzcHg/VXNlcklkPTU3Yzg4YjNmLTM1NTctNGM3Yi1hNGI2LTU1YjNjZDdiY2Q3ZSZGb3RvVHlwZT0wJklzVGh1bWJuYWlsPXRydWUmSGVpZ2h0PTEwMCZXaWR0aD0xMDALdmlzaWJpbGl0eToad2lkdGg6IDk5cHg7IGhlaWdodDogNzRweDsLdmlzaWJpbGl0eTpJVm90aW5nLmFzcHg/VXNlcklkPTU3Yzg4YjNmLTM1NTctNGM3Yi1hNGI2LTU1YjNjZDdiY2Q3ZSZzb3J0Qnk9JmJBc2M9VHJ1ZQt2aXNpYmlsaXR5OklWb3RpbmcuYXNweD9Vc2VySWQ9NTdjODhiM2YtMzU1Ny00YzdiLWE0YjYtNTViM2NkN2JjZDdlJnNvcnRCeT0mYkFzYz1UcnVlC3Zpc2liaWxpdHk6ZAIID2QWAmYPFQI2Rmxhc2gvRmxhc2hHUy5zd2Y/ODY4MTQ2NjgtMzFkMC00NTdjLWJiMjYtYmM1ZDc5ODUyYmQ4NkZsYXNoL0ZsYXNoR1Muc3dmPzhmZmM0ODgwLTZkMzgtNDNkNi05NmNmLTkxYzJhOWFjOTI1MGQYAQUeX19Db250cm9sc1JlcXVpcmVQb3N0QmFja0tleV9fFgEFGmN0bDAwJE1haW5Db250ZW50JGJ0Vm90aW5nDs9HmF6k8rTxNqkiHviGy ylH1U=
__EVENTVALIDATION    /wEWCALty7HVCgLz54S7DQKy1sbvCwKW36MHAr/fl6MHAuKR9N8MAs/mrJ8FAtXei9MBNVutIBbW6CMd4b/XiYGTr8EhCkI=
__EVENTTARGET    
__EVENTARGUMENT

Это сообщение отредактировал(а) WaReZMEN - 17.1.2008, 09:25

In4matik

Дата 19.1.2008, 08:11 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(WaReZMEN @ 17.1.2008, 09:06)

In4matik, спасибо!

Результат снифа

Ух ты!

А что за страничка? дай адресок.

eViperEA

Дата 18.3.2008, 08:26 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 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 - 18.3.2008, 08:34

eViperEA

Дата 18.3.2008, 19:58 (ссылка)

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

Загрузка ...

Шустрый

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

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

помогите разобраться что означает ...
onclick="this.src='captcha/imagebuilder.php?newtime=' + (new Date()).getTime();
в коде картинки ... и как ее можно выдернуть в ту форму во время ее загрузки..

eViperEA

Дата 19.3.2008, 05:25 (ссылка)

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

Загрузка ...

Шустрый

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

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

попробовал вот такую программу

Код


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

она мне выдает ошибку smile

Access violation at address 00404DBB in module 'Project1.exe'. Read of address 00000001.
В чем проблема не подскажите? smile

Это сообщение отредактировал(а) eViperEA - 19.3.2008, 05:30

Qu1nt

Дата 19.3.2008, 18:52 (ссылка)

(голосов:2)

Загрузка ...

Опытный

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

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

Не забывай создавать обьекты. Удалять тоже.

eViperEA

Дата 20.3.2008, 19:21 (ссылка)

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

Загрузка ...

Шустрый

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

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

А можно пожалуйста по подробнее объяснить какие именно? может есть какой нибудь вариант сохранить на диск имеено эту картинку (вывести ее в форму) и отправить ее на сайт..?

Это сообщение отредактировал(а) eViperEA - 20.3.2008, 19:54

vovksextra

Дата 21.3.2008, 17:29 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(eViperEA @ 19.3.2008, 05:25)

попробовал вот такую программу

Код


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

она мне выдает ошибку smile

Access violation at address 00404DBB in module 'Project1.exe'. Read of address 00000001.
В чем проблема не подскажите? smile

Как минимум перед MS.Position := 0;

не мешело бы сделать что-то типа того MS:=TMemoryStream.Cre............ )))

и где далее MS.free

Это сообщение отредактировал(а) vovksextra - 21.3.2008, 17:29

eViperEA

Дата 21.3.2008, 19:59 (ссылка)

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

Загрузка ...

Шустрый

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

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

Попробовал добавить то что ты порекомендовал но все равно эта ошибка вылазиет

Код


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

Qu1nt

Дата 21.3.2008, 20:28 (ссылка)

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

Загрузка ...

Опытный

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

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

Блин, а TJPEGImage?!

Код


jpg := TJPEGImage.Create;

eViperEA

Дата 22.3.2008, 05:19 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(Qu1nt @ 21.3.2008, 20:28)

Блин, а TJPEGImage?!

Код


jpg := TJPEGImage.Create;

тоже не помогает уже пробовал... smile

vovksextra

Дата 22.3.2008, 18:21 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(eViperEA @ 22.3.2008, 05:19)

Цитата(Qu1nt @ 21.3.2008, 20:28)

Блин, а TJPEGImage?!

Код


jpg := TJPEGImage.Create;

тоже не помогает уже пробовал... smile

IdHTTP1.Get(C_Url,MS);
MS:=TMemoryStream.Create;

нужно так ))

MS:=TMemoryStream.Create;
IdHTTP1.Get(C_Url,MS);

eViperEA

Дата 22.3.2008, 19:00 (ссылка)

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

Загрузка ...

Шустрый

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

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

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

Код


procedure TForm1.Button1Click(Sender: TObject);
const
C_Url='http://server.ru/image.php?';
var
  MS: TMemoryStream;
  jpg: TJPEGImage;
begin
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;

а так я отправляю на сайт заполненые поля..(для регистрации)

Код


procedure TForm1.Button1Click(Sender: TObject);
var
S: TStringList;
begin
S:= TStringList.Create;
S.Add('login=eViper');
S.Add('password=xxx');
S.Add('code=');
memo1.Text:=IdHTTP1.Post('http://server.ru/index.php?t=login&', S);
memo1.lines.savetofile('c:\test.html');
end;

S.Add('code='); мне надо написать что то чтоб "форма" которую я направлю на сайт "зарегистрировала" меня.. Но я не могу понять 1 как загрузить сайт регистрации и чтоб картинка осталась таже ... и 2 как мне присвоить S.Add('code='); значение которое на картинке...

Это сообщение отредактировал(а) eViperEA - 25.3.2008, 12:28

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