исходник програм для вк

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by turnikman000, 9 Oct 2012.

  1. turnikman000

    turnikman000 Banned

    Joined:
    27 May 2012
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    хочу писать проги для вк. токо нужен пример искал в гугл путевого ничего не нашел скините плиз пару прог исходников на делфи
    например чекер анкаутов и так далее
     
  2. Tip.the.besT

    Tip.the.besT Member

    Joined:
    24 Jun 2009
    Messages:
    270
    Likes Received:
    10
    Reputations:
    4
    ну уж не ври. примеры авторизации есть точно! да и можешь отснифать.

    кстати насколько знаю легче авторизироваться на мобильной версии вк.
     
  3. obj

    obj New Member

    Joined:
    1 Mar 2012
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    И в той, и в той версии 1 запрос нужно лишь послать и разрешить редиректы
    Потом остается лишь посмотреть ответ от сервера, перекинули нас на нашу страницу или нет
     
  4. Tip.the.besT

    Tip.the.besT Member

    Joined:
    24 Jun 2009
    Messages:
    270
    Likes Received:
    10
    Reputations:
    4
    На обычной вроде было магическое число... POST-ом авторизовался?
     
  5. rapira37

    rapira37 New Member

    Joined:
    30 Jul 2012
    Messages:
    21
    Likes Received:
    0
    Reputations:
    -1
    Исходник чекера акков? Его никто не выложит за бесплатно, я более чем уверен.
    Учись, учись и ещё раз учись!
    Для начала попробуй авторизироватсья вконтакте с помощью дельфи.
    Кстате, первая ссылка в гугле ага - http://qi0.ru/blog/?p=85
    *В могучем гугле есть всё.*
    Удачи.
     
  6. Белый Ворон

    Joined:
    7 Oct 2012
    Messages:
    46
    Likes Received:
    3
    Reputations:
    0
    1) изучаешь таргетный язык программирования, до такой степени, чтобы не писать бредовый код по типу if (b == true) {}
    2) изучаешь английский язык до такой степени, чтобы свободно понимать техническую документацию по языку, RTL, и используемым библиотекам
    3) изучаешь нужный тебе протокол, и нужную тебе предметную область (в данном случае это веб-страницы, и принципы их верстки). реализовывать всё вручную никто не заставляет. такого добра и задаром полно. но ты хотя бы сможешь ориентироваться в библиотеках, и понимать их возможности только "читая" их API.
    удачи.
     
  7. drim

    drim Member

    Joined:
    27 Aug 2009
    Messages:
    347
    Likes Received:
    33
    Reputations:
    4
    Что такое "RTL"?
     
  8. realcoder

    realcoder Member

    Joined:
    9 Dec 2010
    Messages:
    226
    Likes Received:
    11
    Reputations:
    4
     
  9. rapira37

    rapira37 New Member

    Joined:
    30 Jul 2012
    Messages:
    21
    Likes Received:
    0
    Reputations:
    -1
     
  10. cardons

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

    Joined:
    19 Jul 2005
    Messages:
    789
    Likes Received:
    327
    Reputations:
    83
    Сделал на коленке. Малоли новичкам понадобиться в uses добавить synacode, httpsend, ssl_openssl.
    В папку с программой добавить ssleay32.dll и libeay32.dll найти можно везде. Используются для ssl.


    Функция отправки запроса. C возможность сохранять необходимые файлы.Малоли понадобиться картинки аль еще что сохранять.
    Code:
    function send_post(request,url_send,referer, namefile, addCookie:string):string;
    var
      stream: TStringStream;
      BodyS: TStringList;
      HTTP: THTTPSend;
      n : integer;
      NewUrl  : string;
      mm:tmemorystream;
      begin
          HTTP := THTTPSend.Create;
    
          try
              HTTP.Document.Clear;
              HTTP.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:11.0) Gecko/20100101 Firefox/11.0';
              HTTP.MimeType := 'application/x-www-form-urlencoded; charset=UTF-8';
              HTTP.Headers.Add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' );
              HTTP.Headers.Add('AcceptLanguage: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3');
              HTTP.Headers.Add('Referer: '+referer);
    
              if(cookie<>'') then HTTP.Cookies.Text:=cookie;
    
              if (request <> '') then
              begin
               stream:=TStringStream.Create('');
               stream.WriteString(request);
    
               HTTP.Document.LoadFromStream(stream);
    
               HTTP.HTTPMethod('post',url_send);
              end
              else
               HTTP.HTTPMethod('get',url_send);
    
              if (AddCookie <> '') then CookieGet(HTTP.Headers.Text);
    
    
              if (namefile <> '') then
              begin
                mm :=TMemoryStream.Create;
                mm.SetSize(HTTP.Document.Size);
    
                HTTP.Document.Position:=0;
                mm.Position:=0;
                mm.CopyFrom(HTTP.Document,HTTP.Document.Size);
                mm.Position:=0;
    
                try
                  try
                    mm.SaveToFile(dir_download+'\'+namefile);
                  except
                    mm.SaveToFile(dir_download+'\'+ExtractUrlFileName(url_send));
                  end;
                 finally
                  mm.Free;
                end;
    
                end
               else
               begin
                BodyS := TStringList.Create;
                BodyS.LoadFromStream(HTTP.Document);
                Result:=BodyS.Text;
               end;
    
            case HTTP.Resultcode of
              301, 302, 307:
                begin
                  n := FoundLocationStrNum(HTTP.Headers);
                  
                  if (n >= 0) and (n <= HTTP.Headers.count) then // если в хэдере найдена строка с локейшеном
                    begin
                      NewUrl := StringReplace(HTTP.Headers.Strings[n],'Location: ','',[]);
                      Result:=NewUrl;
                    end
                  else
                    ShowMessage('В заголовке не найдена ссылка для редиректа');
                end;
            end;
    
          finally
            HTTP.Free;
    
            end;
    
      end;
    Подключение к вк

    Code:
    procedure LoginVK;
    var
       TextResponse, ip_h : string;
       i : Integer;
       request : string;
    begin
        TextResponse := send_post('', 'http://vk.com/', 'http://vk.com/login?act=mobile' , '', '1');
    
        i := Pos('<input type="hidden" name="ip_h" value="',TextResponse)+39;
        Delete(TextResponse,1,i);
        i := Pos('" />',TextResponse);
        Delete(TextResponse,i,Length(TextResponse));
        ip_h := TextResponse;
    
        request := 'act=login&role=al_frame&expire=&captcha_sid=&captcha_key=&_origin=http://vk.com&ip_h='+Trim(ip_h)+'&email='+login+'&pass='+pass;
    
        TextResponse := send_post(request, 'https://login.vk.com/?act=login', 'http://vk.com/login?act=mobile', '', '1');
        send_post('', Trim(TextResponse), 'http://vk.com/login?act=mobile' , '', '1');
    
    end;
    
     
    #10 cardons, 15 Oct 2012
    Last edited: 15 Oct 2012
  11. MOLODOI

    MOLODOI New Member

    Joined:
    6 Sep 2012
    Messages:
    6
    Likes Received:
    1
    Reputations:
    0
    Ого,спасибо большое,сейчас что то буде мудровать))))
     
Loading...