Авторизация ДругВокруг - посмотреть код бесплатно

Авторизация на ДругВокруг для Delphi
Теперь можете писать спамеры)))


                        
var

StrPage,ssylka:String;

log:TstringList;

begin

IdHttp1.HandleRedirects:=true;

IdHttp1.RedirectMaximum:=1;



ssylka := 'http://app.drugvokrug.ru/j_spring_security_check';

log := TstringList.Create;

log.Add('j_username='+Edit1.Text);

log.Add('j_password='+Edit2.Text);

StrPage := idhttp1.Post(ssylka,log);

StrPage:=IdHTTP1.Get('http://app.drugvokrug.ru/picture.htm');

if pos ('logout',StrPage) <> 0 then

begin

ShowMessage('Успешная авторизация');

ShowMessage(StrPage)

end



else

begin

ShowMessage('нихуя :(');

end;