Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.129.249.105] |
|
Сообщ.
#1
,
|
|
|
Есть сайт chcgreen.net
login aaaaa111 pass 123123123 Это то в чём разобрался... При авторизации сначала сайт через GET даёт уникальный индентификатор, который используется в последующих запросов. Сама авторизация идет через POST. Затем индентификатор меняется, и некоторые запросы через GET некоторые через POST Подскажите, как ПРАВИЛЬНО авторизироватся, чтобы в дальнейшем отправлять запросы, и получать ответы. function parse_otvet(otvet, nach, kon:string):string; var i, k:integer; begin i:=0; k:=0; i:=Pos(nach,otvet); otvet:=Copy (otvet,i+Length(nach),Length(otvet)-Length(nach)); i:=Pos(kon,otvet); if i=0 then begin i:=Length(otvet); K:=0; end else k:=Length(kon); otvet:=Copy (otvet,1,i-1); result:=otvet; end; procedure TForm1.Button1Click(Sender: TObject); var otv:string; kod:string; zap:tstringlist; zap1:string; adr:string; log, pass:string; begin log:='aaaaa111'; pass:='123123123'; adr:='http://chcgreen.net'; otv:=ht.Get(adr); kod:=parse_otvet(otv, '<input type="hidden" name="_csrf" value="', '" />'); memo1.Lines.Clear; memo1.Text:=otv; showmessage(kod); //zap1:='username='+log +'&'+'password='+pass+'&'+ '_csrf='+kod; zap:=tstringlist.Create;; zap.Add('username = '+log); zap.Add('password = '+pass); zap.Add('_csrf = '+kod); //zap.add('_remember_me=on'); adr:='http://chcgreen.net/security_check/'; //ht.Request.ContentType:='application/x-www-form-urlencoded'; otv:=ht.post(adr, zap); zap.Free; memo1.Lines.Clear; memo1.Text:=otv; end; Этот код, почему то не работает... ht это IDHTTP |