Moin zusammen,
mal wieder ein Problem bei dem ich einen Stoß gebrauchen könnte, um in die richtige Richtung weiterzudenken.
Auf diese web-app möchte ich gerne zugreifen:
https://www.easports.com/fifa/ultimate-team/web-app
zuvor muss ich mich jedoch bei EA's Origin einloggen - und schon da fehlen mir anscheinend einige Basics.
Was ich bisher herausgefunden habe (und das ist nicht gerade viel):
1. Es wird SSL 3.0 verwendet.
2. Es wird TLS 1.0 verwendet.
3. Beim Click auf "Log in" wird
Code:
email=EMAILADRESS&password=PASSWORT&_rememberMe=on&rememberMe=on&_eventId=submit&facebookAuth=
übergeben (sollte ja wohl eigentlich ein POST sein).
4. der content type von idhttp muss
Code:
application/x-www-form-urlencoded
lauten
Jedweder POST den ich generiere endet in einem 400 BAD RQUEST ERROR...
...hier mein Versuch:
Code:
var
S: TStringList;
M: TStream;
begin
S := TStringList.Create;
M := TMemoryStream.Create;
try
S.Values['email'] := OriginEmail_Edit.Text;
S.Values['password'] := OriginPassword_Edit.Text;
S.Values['_rememberMe'] := 'on';
S.Values['rememberMe'] := 'on';
S.Values['_eventId'] := 'submit';
S.Values['facebookAuth'] := '';
IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP1.Post('https://signin.ea.com/p/web/login', S, M);
Memo1.Lines.Add(Format('Response Code: %d', [IdHTTP1.ResponseCode]));
Memo1.Lines.Add(Format('Response Text: %s', [IdHTTP1.ResponseText]));
M.Position := 0;
S.LoadFromStream(M);
Memo1.Lines.AddStrings(S);
finally
S.Free;
M.Free;
end;
end;
Für ein paar Hinweise was ich lesen sollte, wäre ich sehr dankbar.