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

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

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

640

Опции темы

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

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

#6391

29.04.2010, 17:28

buchlord

Новичок

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

Сообщений: 12

Провел на форуме:
46982

Репутация: 0

Цитата:

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

PHP код:


		
			
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)';

Между каких строк этот код вставлять???????????????

#6392

29.04.2010, 17:32

SkyLine32

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

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

Сообщений: 121

Провел на форуме:
4022236

Репутация: 38

Отправить сообщение для SkyLine32 с помощью ICQ

Отправить сообщение для SkyLine32 с помощью AIM

Отправить сообщение для SkyLine32 с помощью MSN

Отправить сообщение для SkyLine32 с помощью Yahoo

Цитата:

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

Между каких строк этот код вставлять???????????????

блин ну что за глупые вопросы, хоть бы подумал головой! вот где у тебя в проге есть кнопка или что там ещё...после нажатия на неё ты отправляешь данные... и думай теперь куда этот код ставить...

#6393

29.04.2010, 19:15

buchlord

Новичок

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

Сообщений: 12

Провел на форуме:
46982

Репутация: 0

Народ простите конечно за тупые вопросы ,но я ничего не могу сделать пишит ПРИВЕТ ,а мне надо цифры !!! Вот ссыль на то что я сделал ,кому не сложно сделайте и перезалейте !!!!! http://letitbit.net/download/75863.7.../BUch.rar.html

#6394

29.04.2010, 19:24

SkyLine32

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

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

Сообщений: 121

Провел на форуме:
4022236

Репутация: 38

Цитата:

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

PHP код:


		
			
IdHTTP1.Get('http://www.sms.tele2.ru/get_rni.php?public_key='+public_key, FS);

#6395

29.04.2010, 19:25

buchlord

Новичок

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

Сообщений: 12

Провел на форуме:
46982

Репутация: 0

Цитата:

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

PHP код:


		
			
IdHTTP1.Get('http://www.sms.tele2.ru/get_rni.php?public_key='+public_key, FS);

Помог спосибо!!!!!!!

#6396

29.04.2010, 20:44

buchlord

Новичок

Регистрация: 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;

    Edit1: TEdit;

    Button1: TButton;

    IdTCPClient1: TIdTCPClient;

    IdHTTP1: TIdHTTP;

    PngImageList1: TPngImageList;

    PngImageCollection1: TPngImageCollection;

    IdCookieManager1: TIdCookieManager;

    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/');

 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)';

public_key:=Copy(S, Pos('public_key', S)+35, 32);

 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)';

FS:=TFileStream.Create('captcha.png',FMCreate);

 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)';

IdHTTP1.Get('http://www.sms.tele2.ru/get_rni.php?public_key='+public_key, FS);

 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)';

FS.Free;

 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)';

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='+public_key);

Data.Add('public_key='+public_key);

Data.Add('submit.x=submit.x');

Data.Add('submit.y=submit.y');

S:=IdHTTP1.Post('http://www.sms.tele2.ru/', Data);

if Pos('green', S)<>0 then

Label1.Caption:='ДА :)'

else

Label1.Caption:='Нет;)'



end;





end.

Программа работает но с отправкой на сервер данных запутался ,не могу сообразить !!! Помогите пожалуйста юнному программисту !!!!!

#6397

29.04.2010, 21:04

HakaR

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

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

Сообщений: 261

Провел на форуме:
4435957

Репутация: 539

0_о
buchlord, зачем ты столько раз, юзер агент прописываешь?
Сверяй что отправляет браузер и твоя программа, и соображай.

#6398

29.04.2010, 21:18

JnK

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

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

Сообщений: 121

Провел на форуме:
188563

Репутация: 52

Цитата:

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

PHP код:


		
			
....



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='+public_key);  // Это капча

  Data.Add('public_key='+public_key);  // А это Хеш наверное её )

  

  S:=IdHTTP1.Post('http://www.sms.tele2.ru/', Data);



  if Pos('green', S)<>0 then

    Label1.Caption:='ДА :)'

  else

    Label1.Caption:='Нет;)'

  Data.Free;  // список освобождать кто будет?

end;





end.

PHP код:


		
			
Data.Add('private_key='+public_key);  // Это капча

Data.Add('public_key='+public_key);  // А это Хеш наверное её )

У тебя капча и ключ одно и тоже.

Последний раз редактировалось JnK; 29.04.2010 в 21:23..

#6399

29.04.2010, 22:40

stepashka_

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

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

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

Провел на форуме:
7879791

Репутация: 265

Отправить сообщение для stepashka_ с помощью ICQ

Дельфи
Я зашёл на ВК

Цитата:

idhttp1.Get('http://vk.com/');

Как можно спарсить нужный мне текст?

#6400

29.04.2010, 23:04

JnK

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

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

Сообщений: 121

Провел на форуме:
188563

Репутация: 52

Цитата:

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

Дельфи
Я зашёл на ВК

Как можно спарсить нужный мне текст?

PHP код:


		
			
var

  str:string;

begin

  str:=idhttp1.Get('http://vk.com/');

//  copy,delete,pos

end;

или как практикуют через StringList

PHP код:


		
			
var

  str:Tstringlist;

  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(tmp,1,pos('img',tmp));

    //  copy,delete,pos

  end;

  str.Free;

end;