Помогите авторизироватся!

Кто может помочь у меня неполучается уже 8 раз пробывал и сниферил отправку

http://wap.sasisa.ru/chat/login.php вот на этом сайте заранее спасибо всем за помощь просьба не флудить



Delphi 7

 

procedure TForm1.Button1Click(Sender: TObject);
var log, p, sid :string;
begin
IdHttp1.Request.UserAgent:= 'Mozilla/5.0 (BlackBerry; U; BlackBerry 9800; en) AppleWebKit/534.1+ (KHTML, like Gecko) Version/6.0.0.337 Mobile Safari/534.1';
IdHttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
IdHttp1.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
IdHttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
p:= IdHttp1.Get('http://wap.sasisa.ru/chat/login.php');
sid:= Copy(p, pos('name="sid" value="', p) + 18,26 );
log:= IdHttp1.Get('http://wap.sasisa.ru/chat/login.php?sid=' + sid +'&id='
+ edit3.text + '&ps=' + edit4.text );
if Pos( 'Àâòîðèçàöèÿ ïðîøëà óñïåøíî!' , log) <> 0 then
ShowMessage('Óäà÷íî') else ShowMessage('Íå óäà÷íî');
end;

 

проверь логин и пароль

 

Авторизовался с первого раза , никаких проблем не возникло !

 

Да правильные,заходил седне

 

Все проблема решина,кто спасибо все кто может помоч еще

procedure TForm1.Button2Click(Sender: TObject);
var log, p :string;
data :tstringlist;
begin
Data:=tstringlist.create;
Data.add('msg='+edit2.text);
Data.add('Submit=');
IdHTTP1.Post('http://wap.sasisa.ru/chat/say.php?rm=5&r=',Data);


Почему соосбщение в комнату не добавляет???

 

Додумался!

 

взломай сайт и будет тибе счастье)))