ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
16.06.2010, 22:14
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
Авторизовывался в контакте след. кодом :
PHP код:
Post := TStringList.Create;
Response := TStringList.Create;
//1 запрос
Post.Add('op=a_login_attempt');
Response.Text := IdHTTP1.Post('http://vkontakte.ru/login.php',Post);
//2 запрос
Post.Clear;
Post.Add('email=mail');
Post.Add('pass=password');
Post.Add('expire=');
Post.Add('vk=');
Response.Text := IdHTTP1.Post('http://login.vk.com/?act=login',Post);
Post.Clear;
//Парсим хэш
hash := Response.Text;
Delete(hash,1,Pos('value',hash)+6);
Delete(hash,Pos('''',hash),Length(hash));
//3 запрос
Post.Add('s='+hash);
Post.Add('op=slogin');
Post.Add('redirect=1');
Post.Add('expire=0');
Post.Add('to=');
Post.Add('request_method=post');
Response.Text := IdHTTP1.Post('http://vkontakte.ru/login.php',Post);
Сейчас в отпуске. На другой машине скачал дельфи. Набросал код для авторизации, но он не проходит. Хотя буквально неделю назад тем же кодом авторизовывался. В чем проблема, кто подскажет?
Подозреваю что проблема с куками(т.е с самим Delphi)..... |
|
|
16.06.2010, 22:24
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
Сообщение от fenixelite
Набросал код для авторизации, но он не проходит. Хотя буквально неделю назад тем же кодом авторизовывался. В чем проблема, кто подскажет?
Подозреваю что проблема с куками(т.е с самим Delphi).....
Там вроде параметр s переименовали..
ща снифером гляну
-------------------
не, ошибся, там что то другое..
Последний раз редактировалось TrueBit; 16.06.2010 в 22:37..
|
|
|
|
16.06.2010, 23:19
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
TrueBit, попробуй моим кодом авторизоваться плз... Просто я подозриваю, что дело в дельфи... Щас с другого компа сижу, и дельфи новая...
|
|
|
|
16.06.2010, 23:46
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
Сообщение от fenixelite
TrueBit, попробуй моим кодом авторизоваться плз... Просто я подозриваю, что дело в дельфи... Щас с другого компа сижу, и дельфи новая...
Пробовал на D7 всё норм, авторизовался
|
|
|
|
16.06.2010, 23:52
|
|
Познавший АНТИЧАТ
Регистрация: 22.11.2007
Сообщений: 1,822
Провел на форуме:
4468361
Репутация:
1549
|
|
Код:
//str - переменная, в которой находится строка вида ip:port
ip:=copy(str,0,pos(':',str)-1);
port:=copy(str,pos(':',str)+1,length(str)-pos(':',str));
{ip, port:string;}
{бла-бла-бла}
http1.Connect(ip,strtoint(port));
ошибка говорит о несоответствии типов в последней строке.
Код:
[Error] Unit1.pas(805): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(1147): Incompatible types: 'Integer' and 'String'
[Fatal Error] Project2.dpr(6): Could not compile used unit 'Unit1.pas'
Последний раз редактировалось Cthulchu; 16.06.2010 в 23:54..
|
|
|
|
17.06.2010, 00:10
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
Cthulchu, ты посмотри с какими аргументами вызывается процедура...
Вроде бы так надо
http1.host := 'ya.ru';
http1.Post := 80;
http1.Connect;
|
|
|
|
17.06.2010, 00:12
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
TrueBit, ппц так и знал, что в дельфи проблема.... Не подкинешь ссылку где нормальную слить можно?
|
|
|
|
17.06.2010, 00:30
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
Сообщение от fenixelite
TrueBit, ппц так и знал, что в дельфи проблема.... Не подкинешь ссылку где нормальную слить можно?
Уж и не помню где слил, попробуй на рутрекере поискать
|
|
|
|
17.06.2010, 00:34
|
|
Познавший АНТИЧАТ
Регистрация: 22.11.2007
Сообщений: 1,822
Провел на форуме:
4468361
Репутация:
1549
|
|
подкиньте плз либу regexpr для дельфи семерки, не могу сгуглить.
|
|
|
|
17.06.2010, 00:37
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
Сообщение от Cthulchu
подкиньте плз либу regexpr для дельфи семерки, не могу сгуглить.
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид