Авторизация на сайте с помощью 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
он не пускает простой пост и гет запросы

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@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