Advertisement
Guest User

Untitled

a guest
Feb 13th, 2016
118
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.50 KB | None | 0 0
  1. HTTP.UserAgent := RandomUserAgent;
  2.  
  3. HTTP.KeepAlive := True;
  4.  
  5. HTTP.Headers.Add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8');
  6. HTTP.Headers.Add('Upgrade-Insecure-Requests: 1');
  7.  
  8. HTTP.Headers.Add('Referer: https://www.g2a.com/');
  9. HTTP.Headers.Add('Accept-Encoding: gzip, deflate, sdch');
  10. HTTP.Headers.Add('Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4');
  11. if HTTP.HTTPMethod('GET', 'https://id.g2a.com/auth/auth/?client_id=g2a&redirect_uri=https%3A%2F%2Fwww.g2a.com%2Foauth2%2Ftoken&response_type=code') then
  12. HTML.LoadFromStream(HTTP.Document);
  13. html.Text:=utf8toansi(html.Text);
  14. Token:=Pars('placeholder="Confirm Password" name="salt" id="',HTML.Text,'"');
  15.  
  16.  
  17. Token2:=Pars('name="salt" id="'+Token+'" value="',HTML.text,'"');
  18.  
  19. Token3:=Pars('Set-Cookie: XSRF-TOKEN=',HTTP.Headers.Text,';');
  20.  
  21. // Token3:=Pars('Set-Cookie: g2a_id_session=',HTTP.Headers.Text,';');
  22.  
  23.  
  24. Token4:=Pars('name="secret" id="',html.Text,'"');
  25.  
  26. Token5:=Pars('placeholder="Confirm Password" name="secret" id="'+Token4+'" value="',html.Text,'"');
  27.  
  28. HTTP.Headers.Clear;
  29. HTTP.Document.Clear;
  30. HTTP.Protocol:='1.1' ;
  31. HTTP.Headers.Add('text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8');
  32. // HTTP.MimeType:='application/x-www-form-urlencoded';
  33. // Data.WriteString('client_id=g2a&redirect_uri=https://www.g2a.com/oauth2/token&response_type=code&auth_call=1&auth_json=1');
  34. HTTP.Document.LoadFromStream(Data);
  35.  
  36. HTTP.Headers.Add('Referer:https://www.g2a.com/customer/account/logoutSuccess/');
  37. if HTTP.HTTPMethod('GET', 'https://www.g2a.com/') then
  38. HTTP.Headers.Clear;
  39. HTTP.Document.Clear;
  40. with HTTP do
  41. begin
  42. HTTP.KeepAlive := True;
  43. HTTP.MimeType:='application/x-www-form-urlencoded';
  44. Data.WriteString('username='+LG+'&password='+PW+'&security=&remember_me=false&secret=&salt='+Token2+'&protection=ecbad90d5ccf11fc3bd4503952aaf12a');
  45. HTTP.Document.LoadFromStream(Data);
  46. Headers.Add('Accept: application/json, text/javascript, */*; q=0.01');
  47. Headers.Add('Origin: https://id.g2a.com');
  48. Headers.Add('X-XSRF-TOKEN: '+Token3);
  49. Headers.Add('X-Requested-With: XMLHttpRequest');
  50. Headers.Add('Accept-Encoding: gzip, deflate');
  51. Headers.Add('Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4');
  52. end;
  53.  
  54.  
  55. if HTTP.HTTPMethod('POST', 'https://id.g2a.com/signin') then
  56. begin
  57. case:GOOD
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement