ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
08.04.2010, 18:21
|
|
Познающий
Регистрация: 15.01.2010
Сообщений: 64
Провел на форуме:
215151
Репутация:
5
|
|
Авторизация вконтакте
Не подкинет кто нить пример авторизации с idhttp , а то по многому пробывал и чет не катит,желательно builder
Пробывал так
Код HTML:
AnsiString get_sid; AnsiString Name = "mr@mail.ru"; AnsiString Password = "****"; AnsiString current_id;get_sid = web->Get("http://login.vk.com/?act=login&email=maxr@mail.ru&pass=34x&expire=0"); get_sid = get_sid.Delete(1,get_sid.Pos("id='s' value='")+13); get_sid = get_sid.Delete(get_sid.Pos("'"),get_sid.Length()); current_id = get_sid; Cook->AddCookie("remixchk=5","vkontakte.ru"); Cook->AddCookie("remixsid="+get_sid,"vkontakte.ru"); TStringStream *respon = new TStringStream(); TStringList *post= new TStringList(""); post->Add("u=2&op=slogin&redirect=1&expire=0&to=bWFpbC5waHA-&s="+current_id); web->Post("http://vkontakte.ru/login.php",post,respon); Memo1->Text = respon->DataString; delete respon,post;
Последний раз редактировалось Zuldrak; 08.04.2010 в 18:30..
|
|
|
08.04.2010, 18:37
|
|
Новичок
Регистрация: 15.11.2008
Сообщений: 21
Провел на форуме:
210033
Репутация:
19
|
|
Писал как то)
Код:
procedure login; var html:string; s:string ; begin Form1.Label1.Caption:='Получам доступ в хранилище' ; html := form1.IdHTTP1.Get('http://vkontakte.ru/login.php?op=a_login_attempt'); if (html='vklogin') then begin Form1.Label1.Caption:='Обмениваемся информацией с хранилищем' ; html:=form1.IdHTTP1.Get('http://login.vk.com/?act=login&email=sss@ddd.ru&pass=pass&expire=&vk='); s:= RegexProc('value='''+'([\w]{15,80})',html); s:= RegexProc('[\w]{15,80}',s); Form1.IdHTTP1.HandleRedirects:=true; Form1.IdHTTP1.RedirectMaximum:=0; Form1.IdHTTP1.CookieManager:= form1.IdCookieManager1; Form1.IdHTTP1.AllowCookies:=true; Try html:= Form1.IdHTTP1.Get('http://vkontakte.ru/login.php?op=slogin&redirect=1&expire=0&to=&s='+s) ; Except ShowMessage('Неизвестная ошибка'); end; cook:= RegexProc('remixsid=([\w]{20,100})', form1.IdHTTP1.Response.RawHeaders.GetText ); cook:= RegexProc('([\w]{20,100})',cook); end else begin Form1.Label1.Caption:='Доступ невозможен, т.к. на ваш айпи повешенна капча!' ; end; end;
Код:
Form1.IdCookieManager1.AddCookie('remixsid='+cook+'; path=/; ','vkontakte.ru'); Form1.IdCookieManager1.AddCookie('remixchk=5; path=/;','vkontakte.ru'); Form1.IdHTTP1.CookieManager:= Form1.IdCookieManager1; Form1.IdHTTP1.Request.UserAgent:='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.10'; request:=TStringList.Create; Form1.IdHTTP1.AllowCookies := true; //request.Add('midAuth=1'); //request.Add('user='+'jjj'); //request.Add('pswd='+'lll'); Form1.Label1.Caption:='Переходим на vkontakte.ru' ; try bufer:=Form1.IdHTTP1.Get('http://vkontakte.ru/'); except ShowMessage('Ошибка связи!');
|
|
|
|
08.04.2010, 18:37
|
|
Новичок
Регистрация: 15.11.2008
Сообщений: 21
Провел на форуме:
210033
Репутация:
19
|
|
Правда на делфи, но думаю поможет. А вообще инди глючная фигня.
|
|
|
|
08.04.2010, 18:40
|
|
Познающий
Регистрация: 15.01.2010
Сообщений: 64
Провел на форуме:
215151
Репутация:
5
|
|
Точно рабочий? А то щас переведу и опять облом))
|
|
|
|
08.04.2010, 20:34
|
|
Новичок
Регистрация: 15.11.2008
Сообщений: 21
Провел на форуме:
210033
Репутация:
19
|
|
Ну ты же хочешь наверно быть программистом или как минимум написать чтобы работало.
Вот на это нужен мозг. Пользуйся им и развивай.
|
|
|
|
09.04.2010, 01:20
|
|
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
Провел на форуме:
1819761
Репутация:
180
|
|
И опять этот вопрос...
http://forum.antichat.ru/showthread.php?t=151017
|
|
|
|
09.04.2010, 15:38
|
|
Познающий
Регистрация: 15.01.2010
Сообщений: 64
Провел на форуме:
215151
Репутация:
5
|
|
Я переделал с делфи на с и че т не фига, возвращает ошибку 302
|
|
|
|
09.04.2010, 21:19
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
Провел на форуме:
612028
Репутация:
28
|
|
RTFM по ответам сервера!
|
|
|
|
10.04.2010, 15:27
|
|
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264
Репутация:
69
|
|
я когда то на delphi писал функцию))) может чем поможет)) тока надо исправить процедуру в idcookiamanager.pas
PHP код:
procedure TVKClass.Login;
var
PageText : TStringList;
PostData : TStringList;
TempStr : string;
I : Integer;
begin
{ Создаем объекты в памяти }
HTTP := TidHTTP.Create(nil);
Cookie := TidCookieManager.Create(HTTP);
PageText := TStringList.Create;
PostData := TStringList.Create;
{ Задаем нужные параметры }
HTTP.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.7) Gecko/20091221 MRA 5.6 (build 03278) Firefox/3.5.7 sputnik unknown';
HTTP.Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
HTTP.Request.AcceptLanguage := 'ru,en-us;q=0.7,en;q=0.3';
HTTP.Request.Connection := 'keep-alive';
HTTP.Request.Referer := 'http://vk.com/login.php';
HTTP.Request.ContentType := 'application/x-www-form-urlencoded; charset=UTF-8';
HTTP.Request.AcceptCharset := 'windows-1251,utf-8;q=0.7,*;q=0.7';
HTTP.CookieManager := Cookie;
HTTP.AllowCookies := True;
HTTP.HandleRedirects := True;
{ 1. Запрос на страницу }
If FServerType = stVK_COM Then
HTTP.Post('http://vk.com/login.php', PostData)
else HTTP.Post('http://vkontakte.ru/login.php', PostData);
{ 2. Формируем запрос }
PostData.Add('act=login');
PostData.Add('email=' + femail);
PostData.Add('pass=' + fpass);
PageText.Text := HTTP.Post('http://login.vk.com/', PostData);
If Pos('error', PageText.Text) <> 0 Then
begin
TriggerLogin('Bad login or password');
end else TriggerLogin('Succes login');
For I := 0 To PageText.Count -1 do
begin
If Pos('id=' + #39 + 's' + #39, PageText[I]) <> 0 Then
begin
TempStr := PageText[I];
TempStr := Copy(TempStr, Pos('value=', TempStr) +7, Length(TempStr));
Delete(TempStr, Pos(#39, TempStr), Length(TempStr));
end;
end;
{ 3. Отсылаем ключ на сервер }
PostData.Clear;
PostData.Add('op=slogin');
PostData.Add('s=' + TempStr);
If FServerType = stVK_COM Then
PageText.Text := HTTP.Post('http://vk.com/login.php', PostData)
else PageText.Text := HTTP.Post('http://vkontakte.ru/login.php', PostData);
PageText.Free;
PostData.Free;
end;
ps
это код из мокго компонента для вк. нужно исправить код немного... |
|
|
|
11.04.2010, 08:07
|
|
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
Провел на форуме:
1819761
Репутация:
180
|
|
Сообщение от RedFern.89
это код из мокго компонента для вк. нужно исправить код немного...
и обработку исключений добавить 
|
|
|
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Программы для сайта Вконтакте.
|
Fruit |
Социальные сети |
3 |
05.01.2010 22:59 |
|
[Delphi] Авторизация ВКонтакте
|
Kandi |
С/С++, C#, Delphi, .NET, Asm |
24 |
26.12.2009 01:31 |
|
Авторизация вконтакте
|
Isis |
PHP, PERL, MySQL, JavaScript |
6 |
17.12.2009 20:18 |
|
Авторизация вконтакте
|
alenushka |
С/С++, C#, Delphi, .NET, Asm |
7 |
12.11.2009 09:19 |
|
Авторизация Вконтакте
|
cren |
PHP, PERL, MySQL, JavaScript |
5 |
07.10.2009 00:56 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [stranger]](/avatars/avatar113122.jpg?2058731){kind=avatar}
Линейный вид
