Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 23.03.2009, 19:34
skart skart вне форума
Прохожий
 
Регистрация: 23.03.2009
Сообщения: 2
Репутация: 10
Сообщение Проблема с куки

Проблема с куками при заходе на сайт.
Кто знает,пожалуста напишите строку,где я поставил комментарий.
Код:
procedure TForm1.Button1Click(Sender: TObject);
const
  fact:shortString = 'http://torrents.ru/forum/login.php';
var
  fGet,fPost:TStringList;
begin
  fGet:=TStringList.Create;
  fPost:=TStringList.Create;
  IdHTTP1.AllowCookies:=true;
  IdHTTP1.CookieManager:=IdCookieManager1;
  IdHTTP1.HandleRedirects:=true;
  With fPost do
  begin //with
    Add('redirect=index.php');
    Add('cookie_test='); //тут не знаю что прописывать
    Add('login_username=MyUser');
    Add('login_password=MyPass');
    Add('autologin=on');
    Add('login=Вход');
  end; //with
  fGet.Text:=IdHTTP1.Post(fact,fPost);
  If fGet.IndexOf('Вы зашли как:') <> - 1 then
    MessageBOX(Application.Handle,'Залогинились!','Удачно!',mb_OK)
  else
    MessageBOX(Application,Handle,'Ошибка!','Неудачно!',mb_OK);
  IdHTTP1.Free;
  IdCookieManager1.Free;
  fGet.Free;
  fPost.Free;
end;
Данные,которые отправляет браузер на сайт(смотрел сниффером) :
Код:
redirect=index.php   
cookie_test=xxxxxxxxxx
login_username=MyUser
login_password=MyPass     
autologin=on          
login=Вход   
Ответить с цитированием
  #2  
Старый 29.03.2009, 20:44
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

похоже, этот куки_тест там вообще не нужен... или он както генерируется...
А ты случаем не хакеришь мой любимый торрент? ибо стоит вписать в цикл список паролей/генератор, вставить логин, и функция может отлично отлавливать пароли...
Да и сниффер-то пользовать не рекоммендую... нехорошее это дело...
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:03.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter