IndyとFacebookにログイン

Question

Indyと私のfacebookアカウントにログインします。バージョンは9.00.10で、TIDHTTPでOpenSSLを使用し、クッキーマネージャを割り当てました。すべてが正常に動作します（私はPOSTリクエストGETなどを送ることができます）

は、私はFacebookのに実際のログインを盗聴し、私は次の情報を持っている：

• のUserAgent：Mozillaの/ 5.0（Windowsの; Uを;のWindows NT 6.0; EN-US; RV：

  • LSD =私が持っている：1.9.2）Geckoの/ 20100115 Firefoxの/ 3.6（.NET CLR 3.5.30729）

  • いくつかのPOSTパラメータがあります。それが何であるか分かりません。

  • email =実際のFacebookのユーザー名/メールアドレス。
  • pass =パスワード（暗号化されていない） - >私は平文で見ることにショックを受けました。
  • default_persistent =「ログインしてください」のための（0または1）
  • timezone =タイムゾーンコード。
  • lgnrnd =私はそれが何であるか分かりません。
  • lgnjs =私はそれが何であるか分かりません。
  • ロケールポストがhttps://www.facebook.com/login.php?login_attempt=1について説明する

=のGeoIP位置（e.x.はen_US）。しかし、私がログインしようとすると、私は間違ったメールを入力したことを返します。私は正しいeMailとパスワードを使用したと確信しています。ここで

は私のコードです：

procedure TForm1.Button1Click(Sender: TObject); 
var 
    TEST : STRING; 
    lParamList: TStringList; 
    i : Integer; 
begin 
    lParamList := TStringList.Create; 
    lparamlist.Add('lsd=AVoBzJ5G'); 
    lparamlist.Add('email=myeMail%40mysite.com'); 
    lparamlist.Add('pass=mypass'); 
    lparamlist.Add('default_persistent=0'); 
    lparamlist.Add('timezone=240'); 
    lparamlist.Add('lgnrnd=210302_FeQV'); 
    lparamlist.Add('lgnjs=1367035381'); 
    lparamlist.Add('locale=en_US'); 
    IDHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.9.2) Gecko/20100115 Firefox/3.6 (.NET CLR 3.5.30729)'; 
    Test := IdHTTP1.Get('https://www.facebook.com'); // To get the first cookies. 
    for i := 0 to IDHTTP1.CookieManager.CookieCollection.Count - 1 do begin 
    ShowMessage(IDHTTP1.CookieManager.CookieCollection.Items[i].CookieText); // Show me the cookies. 
    end; 
    TEST := IDHTTP1.Post('https://www.facebook.com/login.php?login_attempt=1', lParamList); 
    StrToFile ('text.html', test); 
    ShellExecute (0, 'open', 'text.html', '', '', SW_SHOW); 
end; 

私はLiveHTTPHeadersからもらったパラメータを使用していました。 どのように私は正常にインディーズとFacebookにログインするでしょうか？

EDIT：XE2とインディ10でこれを試みたが、私は「間違った電子メール」のエラーを取得：hoForceEncodeParamsフラグはあなたがして、（それがデフォルトである）TIdHTTP.HTTPOptionsプロパティで有効になっている場合

unit Unit1; 

interface 

uses 
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdCookieManager, IdIOHandler, 
    IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdBaseComponent, 
    IdComponent, DateUtils, ShellAPI, IdTCPConnection, IdTCPClient, IdHTTP, Vcl.StdCtrls; 

