ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
25.05.2010, 10:07
|
|
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
Провел на форуме:
568182
Репутация:
11
|
|
Делфи вопрос
Немогу авторизоваться на сайте ucoz
Код:
cod := idHttp1.Get('http://sacred2-zone.ru/');
rndResult:= copy (cod,pos('input type="hidden" name="rnd" value="',cod)+38,3);
params:=tstringlist.create;
params.Add('user=test');
params.Add('password=Test');
params.Add('rem=1');
params.Add('a=2');
params.Add('ajax=1');
params.Add('rnd=' + rndResult);
cod:=IdHTTP1.Post('http://sacred2-zone.ru/', params);
cod:=memo1.Text;
if pos ('Вы вошли как',cod)<>0 then showmessage ('ok');
params.Free;
может куки надо сохранять, если да то как?
Последний раз редактировалось aydar; 25.05.2010 в 10:48..
|
|
|
25.05.2010, 11:21
|
|
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264
Репутация:
69
|
|
надо, idHTTP1.AllowCookies := True;
|
|
|
|
25.05.2010, 18:09
|
|
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
Провел на форуме:
568182
Репутация:
11
|
|
Куки были вкл, все равно не получаеться
idHTTP1.AllowCookies := True;
cod := idHttp1.Get('http://sacred2-zone.ru/');
rndResult:= copy (cod,pos('input type="hidden" name="rnd" value="',cod)+38,3);
params:=tstringlist.create;
params.Add('user=test');
params.Add('password=Test');
params.Add('rem=1');
params.Add('a=2');
params.Add('ajax=1');
params.Add('rnd=' + rndResult);
cod:=IdHTTP1.Post('http://sacred2-zone.ru/', params);
if pos ('Вы вошли как test',cod)<>0 then showmessage ('ok');
memo1.Text:=cod;
params.Free;
|
|
|
|
25.05.2010, 18:28
|
|
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
Провел на форуме:
568182
Репутация:
11
|
|
все проблема решена, всем спасибо
|
|
|
|
25.05.2010, 19:18
|
|
Новичок
Регистрация: 08.11.2009
Сообщений: 21
Провел на форуме:
518630
Репутация:
7
|
|
ТС выложи пожалуйста решение своей проблемы
|
|
|
|
25.05.2010, 19:35
|
|
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
Провел на форуме:
568182
Репутация:
11
|
|
idHTTP1.AllowCookies := True;
cod := idHttp1.Get('http://sacred2-zone.ru/');
rndResult:= copy (cod,pos('input type="hidden" name="rnd" value="',cod)+38,3);
params:=tstringlist.create;
params.Add('user=логин');
params.Add('password=пароль');
params.Add('rem=1');
params.Add('a=2');
params.Add('ajax=1');
params.Add('rnd=' + rndResult);
cod:=IdHTTP1.Post('http://sacred2-zone.ru/index/sub/', params);
memo1.Text:=cod;
params.Free;
Не откажусь от +
Последний раз редактировалось aydar; 25.05.2010 в 19:38..
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
