авторизация на facebook

[serj1985]

Всем привет!
Ребят, ни у кого не завалялось исходника авторизации на facebook.com?
Прошу помощи, очень надо
Буду признателен за все ответы
Спасибо!

[Пепел Феникса]

а что самим написать никак?
у нас в этом разделе есть отличный ман, по этой теме.

[djekxa]

подскажите в чем может быть проблема при авторизации данной функцией
-2 dll для работы с ssl лежат в директории с софтом
-как видно из кода к idhttp подключен ssl и всеже не работает

function TProgramThread.FBAuth(Login, Pass: string): Boolean;
var
  post_form_id, LinkAuth, lsd: string;
    IdHTTP: TIdHTTP;
    IdCookieManager: TIdCookieManager;
    IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
    IdCompressorZLib: TIdCompressorZLib;
begin
  try
     IdHTTP := TIdHTTP.Create(nil);
     IdCookieManager := TIdCookieManager.Create();
     IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
     IdSocksInfo := tIdSocksInfo.Create();
     Post := TStringList.Create;
     Response := TStringList.Create;
     IdHTTP.HandleRedirects := True;
     IdHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
     IdHTTP.CookieManager := IdCookieManager;
     IdCompressorZLib := TIdCompressorZLib.Create();
     IdHTTP.Compressor := IdCompressorZLib;
     IdHTTP.Request.AcceptEncoding := 'gzip,deflate';
     IdHTTP.Request.UserAgent :=
    'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.10';

     IdHTTP.Request.Accept :=
      'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    IdHTTP.Request.AcceptLanguage := 'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
    IdHTTP.Request.AcceptCharSet := 'windows-1251,utf-8;q=0.7,*;q=0.7';

    Response.Text := IdHTTP.Get('http://www.facebook.com/');
    Login := StringReplace(Login, '@', '%40', [rfReplaceAll]);
    lsd := Pars('name="lsd" value="', Response.Text, '"');
    Post.Clear;
      Post.Add('charset_test=');
      Post.Add('lsd=' + Pars('name="lsd" value="', Response.Text, '"'));
      Post.Add('return_session=0');
      Post.Add('legacy_return=1');
      Post.Add('display=');
      Post.Add('session_key_only=0');
      Post.Add('trynum=0');
      Post.Add('charset_test=');
      Post.Add('lsd=' + Pars('name="lsd" value="', Response.Text, '"'));
      Post.Add('email=' + Login);
      Post.Add('pass=' + Pass);
      Post.Add('default_persistent=0');
      Post.Add('login=Войти');
    Response.Text := IdHTTP.Post(
      'https://www.facebook.com/login.php?login_attempt=1', Post);
    Response.Text := IdHTTP.Get('http://www.facebook.com/');
    if Pos('logout', Response.Text) <> 0 then
    begin
      Result := True;
      Form1.log.Lines.Add('Поток №' + IntToStr(Index)
          + ' Акаунт ' + Login + ' Валидный');
    end
    else
    begin
      Result := False;
      Form1.log.Lines.Add('Поток №' + IntToStr(Index)
          + ' Акаунт ' + Login + 'Не валидный');
    end;
////высвобождение компонентов
  except

  end;
end;