Inicia sesión en Facebook con Indy

delphi post

Question

Me gustaría iniciar sesión en mi cuenta de Facebook con Indy. La versión es 9.00.10 y uso OpenSSL con TIDHTTP y le asigné un administrador de cookies. Todo funciona bien (puedo enviar una solicitud POST a GET, etc.)

Olfateé el inicio de sesión real en Facebook y tengo la siguiente información:

• 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)

• Hay varios parámetros de POST:

  • lsd = No tengo idea de qué es eso.
  • email = El nombre de usuario / correo electrónico real.
  • pass = La contraseña (sin cifrar) -> Me sorprendió ver en texto claro.
  • default_persistent = (0 o 1) para "mantenerme conectado"
  • timezone = Código de zona horaria.
  • lgnrnd = No tengo idea de qué es eso.
  • lgnjs = No tengo idea de qué es eso.
  • locale = ubicación GEOIP (ex en_US)

La publicación se realiza en https://www.facebook.com/login.php?login_attempt=1 . Sin embargo, cuando intento iniciar sesión, devuelvo que he ingresado un correo electrónico incorrecto. Estoy seguro de que utilicé el correo electrónico y la contraseña correctos.

Aquí está mi código:

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;

Usé los parámetros que obtuve de LiveHTTPHeaders. ¿Cómo podría iniciar sesión exitosamente en Facebook con Indy?

EDITAR: Intenté esto con XE2 e Indy 10 pero recibí el error de "correo electrónico incorrecto":

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 protected]'');
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

Para cualquiera que esté interesado, el código del OP funciona muy bien con las versiones móviles de Facebook, así que simplemente reemplace www.facebook.com con touch / m.facebook.com.

Ahora, si el OP también tiene la amabilidad de compartir cómo obtuvo la versión completa (al menos, la parte de Cookies no habilitadas), estoy seguro de que todos lo agradeceremos.

Answer 2

Si el indicador hoForceEncodeParams está habilitado en la propiedad TIdHTTP.HTTPOptions (que es por defecto), entonces debe completar el TStringList publicado con valores no codificados. TIdHTTP.Post() codificará los valores para usted cuando los transmita.

Suponiendo que el indicador hoForceEncodeParams está habilitado, lparamlist.Add(''email=myeMail%40mysite.com''); se transmitirá como email=myeMail%2540mysite.com porque el carácter % se codifica como %25 . Facebook decodificaría eso como email=myeMail%40mysite.com y lo rechazaría como un correo electrónico no válido.

Tu también puedes:

1. deshabilite el indicador hoForceEncodeParams para que los valores de TStringList se transmitan tal como están. Entonces sería responsable de codificarlos manualmente.

2. deje el indicador hoForceEncodeParams activado y cambie lparamlist.Add(''email=myeMail%40mysite.com''); a lparamlist.Add(''[email protected]''); en lugar. TIdHTTP.Post() en Indy 9 lo transmitirá como [email protected] porque Indy 9 no codifica el carácter @ . Eso puede o no funcionar, dependiendo de lo indulgente que sea Facebook.

Si actualiza a Indy 10, TIdHTTP.Post() codificará el carácter @ como %40 como se espera cuando el indicador hoForceEncodeParams esté habilitado.