Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
Авторизация через Http.Post |
16.05.2010, 08:45
|
|
Новичок
Регистрация: 15.05.2010
Сообщений: 26
Провел на форуме:
35421
Репутация:
5
|
|
Авторизация через Http.Post
Если не сложно киньте рабочий исходный код авторизации вконтакте желательно через метод Post и с комментами.
Вот что получилось.
procedure TForm1.Button1Click(Sender: TObject);
var
list: TStringList;
begin
list:=TStringList.Create();
list.Add('u=1');
list.Add('success_url=');
list.Add('fail_url=');
list.Add('try_to_login=1');
list.Add('email='+Edit1.Text);
list.Add('pass='+Edit2.Text);
try
Memo1.Lines.Text:=IdHTTP1.Post('http://login.vk.com/?act=login',list);
finally
list.Free;
IdHTTP1.Disconnect;
end;
После отправки получаю в Memo1
<html>
<head>
<meta http-equiv='content-type' content='text/html; charset=windows-1251' />
</head>
<body onload="document.getElementById('l').submit();">
<form id='l' method='post' action='http://vkontakte.ru/login.php'>
<input type='hidden' name='s' id='s' value='xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxx' />
<input type='hidden' name='op' id='op' value='slogin' />
<input type='hidden' name='redirect' id='redirect' value='1' />
<input type='hidden' name='expire' id='expire' value='0' />
<input type='hidden' name='to' id='to' value='' />
</form>
</body>
</html>
Нужна помощь....Знающих людей.  |
|
|
16.05.2010, 08:49
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
тут посмотри решение проблемы:
forum.antichat.ru/thread165316.html
если нужен готовый код -> пробуй это: forum.antichat.ru/thread204126.html
|
|
|
|
16.05.2010, 09:34
|
|
Новичок
Регистрация: 15.05.2010
Сообщений: 26
Провел на форуме:
35421
Репутация:
5
|
|
Спасибо почти розобрался...
|
|
|
|
16.05.2010, 09:40
|
|
Участник форума
Регистрация: 20.02.2010
Сообщений: 121
Провел на форуме:
496930
Репутация:
60
|
|
Я юзаю такие настройки для авторизации. (IdHttp)
На форме кукименеджер должен быть привязан к idhttp, handleredirects ---> true
AllowCookies ---> True;
код Делфи
procedure Tform1.Button1Click(Sender: TObject);
var
uns: String;
s: String;
outfo: TStringList;
begin
pass := StringReplace(edit2.text, ' ', '+', [rfReplaceAll, rfIgnoreCase]);
outfo := TStringList.Create;
idhttp1.Get('http://vkontakte.ru/login.php?op=a_login_attempt');
outfo.Add('act=login');
outfo.Add('email='+edit1.text);
outfo.Add('pass='+pass);
try
uns:=UTF8toANSI(idhttp1.post('http://login.vk.com/', outfo));
s:=copy(uns, 286, 56);
memo1.Lines.add('Cookies: '+s);
IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vkontakte.ru');
finally
if s = '' then
begin
//Неудачно
end
else
begin
//Залогплись
|
|
|
|
16.05.2010, 09:41
|
|
Участник форума
Регистрация: 20.02.2010
Сообщений: 121
Провел на форуме:
496930
Репутация:
60
|
|
Тут есть обработка исключений типа русского пароля и пароля с пробелами 
|
|
|
|
16.05.2010, 11:03
|
|
Новичок
Регистрация: 15.05.2010
Сообщений: 26
Провел на форуме:
35421
Репутация:
5
|
|
memo1.Lines.add('Cookies: '+s);
IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vkontakte.ru');
finally
if s = '' then
Можно по подробней эту часть кода обьяснить.
|
|
|
|
16.05.2010, 11:40
|
|
Постоянный
Регистрация: 12.04.2008
Сообщений: 403
Провел на форуме:
4700216
Репутация:
261
|
|
Сообщение от ArkNet
memo1.Lines.add('Cookies: '+s);
IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vkontakte.ru');
finally
if s = '' then
begin
Label1.caption:='Good';
end
else
begin
Label1.caption:='bad';
end;
Можно по подробней эту часть кода обьяснить.
добовляет лину мемо куки,s String,remixsid айди вк,в дир
vkontakte.ru..
дальше
begin
Label1.caption:='Неудачно';
end
else
begin
Label1.caption:='Залогнлись';
end;
|
|
|
|
16.05.2010, 11:53
|
|
Новичок
Регистрация: 15.05.2010
Сообщений: 26
Провел на форуме:
35421
Репутация:
5
|
|
IdCookieManager1.AddCookies('remixsid='+s+ '; path=/; ','vkontakte.ru');
вот эта строчка что дает?
при компиляиции тут вылетает
Incompatible type: 'TIdCookieManedger' and 'String'
|
|
|
|
16.05.2010, 12:21
|
|
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
Провел на форуме:
1819761
Репутация:
180
|
|
Сообщение от Berman
Тут есть обработка исключений типа русского пароля и пароля с пробелами
Если в пароле будет '+', то аккаунт не авторизуется.
|
|
|
|
16.05.2010, 12:36
|
|
Новичок
Регистрация: 15.05.2010
Сообщений: 26
Провел на форуме:
35421
Репутация:
5
|
|
Для создания простого чекера акаунтов даже хватит получения кукис.
Если получил 54 значную строку значить валидный.... 
А для того чтоб получить исходный код самой страницы с анкетой что надо?
И есть ли гдето полная инфа на русском языке про коммпонент Idhhttp желательной с картинками и с видео.
Последний раз редактировалось ArkNet; 16.05.2010 в 12:39..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
