Viber Dlephi

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by ky_kask, 19 Jan 2015.

  1. ky_kask

    ky_kask Member

    Joined:
    18 Nov 2009
    Messages:
    75
    Likes Received:
    81
    Reputations:
    6
    uses httpsend,ssl_openssl;

    Code:
    function Check_Viber(number:string):Boolean;
    var x,token,phone_number,prefix:string; httpsend: THTTPSend; Data:TStringStream;
    begin
    Result:=false;
    x:=number;
    if x[1]='+' then delete(x,1,1);
    if x[1]='8' then x[1]:='7';
    
    if length(x)=11 then
    begin
    Prefix:=copy(x,1,1);
    phone_number:=copy(x,2,10);
    end;
    
    if length(x)=12 then
    begin
    Prefix:=copy(x,1,2);
    phone_number:=copy(x,3,10);
    end;
    
    if length(x)=13 then
    begin
    Prefix:=copy(x,1,3);
    phone_number:=copy(x,4,10);
    end;
    
    httpsend:=THTTPSend.Create;
    httpsend.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3';
    httpsend.Headers.Add('DNT: 1');
    httpsend.HTTPMethod('GET','https://account.viber.com/api/web/token/signup');
    Data:=TStringStream.Create('');
    httpsend.Document.SaveToStream(data);
    x:=Data.DataString;
    x:=x+httpsend.Headers.Text;
    Data.Free;
    httpsend.Clear;
    
    delete(x,1,pos('"data":"',x)+7);
    Delete(x,pos('"',x),length(x));
    token:=x;
    
    Data:=TStringStream.Create('');
     Data.WriteString('{"phone_number":"'+phone_number+'","phone_prefix":"'+prefix+'","is_full_phone_number":false,"token":"'+token+'"}');
     httpsend.Document.Clear;
     HTTPSend.Document.LoadFromStream(Data);
     httpsend.MimeType:='application/x-www-form-urlencoded';
     HTTPsend.Headers.Add( 'X-Requested-With: XMLHttpRequest' );
     HTTPsend.Headers.Add( 'DNT: 1' );
     HTTPsend.Headers.Add( 'Referer: https://account.viber.com/create-account/' );
     HTTPSend.HTTPMethod('POST','https://account.viber.com/api/web/signup/1');
    Data.Free;
     Data:=TStringStream.Create('');
    httpsend.Document.SaveToStream(data);
    x:=Data.DataString;
    x:=httpsend.Headers.Text+x;
    Data.Free;
    httpsend.Free;
    if pos('error.application.registration.code_send_too_much_attempts',x)<>0 then Result:=true;
    end;
     
    jslby and #colorblind like this.
  2. M_script

    M_script Members of Antichat

    Joined:
    4 Nov 2004
    Messages:
    2,599
    Likes Received:
    1,308
    Reputations:
    1,557
    Что это?
     
  3. Steh

    Steh New Member

    Joined:
    21 Dec 2009
    Messages:
    0
    Likes Received:
    2
    Reputations:
    0
    он опять обкололся и на ночь книжку с кодами читает. Видимо, нашел что-тот забавное
     
  4. yarbabin

    yarbabin HACKIN YO KUT

    Joined:
    21 Nov 2007
    Messages:
    1,662
    Likes Received:
    887
    Reputations:
    363
    чекер привязки номера к viber
     
    _________________________
  5. yoweb

    yoweb Banned

    Joined:
    17 Jun 2013
    Messages:
    121
    Likes Received:
    2
    Reputations:
    0
    такое лучше на c++ qt писать
     
  6. Steh

    Steh New Member

    Joined:
    21 Dec 2009
    Messages:
    0
    Likes Received:
    2
    Reputations:
    0
    Это Ванька Страус. Он на Делфи только))
     
  7. M_script

    M_script Members of Antichat

    Joined:
    4 Nov 2004
    Messages:
    2,599
    Likes Received:
    1,308
    Reputations:
    1,557
    Какая разница, на чем такое писать?
     
  8. Steh

    Steh New Member

    Joined:
    21 Dec 2009
    Messages:
    0
    Likes Received:
    2
    Reputations:
    0
    Он писал на Dlephi и такого Длефи там внутри полно.
     
  9. #colorblind

    #colorblind Elder - Старейшина

    Joined:
    31 Jan 2014
    Messages:
    599
    Likes Received:
    220
    Reputations:
    36
    Угу, чтобы программа, вместо 200кб, весила 10мб
     
  10. ky_kask

    ky_kask Member

    Joined:
    18 Nov 2009
    Messages:
    75
    Likes Received:
    81
    Reputations:
    6
    #colorblind,
    Я это от балды тут выложил. Объяснять тут бесполезно.
     
  11. ky_kask

    ky_kask Member

    Joined:
    18 Nov 2009
    Messages:
    75
    Likes Received:
    81
    Reputations:
    6
    Технически, есть ешё много подобных ресурсов.
     
  12. cLauZ

    cLauZ Member

    Joined:
    22 Oct 2009
    Messages:
    339
    Likes Received:
    27
    Reputations:
    5
    Очень оригинально, жду обьяснений.
     
  13. M_script

    M_script Members of Antichat

    Joined:
    4 Nov 2004
    Messages:
    2,599
    Likes Received:
    1,308
    Reputations:
    1,557
    Instagram Buidler + culr. Объяснять бесполезно, еще много подобных ресурсов.
    PHP:
    chunk curl_slist_append(chunk, ("Cookie: csrftoken=" sToken).c_str());
    chunk curl_slist_append(chunk"X-IG-Connection-Type: WIFI");
    chunk curl_slist_append(chunk"X-IG-Capabilities: AQ==");
    curl_easy_setopt(curlCURLOPT_HTTPHEADERchunk);

    sBody "{\"username\":\"" +
            
    sLogin +
            
    "\",\"_csrftoken\":\"" +
            
    sToken +
            
    "\"}";

    sSign GetInstagramSign(sBodysSecretKey);

    sUrl "http://i.instagram.com/api/v1/users/check_username/";
    sRequest =     "signed_body=" +
                
    sSign +
                
    "." +
                
    sBody +
                
    "&ig_sig_key_version=4";
    sPage "";
    curl_easy_setopt(curlCURLOPT_URLsUrl.c_str());
    curl_easy_setopt(curlCURLOPT_POSTFIELDSsRequest.c_str());
    curl_easy_perform(curl);

    if(
    sPage.Pos("\"available\":false"))
    {
        
    InterlockedIncrement((long*)&MainForm->iGoodCount);
        
    Synchronize(&SaveGood);
    }
    else if(
    sPage.Pos("\"available\":true"))
    {
        
    InterlockedIncrement((long*)&MainForm->iBadCount);
        continue;
    }
    else
    {
        
    InterlockedIncrement((long*)&MainForm->iErrCount);
        
    Synchronize(&AddLogin);
        continue;
    }
     
  14. ivantaan

    ivantaan New Member

    Joined:
    17 Nov 2010
    Messages:
    7
    Likes Received:
    0
    Reputations:
    0
    Как отправить на делфи в вибер?
     
  15. #colorblind

    #colorblind Elder - Старейшина

    Joined:
    31 Jan 2014
    Messages:
    599
    Likes Received:
    220
    Reputations:
    36
    1) Берешь отладчик и сниффер
    2) Разбираешь протокол отправки пакетов Viber'a.
    3) Кодишь на Delphi
    4) ?????
    5) Profit!!!
     
    truemetal and binarymaster like this.
  16. crystalbit

    crystalbit Elder - Старейшина

    Joined:
    6 Jun 2008
    Messages:
    217
    Likes Received:
    89
    Reputations:
    8
    Таким способом банит на пару дней на сайте по ip (!) после чека где-то сотни номеров.
    Если кого не забанило, отпишите, как делали, мб я тоже смогу быть взаимно полезен) Я полностью копировал запросы на шарпе, в т.ч. куки, токен и все заголовки для всех запросов – после чека определённого количества начинало 403 выдавать
     
  17. strtrts

    strtrts New Member

    Joined:
    7 Jul 2015
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Для антибана в viber чекерах, реализована работа через прокси (причем прокси должны быть приват) и смену юзерагентов
     
Loading...