Авторизация на сайте с помощью IDHTTP

@scroyler · Регистрация: 01.08.2011

Студворк — интернет-сервис помощи студентам

PHP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var st: string;  LoginData:Tstringlist;
begin
  LoginData := TStringList.Create;
LoginData.Add('log=mylog');
LoginData.Add('pas=mypass');
idhttp1.post('http://********.net/',LoginData) ;
 
 
if Pos('logout','http://********.net/')>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
 
LoginData.Free;
 
 
end;

Я делаю авторизацию на сайте letetbit.
подскажите плз. в чем ошибка в коде.

@SL1TE · 14.11.2011, 17:15

Delphi
1
2
LoginData.Add('log=mylog');
LoginData.Add('pas=mypass');

имя полей там не log и pas а login и password

@scroyler · 14.11.2011, 17:29 **[ТС]**

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

Delphi
1
2
LoginData.Add('log=mylog');
LoginData.Add('pas=mypass');

имя полей там не log и pas а login и password

Название полей там log и pas а не login password. ошибка точно не в этом

@anonimus · 14.11.2011, 17:47

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

имя полей там не log и pas а login и password

с чего ты взял

Добавлено через 37 секунд
scroyler, ошибки не какой, просто авторизация не происходит?
Уж подозрительно мало параметров передается, скорей всего там не обходится только pas и log

@scroyler · 14.11.2011, 17:56 **[ТС]**

Просто авторизация не проходит,
anonimus, можеш подсказать какие еще парметры нужны?

@anonimus · 14.11.2011, 17:58

откуда ж мне знать )) ставь снифер и смотри.
Это мне нужно на letetbit регится, а не охота )) или в ЛС давай логин с паролем, посмотрю.

@scroyler · 14.11.2011, 18:03 **[ТС]**

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

откуда ж мне знать )) ставь снифер и смотри.
Это мне нужно на ******** регится, а не охота )) или в ЛС давай логин с паролем, посмотрю.

Сниффер мне не товарищ)
Ща логин и пароль скину в лс

@anonimus · 14.11.2011, 18:34

хах, а SL1TE был прав, параметры такие перелдаются
act=login
login=........
password=........

@scroyler · 14.11.2011, 18:47 **[ТС]**

Delphi
1
2
3
  LoginData.Add('act=login');
LoginData.Add('login=');
LoginData.Add('password=');

Delphi
1
2
LoginData.Add('login=');
LoginData.Add('password=');

и так и так пробовал, все равно безуспешно

@digim0n · 14.11.2011, 20:45

scroyler, а ты так проверяеш?

Delphi
1
if Pos('logout','http://********.net/')>0 then

а теперь переводим...
*если текст logout содержится в строке тогда сообщить что авторизация прошла успешно, иначе что случилась неудача*
зы. ничего не заметил странного?

@scroyler · 14.11.2011, 20:52 **[ТС]**

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

scroyler, а ты так проверяеш?

Delphi
1
if Pos('logout','http://********.net/')>0 then

а теперь переводим...
*если текст logout содержится в строке тогда сообщить что авторизация прошла успешно, иначе что случилась неудача*
зы. ничего не заметил странного?

А на примере сможешь показать,как правильно?

@digim0n · 14.11.2011, 21:08

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  
var
   LoginData:TStringlist;
   STRone: TStringlist;
begin
  LoginData := TStringList.Create;
  STRone := TStringList.Create;
        LoginData.Add('act=login');
        LoginData.Add('login=');
        LoginData.Add('password=');
STRone.text := idhttp1.post('http://********.net/',LoginData) ;
 
  if pos('logout',STRone.Text)<>0 then ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
 
LoginData.Free;
STRone.Free;
end;

у меня реги на сайте нету, так что проверить не могу есть ли там logout или по др тегу определять

@scroyler · 19.11.2011, 21:07 **[ТС]**

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  
var
   LoginData:TStringlist;
   STRone: TStringlist;
begin
  LoginData := TStringList.Create;
  STRone := TStringList.Create;
        LoginData.Add('act=login');
        LoginData.Add('login=');
        LoginData.Add('password=');
STRone.text := idhttp1.post('http://********.net/',LoginData) ;
 
  if pos('logout',STRone.Text)<>0 then ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
 
LoginData.Free;
STRone.Free;
end;

у меня реги на сайте нету, так что проверить не могу есть ли там logout или по др тегу определять

спс. но не пашет...
можете проверенный код дать?

@anonimus · 19.11.2011, 21:26

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

@digim0n · 20.11.2011, 00:51

все дело вот в этом жаба скрипте http://lib.wm-panel.com/admin/clicker/js/click.js
он не пускает простой пост и гет запросы

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@scroyler 14 / 14 / 1 Регистрация: 01.08.2011 Сообщений: 332
	14.11.2011, 17:56 [ТС]
	Просто авторизация не проходит, anonimus, можеш подсказать какие еще парметры нужны? 0

@anonimus 2184 / 1255 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	14.11.2011, 17:58
	откуда ж мне знать )) ставь снифер и смотри. Это мне нужно на letetbit регится, а не охота )) или в ЛС давай логин с паролем, посмотрю. 1

@anonimus 2184 / 1255 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	14.11.2011, 18:34
	хах, а SL1TE был прав, параметры такие перелдаются act=login login=........ password=........ 1

@anonimus 2184 / 1255 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	19.11.2011, 21:26
	там куки нужно выдрать и сохранить, я попробовал не получилось, бросил 1

@digim0n 84 / 84 / 16 Регистрация: 11.11.2011 Сообщений: 259
	20.11.2011, 00:51
	все дело вот в этом жаба скрипте http://lib.wm-panel.com/admin/clicker/js/click.js он не пускает простой пост и гет запросы 1