Проблемы с авторизацией

[nn377]

вот форма

<form action="http://site.ru/dir/index.php" method="post" name="login" >
	
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr>
		<td>
			<label for="mod_login_username">
				Пользователь			</label>
			<br />
			<input name="username" id="mod_login_username" type="text" class="inputbox" alt="username" size="10" />
			<br />
			<label for="mod_login_password">
				Пароль			</label>
			<br />
			<input type="password" id="mod_login_password" name="passwd" class="inputbox" size="10" alt="password" />
			<br />
			<input type="checkbox" name="remember" id="mod_login_remember" class="inputbox" value="yes" alt="Remember Me" />
			<label for="mod_login_remember">
				Запомнить			</label>
			<br />
			<input type="submit" name="Submit" class="button" value="Войти" />
		</td>
	</tr>
	<tr>
		<td>
		<a href="http://site.ru/dir/index.php?option=com_registration&amp;task=lostPassword">
			Забыли пароль?</a>
		</td>
	</tr>
			<tr>
			<td>
				Ещё не зарегистрированы?	
			<a href="http://site.ru/dir/index.php?option=com_registration&amp;task=register">
					Регистрация</a>
			</td>
		</tr>
			</table>
	
	<input type="hidden" name="option" value="login" />
	<input type="hidden" name="op2" value="login" />
	<input type="hidden" name="lang" value="russian" />
	<input type="hidden" name="return" value="http://site.ru/dir/index.php" />
	<input type="hidden" name="message" value="0" />
	<input type="hidden" name="force_session" value="1" />
	<input type="hidden" name="jde2fe0f1d6ef14b827385da2a25b2652" value="1" />
	</form>

а вот
процедура авторизации (по аналогии с mailauth):

procedure TForm1.btn1Click(Sender: TObject);
var params,responseres: tstringlist;

begin
 params:=TStringList.Create;
responseres:=TStringList.Create;
params.Add('username=mylogin');
params.Add('passwd=my password');
params.Add('remember=yes');
params.Add('option=login');
params.Add('op2=login');
params.Add('lang=russian');
params.Add('return=http://site.ru/dir/index.php');
params.Add('message=o');
params.Add('force_session=1');
params.Add('jde2fe0f1d6ef14b827385da2a25b2652=1');

responseres.Text:=http1.Post('http://site.ru/dir/index.php',params);
if Pos('logout',responseres.Text)>0 then
  ShowMessage('Авторизовались!')
 else   ShowMessage('Не получилось :( !');
 //end;
end;

Авторизовался вручную, проверил, logout присутствует
(не силён в РНР)
Не авторизуется, видимо что-то не так с параметрами?

[Somebody]

Из того, что пока видно - в параметрах Submit=Войти нет, ещё message в html цифра 0, в проге - буква o.

[AquaKlaster]

Что то мне подсказывает что вот это значение "jde2fe0f1d6ef14b827385da2a25b2652= 1" динамическое, и если это так то его нужно парсить!
Параметры еще раз проверь, снифером любым!

[nn377]

Несколько раз пробовал авторизоваться с разных ip значение тоже самое,
а о на 0 исправлю, спасибо, может в этом дело

[DeDoK]

Для контакта авторизация?

[vdlz]

Подскажите плиз как сделать авторизацию на сайте, с регистрацией разобрался. При регистрации данные добавляются в бд, всё нормально, а как сделать авторизацию? Форма есть, только обработчик нужен... Помогите, оч нада!

[KREGI]

vdlz, вот смотри

procedure TForm1.Button1Click(Sender: TObject);
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
try

//то что отправляем для авторизации
params.Add('username='+Edit2.Text);
params.Add('password='+Edit3.Text);
responseres.Text:=IdHTTP1.Post('Куда отправляем (адрес)',params);

//Проверка авторизовались ли
if pos ('Строка (любая которую можно увидеть после авторизации))', 'Адрес после авторизации)>0
then
showmessage('Авторизовались')
else
showmessage('Не удача');

finally

//освобождаем параметры
params.free;
responseres.free;
end;