type 
    TForm1 = class(TForm) 
    IdHTTP1: TIdHTTP; 
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL; 
    IdCookieManager1: TIdCookieManager; 
    Button1: TButton; 
    Memo1: TMemo; 
    procedure Button1Click(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

function GetBetween (Str: String; StrStart : String; StrEnd : String) : String; 
var 
    iPos : Integer; 
    BackUp : String; 
begin 
    result := ''; 
    iPos := Pos (StrStart, Str); 
    if iPos <> 0 then begin 
    Delete (Str, 1, iPos + Length (StrStart) - 1); 
    iPos := Pos (StrEnd, Str); 
    if iPos <> 0 then begin 
     result := Copy(Str,1, iPos - 1); 
    end; 
    end; 
end; 

function StrToFile(szFilePath:string; dwPosition:DWORD; szInput:string):Boolean; 
var 
    hFile:  DWORD; 
    dwSize:  DWORD; 
    dwWritten: DWORD; 
begin 
    Result := FALSE; 
    hFile := CreateFileW(PWideChar(szFilePath), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0); 
    if hFile <> INVALID_HANDLE_VALUE then 
    begin 
    dwSize := Length(szInput) * 2; 
    if dwSize > 0 then 
    begin 
     SetFilePointer(hFile, dwPosition, nil, FILE_BEGIN); 
     WriteFile(hFile, szInput[1], dwSize, dwWritten, nil); 
     if dwWritten = dwSize then 
     Result := TRUE; 
    end; 
    CloseHandle(hFile); 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Response  : String; 
    lparamList : TStringList; 
begin 
    IDHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.9.2) Gecko/20100115 Firefox/3.6 (.NET CLR 3.5.30729)'; 
    try 
    Response := IDHTTP1.Get('https://www.facebook.com/'); 
    except 

    end; 
    lParamList := TStringList.Create; 
    lParamList.Add('lsd='+GetBetween (Response, 'name="lsd" value="', '"')); 
    lParamList.Add('eMail=myEmail@mySite.com'); 
    lParamList.Add('pass=myPassword'); 
    lParamList.Add('default_persistent'+GetBetween (Response, 'name="default_persistent" value="', '"')); 
    lParamList.Add('timezone=240'); 
    lParamList.Add('lgnrnd='+GetBetween (Response, 'name="lgnrnd" value="', '"')); 
    lParamList.Add('lgnjs='+inttostr(DateTimeToUnix(Now))); 
    lParamList.Add('locale=en_US'); 
    IDHTTP1.Request.Referer := 'https://www.facebook.com/'; 
    try 
    Response := IDHTTP1.Post('https://www.facebook.com/login.php?login_attempt=1', lparamList); 
    except 

    end; 
    StrToFile ('test.html', 0, Response); 
    ShellExecute (0, 'open', 'test.html', '', '', SW_SHOW); 
end; 

end. 

Answer 1

を掲載されたTStringListをunのエンコード値で埋める必要があります。 TIdHTTP.Post()は、それらを送信するときに値をエンコードします。 %文字が%25としてエンコードされますので、hoForceEncodeParamsフラグが有効になっていると仮定すると、

は、lparamlist.Add('email=myeMail%40mysite.com');はemail=myeMail%2540mysite.comとして送信されます。 Facebookはそれをemail=myeMail%40mysite.comとして解読し、それを無効な電子メールとして拒絶するだろう。

あなたがいずれかを実行できます。TStringList値はそのままで送信されますので、

1. はhoForceEncodeParamsフラグを無効にします。その後、それらを手動でエンコードする責任があります。

2. hoForceEncodeParamsフラグを有効にしたまま、代わりにlparamlist.Add('email=myeMail%40mysite.com');をlparamlist.Add('email=myeMail@mysite.com');に変更してください。 Indy 9のTIdHTTP.Post()はemail=myeMail@mysite.comとして送信します。これは、Indy 9が@文字をエンコードしないためです。 Facebookがどれほど寛大であるかによって、それはうまくいかないかもしれません。

あなたはインディ10にアップグレードする場合hoForceEncodeParamsフラグが有効になっている場合、予想通り、TIdHTTP.Post()は%40として@文字をエンコードします。

Answer 2

OPのコードはFacebookのモバイル版でうまく動作するので、www.facebook.comをtouch/m.facebook.comに置き換えてください。

OPがフルバージョンで作業する方法（少なくともCookieが有効になっていない部分）を共有するのに十分親切であれば、私たちはすべて感謝しています。