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

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

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

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

Нужна помощь не выводит капчу!!

#11

29.04.2010, 15:41

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;

    procedure Button1Click(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

S:=IdHTTP1.Get('http://www.sms.tele2.ru/');

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

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

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

FS.Free;

Image1.Picture.LoadFromFile('captcha.png');

end;



end.