ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
30.04.2010, 08:13
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Всем доброго времени суток!
Кто нибудь сталкивался с авторизацией на форуме vBulletin?
Вот такой запрос уходит на авторизацию..
_http://forum.ru/login.php?vb_login_username=user&vb_login_password _md5=o_O&s&vb_login_password_utf8
Как пароль в md5 переконвертить? Или всё намного проще?
|
|
|
30.04.2010, 09:03
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
Сообщение от iGlass
Всем доброго времени суток!
Кто нибудь сталкивался с авторизацией на форуме vBulletin?
Вот такой запрос уходит на авторизацию..
_http://forum.ru/login.php?vb_login_username=user&vb_login_password _md5=o_O&s&vb_login_password_utf8
Как пароль в md5 переконвертить? Или всё намного проще?
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://forum.antichat.ru/index.php?');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.All.Tags('input').Item(1).Value:='логин'; // заполняем форму
WebBrowser1.OleObject.Document.All.Tags('input').Item(2).Value:='пасс'; // заполняем форму
WebBrowser1.OleObject.Document.All.Tags('input').Item(5).Click(); // нажимаем кнопку
end;
только что проверил, авторизовавшись на этом форуме 
|
|
|
|
30.04.2010, 09:05
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
А мне бы желательно через Indy =)
|
|
|
|
30.04.2010, 09:10
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
ну пришли что ты там наваял, посмотрю...может смогу помочь
|
|
|
|
30.04.2010, 09:13
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Ещё ничего не ваял.. Но вот строка запроса...
http://forum.ru/login.php?vb_login_username=user&vb_login_password _md5=o_O&s&vb_login_password_utf8
о_О = Password Hash...
|
|
|
|
30.04.2010, 10:00
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
iGlass,
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
Data : TStringList;
PostSend, GetSend : string;
begin
IdHTTP1.Request.UserAgent := 'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.5.22 Version/10.51';
IdHTTP1.Request.Referer := 'http://forum.antichat.ru/index.php?';
IdHTTP1.Request.Accept := 'text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
IdHTTP1.Request.AcceptLanguage := 'ru-RU,ru;q=0.9,en;q=0.8';
IdHTTP1.Request.AcceptCharSet := 'iso-8859-1, utf-8, utf-16, *;q=0.1';
IdHTTP1.Request.AcceptEncoding := 'deflate, gzip, x-gzip, identity, *;q=0';
IdHTTP1.Request.Connection := 'Keep-Alive, TE';
IdHTTP1.Request.ContentType := '';
GetSend := IdHTTP1.Get('http://forum.antichat.ru/index.php?');
Data := TStringList.Create;
Data.Add('vb_login_username='+Edit1.Text);
Data.Add('vb_login_password='+Edit2.Text);
Data.Add('cookieuser=1');
Data.Add('s=');
Data.Add('do=login');
Data.Add('forceredirect=1');
Data.Add('vb_login_md5password=');
PostSend := IdHTTP1.Post('http://forum.antichat.ru/login.php', Data);
end;
если смотреть в сниффере когда логинишся на форуме через браузер, то после
vb_login_md5password=HTTP/1.1 200 OK
Server: nginx
Date: Fri, 30 Apr 2010 05:55:47 GMT
Content-Type: text/html; charset=Windows-1251
Connection: keep-alive
...
...
а в этом примере идет после
vb_login_md5password=&HTTP/1.1 200 OK
Server: nginx
Date: Fri, 30 Apr 2010 05:55:47 GMT
Content-Type: text/html; charset=Windows-1251
Connection: keep-alive
...
...
хз почему...
|
|
|
|
30.04.2010, 11:24
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
JnK можно текст между <title> </title> например, вывести в memo ?
|
|
|
|
30.04.2010, 12:09
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Навскидку:
s := IdHttp1.Get('http://www.google.ru');
Memo1.Lines.Text := Copy(s, pos('<title>', s) + 7, pos('</title>', s) - pos('<title>', s) -7);
Последний раз редактировалось GhostOnline; 30.04.2010 в 12:13..
|
|
|
|
30.04.2010, 13:16
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
Сообщение от GhostOnline
Навскидку:
s := IdHttp1.Get('http://www.google.ru');
Memo1.Lines.Text := Copy(s, pos('<title>', s) + 7, pos('</title>', s) - pos('<title>', s) -7);
Работает
Только как сделать что бы уже записаный в мемо текст не удалялся при записи?
|
|
|
|
30.04.2010, 13:29
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Сообщение от stepashka_
Работает
Только как сделать что бы уже записаный в мемо текст не удалялся при записи? для этого достаточно изменить несколько букв:
s := IdHttp1.Get('http://www.google.ru');
Memo1.Lines.Append(Copy(s, pos('<title>', s) + 7, pos('</title>', s) - pos('<title>', s) -7));
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид