ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
29.04.2010, 23:08
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
JnK я в дельфи начинающий, можно чуть подробнее?
|
|
|
29.04.2010, 23:14
|
|
Новичок
Регистрация: 10.09.2009
Сообщений: 15
Провел на форуме:
43258
Репутация:
1
|
|
Как достать пароли с mail.ru агента подскижите плз..
|
|
|
|
29.04.2010, 23:16
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563
Репутация:
52
|
|
Сообщение от stepashka_
JnK я в дельфи начинающий, можно чуть подробнее?
Где, что не понятно?
PHP код:
var
tmp,str:string; // переменная str = строка
begin
str:=idhttp1.Get('http://vk.com/');
{ считываем страницу и сохраняем её в строке (str) }
tmp:=copy(str,pos('<title>',str)+7,pos('</title>',str));
{в строку Tmp копируется текст между <title> и </title> }
// copy - скопировать часть строки
// !! delete - удалить часть строки. Работает с VAR переменными.
// pos - найти строку (символ) в подстроке
end;
PHP код:
var
str:Tstringlist; // Список (аналог визуальный ListBox)
tmp:string; // Строка (временная переменная)
i:integer; // число (счетчик)
begin
str:=Tstringlist.Create(); // создаем список (выделяем память)
str.Text:=idhttp1.Get('http://vk.com/'); // копируем в список текст страницы
for i:=0 to str.count-1 do // цикл проходит по всему списку
begin
tmp:=str.Strings[i] ; // присваиваем строку из списка во временную, т.к. нельзя работать на прямую коммандой Delete
delete(tmp,1,pos('img',tmp)); // удаляем с 1 симвода, до слова Img (если нет такого слова) то ничего не делает.
// copy,delete,pos - читай выше.
end;
str.Free; // освобождаем список (память)
end;
|
|
|
|
29.04.2010, 23:33
|
|
Новичок
Регистрация: 07.01.2009
Сообщений: 12
Провел на форуме:
46982
Репутация:
0
|
|
PHP код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, PngImageList, ImgList, IdHTTP, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, StdCtrls, ExtCtrls, IdCookieManager;
type
TForm1 = class(TForm)
Image1: TImage;
kap: TEdit;
Button1: TButton;
IdTCPClient1: TIdTCPClient;
IdHTTP1: TIdHTTP;
PngImageList1: TPngImageList;
PngImageCollection1: TPngImageCollection;
Button2: TButton;
Kod: TComboBox;
nomer: TEdit;
text: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var public_key, S:string;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var FS:TFileStream;
begin
IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; YPC 3.0.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)';
S:=IdHTTP1.Get('http://www.sms.tele2.ru/');
public_key:=Copy(S, Pos('public_key', S)+35, 32);
FS:=TFileStream.Create('captcha.png',FMCreate);
IdHTTP1.Get('http://www.sms.tele2.ru/get_rni.php?public_key='+public_key, FS);
FS.Free;
Image1.Picture.LoadFromFile('captcha.png');
end;
procedure TForm1.Button2Click(Sender: TObject);
var Data:TStringList;
begin
Data:=TStringList.Create;
Data.Add('do=send');
Data.Add('smstext='+text.Text);
Data.Add('phone_cod='+Kod.text);
Data.Add('number='+nomer.Text);
Data.Add('sms_text='+text.Text);
Data.Add('private_key='+kap.Text);
Data.Add('public_key='+public_key);
Data.Add('submit.x=0');
Data.Add('submit.y=0');
S:=IdHTTP1.Post('http://www.sms.tele2.ru/', Data);
Data.Free;
if Pos('<p><b><span style="color: green">Спасибо, Ваше сообщение принято!</span></b></p>', S)<>0 then
Label1.Caption:='ДА :)'
else
Label1.Caption:='Нет;)'
end;
end.
Народ я уже все волосы на голове выдрал помогите не отправляет смс !!!!!!!!
Может всё дело в :
PHP код:
Data.Add('submit.x=0');
Data.Add('submit.y=0');
я незнаю что место 0 ставить?????? |
|
|
|
29.04.2010, 23:57
|
|
Участник форума
Регистрация: 18.01.2008
Сообщений: 158
Провел на форуме:
2441184
Репутация:
106
|
|
ты уверен что у тебя паблик кей верно находит?
попробуй в мемо вывести public_key
|
|
|
|
30.04.2010, 00:07
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563
Репутация:
52
|
|
Сообщение от buchlord
....
я незнаю что место 0 ставить??????
Снифер в руки брал?
PHP код:
Data.Add('submit.x=0');
Data.Add('submit.y=0');
Т.к. Кнопка на сайте в виде картинки, то идет авто ориентир х и у, это на случай, если кнопку хотят использовать как карту. (1 кнопка - много путей), в твоем случаи, это роли не играет, но если так хочешь поставь 15, 10
PHP код:
Data.Add('submit.x=15');
Data.Add('submit.y=10');
|
|
|
|
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
|
|
ну пришли что ты там наваял, посмотрю...может смогу помочь
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
