Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.02.2013, 20:25   #1
FleXik
Форумчанин
 
Регистрация: 01.11.2012
Сообщений: 770
По умолчанию Авторизация vBulletin [гемор]

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
rev, s, cookie:string;
begin
rev:=send('GET','http://betmasters.ru/activity.php','','',true,'','','','','','','');
cookie:=parser(rev,'','@@@',0,0);
s:=parser(rev, 'name="s" value="', '"',0,0);
rev:=send('POST','http://betmasters.ru/login.php?do=login','vb_login_username='+Edit1.Text+'&vb_login_password='+Edit2.Text+'&vb_login_password_hint=Пароль&s='+s+'&securitytoken=guest&do=login&vb_login_md5password='+LowerCase(UTF8Encode(md5(Edit2.Text)))+'&vb_login_md5password_utf='+LowerCase(md5(Edit2.Text)),cookie,false,'','','','','','','');
rev:=send('GET','http://betmasters.ru/forum.php');
if Pos('Выход', rev)<>0 then
ShowMessage('Авторизовались') else
ShowMessage('Ошибка авторизации');
end;
Вот набросал, непонятна... securitytoken - получается после отправки POST запроса, пробовал 2 POST запроса, пробовал по разному, полный геморой. Нужна помощь, спасибо.
FleXik вне форума Ответить с цитированием
Старый 02.02.2013, 21:02   #2
FleXik
Форумчанин
 
Регистрация: 01.11.2012
Сообщений: 770
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
rev, s, cookie, token:string;
begin
rev:=send('GET','http://betmasters.ru/','','',true,'','','','','','Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3','');
cookie:=parser(rev,'','@@@',0,0);
s:=parser(rev, 'name="s" value="', '"',0,0);
token:=parser(rev, 'var SECURITYTOKEN = "', '"', 0,0);
rev:=send('POST','http://betmasters.ru/login.php','vb_login_username='+Edit1.Text+'&vb_login_password='+Edit2.Text+'&vb_login_password_hint=Пароль&s='+s+'&securitytoken='+token+'&do=login&vb_login_md5password='+LowerCase(md5(Edit2.Text))+'&vb_login_md5password_utf='+LowerCase(md5(Edit2.Text)),cookie,true,'','','','','','Opera/9.50 (Windows NT 5.1; U; ru)','http://betmasters.ru/login.php');
rev:=send('GET','http://betmasters.ru/');
if Pos('Выход', rev)<>0 then
begin
Form1.Label1.Caption:='ONLINE';
Form1.Label1.Font.Color:=clGreen;
ShowMessage('Авторизовались');
end else
ShowMessage('Ошибка авторизации');
end;
P.S погуглил немного, понял что у меня все правильно, добавил парсинг SECURITYTOKEN, добавил useragent (:D), даже реферрера впилил, не работает, или я калека или с сайтом что-то...
FleXik вне форума Ответить с цитированием
Старый 02.02.2013, 22:26   #3
FleXik
Форумчанин
 
Регистрация: 01.11.2012
Сообщений: 770
По умолчанию

все еще нужна помощь, знатоки - помогите пожалуйста.
FleXik вне форума Ответить с цитированием
Старый 04.02.2013, 10:45   #4
FleXik
Форумчанин
 
Регистрация: 01.11.2012
Сообщений: 770
По умолчанию

ап, все еще нужна помощь..
FleXik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Вопрос] Авторизация vBulletin (Delphi or C++) NoName013 Помощь студентам 5 08.05.2012 22:21
Авторизация на vbulletin (POST) IndomiX Работа с сетью в Delphi 10 19.02.2012 21:11
Продвижение сайта пресс-релизами -гемор!!! dergo2000 Помощь студентам 0 01.02.2012 21:48
Обычная авторизация или авторизация на уровне браузера? calugin Безопасность, Шифрование 0 13.01.2011 00:34
vbulletin ben95 PHP 2 05.03.2008 09:49