Skip to content

Instantly share code, notes, and snippets.

Created January 9, 2018 15:36
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/a319358eb8220177837cd9462730c138 to your computer and use it in GitHub Desktop.
Save anonymous/a319358eb8220177837cd9462730c138 to your computer and use it in GitHub Desktop.
Idhttp Facebook Login
********************
Idhttp Facebook Login ->>->>->>
********************
http://shurll.com/bzcxj
(Copy & Paste link)
********************
rev2018.1.8.28313 . But then, I am looking at the code for Indy 9.0.50, and you are using 9.0.10 instead, so maybe 9.0.10 was different. –Remy Lebeau Apr 28 '13 at 19:56 1 There has to be SOME difference, or else you would not be having this problem. program ShowHTTPSAuthenticated;{$APPTYPE CONSOLE}uses IdHttp, IdSSLOpenSSL;var s: string; lHTTP: TIdHTTP; lIOHandler: TIdSSLIOHandlerSocketOpenSSL;begin ReportMemoryLeaksOnShutdown := True; lHTTP := TIdHTTP.Create(nil); lIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); try lHTTP.Request.Username := 'USERNAME'; lHTTP.Request.Password := 'PASSWD'; lHTTP.IOHandler := lIOHandler; lHTTP.HandleRedirects := True; s := lHTTP.Get(' Writeln(s); finally lHTTP.Free; lIOHandler.Free; end;end. Theoretically, can't verify (no Delphi by hand), you might try to do just a POST request and specify the redirect URL to that one where you've had that extra slash (before question edit). Learn more, including about available controls: Cookies Policy.FacebookEmail or PhonePasswordForgot account? Connect with friends and theworld around you on Facebook. Low PriorityQuestion by luveshan g 3h ago 1 Comment Java Is it possible to attach the source of the Oracle ojdb driver? HI, I'm having an issue identified with the ojdbc pool association and I have to investigate the . Clojure[edit]. Works with: Rakudo version 2017.09. Low PriorityQuestion by Johnny 1h ago 3 Comments Windows OS Windows Server 2008 Web Browsers unable to upgrade /Uninstall IE8 from win2k8R2 Hello All I am looking help to upgrade IE 8 to IE9 on window 2008R2. email = The actual facebook username/email. Whatever I try - can't log in from code. See photos and updates from friends in News Feed. We deactivated it at sprint. The client: . One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community. enUS) The post is made on However when I try to login it returns that I have entered an incorrect eMail. require('WWW::Mechanize')var mech = %s'WWW::Mechanize'.new( cookiejar => Hash.new, agent => 'Mozilla/5.0',)mech.get(' formid => 'mbr-login-form', # form id fields => Hash.new( 'login' => 'XXXXXX', 'passwd' => 'YYYYYY',)). Settings icon is blank. What is wrong in this code : procedure Login; var HTTP: TIdHTTP; Param: TStringList; S: String; begin HTTP := TIdHTTP.Create(nil); HTTP.CookieManager := MainForm.CookieManager; Param := TStringList.Create; Param.Clear; Param.Add('login=example'); Param.Add('password=example'); try HTTP.Get (' HTTP.Post(' Param); S := HTTP.Get (' MainForm.Memo2.Lines.Add(S); finally HTTP.Free; Param.Free; end; end; or with this version : procedure Login; var HTTP: TIdHTTP; S: String; begin HTTP := TIdHTTP.Create(nil); HTTP.CookieManager := MainForm.CookieManager; HTTP.Request.BasicAuthentication := True; HTTP.Request.Username := 'example'; HTTP.Request.Password := 'example'; HTTP.AllowCookies := True; HTTP.HandleRedirects := True; S := HTTP.Get (' MainForm.Memo2.Lines.Add(S); end; Used Delphi XE2 and there is no way to make this code running and login. Not the answer you're looking for? Browse other questions tagged facebook delphi post indy or ask your own question. That may or may not work, depending on how lenient Facebook is. Same username&password work from Firefox. Uses the Tls package. Free Tool: IP Lookup Promoted by Experts Exchange Free Tool: IP Lookup Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation. Here is my code: 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('defaultpersistent=0'); lparamlist.Add('timezone=240'); lparamlist.Add('lgnrnd=210302FeQV'); lparamlist.Add('lgnjs=1367035381'); lparamlist.Add('locale=enUS'); 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(' // To get the first cookies. Using cURL to do the heavy lifting, get a XML list of computers connected to my router. Can . Email Sign Up or sign in with Google Facebook Log in to website from Delphi Ask Question up vote 8 down vote favorite 4 I would ask if someone was kind enough to explain to me how to login at webpage from Delphi app. I get page code into Memo but seems it didn't pass auth. –Remy Lebeau Apr 28 '13 at 6:23 1 BenjaminWeiss: Again, please use a sniffer to compare Indy's posted data to a webbrowser's posted data and see what is actually different between them. pass = The password (unencrypted) --> I was shocked to see in clear text. Low PriorityQuestion by J Hack 1h ago 6 Comments iPhone Lost phone with no passcode Daughter lost her iPhone 8. Delphi[edit]. Low PriorityQuestion by Bdev v 1h ago 3 Comments HTML Chrome Mobile +2 JavaScript Web Browsers JS form action link is used instead of link that is actually clicked I'm trying to understand some unexpected behaviour here, I know that an AJAX could be a solution to . Can you show what you are actually seeing? –Remy Lebeau Apr 28 '13 at 23:23 show 6 more comments up vote 0 down vote For anyone interested, the OP's code works just fine with the mobile versions of Facebook, so just replace www.facebook.com with touch/m.facebook.com. I bet you're missing at least op (operation type ?). Implementations of this task should not use client certificates for this: that is the subject of another task 5a02188284
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment