[Delphi]/[Pascal] Задай вопрос, получи ответ

#11

01.09.2009, 17:03

wolmer

Постоянный

Регистрация: 12.05.2009

Сообщений: 395

Провел на форуме:
4761503

Репутация: 229

Цитата:

Сообщение от Flenov

Доброго времени суток!

Я на Delphi пишу одну програмку.
Она проходит авторизацию, получает какие-то куки.
Ну например вот фрагмент ответа сервера:

PHP код:


		
			
 Set-Cookie: par1=val1; expires=Sun, 22-Aug-2010 22:38:14 GMT; path=/; domain=.domain.ru

 Set-Cookie: par2=val2; expires=Sat, 04-Sep-2010 08:38:06 GMT; path=/; domain=.domain.ru

 Set-Cookie: par3=val3; expires=Sat, 04-Sep-2010 08:50:26 GMT; path=/; domain=.domain.ru

После чего я хочу использовать эти куки, но видимо что-то не так делаю.
Ниже текст HTTP запроса.
Куда правильно присоединить эти куки?
Если запрос не правильный, подправьте пожалуйста.
Заранее спасибо!

Код:

'GET '+WebAddr+' HTTP/1.0'+#13#10+
'Accept: text/html, */*'+#13#10+
'Host: '+Server+#13#10+
'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.1.4322; .NET CLR 2.0.50727)'+#13#10+
'Content-Type: text/html'+#13#10#13#10;

В мемо1:
maska=aallalaalala;session=ashhasha;lala=2481;

(кукисы, можно и запрос туда пихнуть, разницы не имеет для ниже приведенного кода)

Код принятия кукисов:

Код:

function Tform1.CopyCookie(s,sBuff:string):string;
var
text:string;
i:integer;
 Begin
  text:='';
  showmessage(inttostr(pos(s+'=',sBuff)));
  showmessage(inttostr(Length(sBuff)));
//Посл символ у нас под номером 45
  For i:=pos(s+'=',sBuff) to Length(sBuff) Do
//в i записываем откуда начинается фраза "what="
//(В мемо1 у меня начинается фраза с 20 символа)
//(в дальнейшем будет сокр МПК - МестоПоложениеКуки)
//Дальше идем от МПК до символа ";" (когда сод. куки обрывается)
//Но мы не знаем где будет находится символ ";"
//Поэтому будем проходится от МПК до посл. символа sbuff (в намем случае до посл. символа memo1)
    Begin
      If sBuff[i]<>';' then text:=text+sBuff[i] else Break;
     //Тут мы сверяем текущий символ с символом ";"(окончание куки)
     //Если этого ";" символа нету то добавляем символ
     //В итоге как символ ";" встретился то у нас в переменной text будет кука (кука+значение куки)
     //и мы закончим проходится цикл так как уже кука у нас есть и нам не зачем дальше проходиться
    End;
  Result:=text;
 End;

В Button1.OnClick пишем:

Код:

ShowMessage('Наша кука+значение куки: '+CopyCookie('What',Memo1.Lines.Text));

Коменты можно убрать (расписал для новичков)

План примерно таков:
-Отправляем пакет (без кукисов)
--Принимаем ответный пакет (ответный ответ придет с кукисами если отправляли на авторизацию пакет)

-Отправляем пакет с кукисами, к примеру:

Код:

  sendbuff :='GET vkontakte.ru/id1 ' HTTP/1.1'+ #13#10 +
                    'Host: vkontakte.ru'+ #13#10 +
                    'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.14) Gecko/20080404 AdCentriaIM/1.7 Firefox/2.0.0.14 WebMoney Advisor'+ #13#10 +
                    'Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5'+ #13#10 +
                    'Accept-Language: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3'+ #13#10 +
                    'Accept-Encoding: gzip,deflate'+ #13#10 +
                    'Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7'+ #13#10 +
                    'Keep-Alive: 300'+ #13#10 +
                    'Connection: keep-alive'+ #13#10 +
                    'Referer: http://vkontakte.ru/index.php'+ #13#10 +
                    'Cookie: '+CopyCookie('remixchk',sBuff)+';'+' '+CopyCookie('remixmid',sBuff)+';'+' '+CopyCookie('remixemail',sBuff)+';'+' '+CopyCookie('remixpass',sBuff)+ #13#10+ #13#10;

--Принимаем ответный пакет

Последний раз редактировалось wolmer; 01.09.2009 в 17:09..

ANTICHAT — форум по информационной безопасности, OSINT и технологиям