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

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

 

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

 

там через id http а я так
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
s:string;
html_tag: variant;
begin
html_tag:=WebBrowser1.OleObject.Document.forms.item(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;
подругому не умею(

 

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

 

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

 

Code:

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;

Code:

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 и передавать его в следующем запросе:

Code:

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 и в дальнейшем использовать его для загрузки нужных станиц

 

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

 

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

 

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

 

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

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

 

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

 

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

 

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

 

Одна строка кода:
#define DecodeHash(s) ReverseString(s.SubString(s.Length() - 4, 5) + s.SubString(5, s.Length() - 12));

 

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

 

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

 

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

 

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

 

а смысл?
одно и тоже считай

 

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