[Delphi]/[Pascal] Задай вопрос, получи ответ

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 641 из 677

641

Опции темы

Поиск в этой теме

Опции просмотра

#6401

29.04.2010, 23:08

stepashka_

Познавший АНТИЧАТ

Регистрация: 09.11.2009

Сообщений: 1,077

С нами: 8686406

Репутация: 265

JnK я в дельфи начинающий, можно чуть подробнее?

#6402

29.04.2010, 23:14

astonilya

Новичок

Регистрация: 10.09.2009

Сообщений: 15

С нами: 8772914

Репутация: 1

Как достать пароли с mail.ru агента подскижите плз..

#6403

29.04.2010, 23:16

JnK

Участник форума

Регистрация: 30.03.2007

Сообщений: 121

С нами: 10060964

Репутация: 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;

#6404

29.04.2010, 23:33

buchlord

Новичок

Регистрация: 07.01.2009

Сообщений: 12

С нами: 9127584

Репутация: 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 ставить??????

#6405

29.04.2010, 23:57

Vlad3d

Участник форума

Регистрация: 18.01.2008

Сообщений: 158

С нами: 9637731

Репутация: 106

ты уверен что у тебя паблик кей верно находит?
попробуй в мемо вывести public_key

#6406

30.04.2010, 00:07

JnK

Участник форума

Регистрация: 30.03.2007

Сообщений: 121

С нами: 10060964

Репутация: 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');

#6407

30.04.2010, 08:13

iGlass

Познающий

Регистрация: 14.05.2009

Сообщений: 92

С нами: 8944114

Репутация: 5

Всем доброго времени суток!

Кто нибудь сталкивался с авторизацией на форуме vBulletin?

Вот такой запрос уходит на авторизацию..

_http://forum.ru/login.php?vb_login_username=user&vb_login_password _md5=o_O&s&vb_login_password_utf8

Как пароль в md5 переконвертить? Или всё намного проще?

#6408

30.04.2010, 09:03

SkyLine32

Участник форума

Регистрация: 01.03.2009

Сообщений: 121

С нами: 9050197

Репутация: 38

Цитата:

Сообщение от iGlass

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;

только что проверил, авторизовавшись на этом форуме

#6409

30.04.2010, 09:05

iGlass

Познающий

Регистрация: 14.05.2009

Сообщений: 92

С нами: 8944114

Репутация: 5

А мне бы желательно через Indy =)

#6410

30.04.2010, 09:10

SkyLine32

Участник форума

Регистрация: 01.03.2009

Сообщений: 121

С нами: 9050197

Репутация: 38

ну пришли что ты там наваял, посмотрю...может смогу помочь

Страница 641 из 677

641

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2570	09.06.2026 16:21
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход