ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
29.04.2010, 16:33
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
Сообщение от buchlord
Ни чего не выводит ! На капче пришется по Англиски привет ,а надо чтоб цифры были!!!!!!!!!!!!!
юзер-агент поставь браузерный
пример:
PHP код:
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)
|
|
|
29.04.2010, 16:36
|
|
Новичок
Регистрация: 07.01.2009
Сообщений: 12
Провел на форуме:
46982
Репутация:
0
|
|
Сообщение от TrueBit
юзер-агент поставь браузерный
пример:
PHP код:
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)
Как он выглядет и где его взять ???? 
И куда его ставить????????!!!!!
|
|
|
|
29.04.2010, 17:23
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
Сообщение от buchlord
Как он выглядет и где его взять ????
И куда его ставить????????!!!!!
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)';
|
|
|
|
29.04.2010, 16:38
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
У меня нормально капчу сохраняет, с цыфрами.. вопрос в другом, почему когда я пытаюсь ее подгрузить в TImage выходит ошибка :
Unknown picture file extension
|
|
|
|
29.04.2010, 16:47
|
|
Новичок
Регистрация: 07.01.2009
Сообщений: 12
Провел на форуме:
46982
Репутация:
0
|
|
|
|
|
|
29.04.2010, 17:09
|
|
Новичок
Регистрация: 07.01.2009
Сообщений: 12
Провел на форуме:
46982
Репутация:
0
|
|
Ну вы поможете?????
|
|
|
|
29.04.2010, 19:15
|
|
Новичок
Регистрация: 07.01.2009
Сообщений: 12
Провел на форуме:
46982
Репутация:
0
|
|
|
|
|
|
29.04.2010, 19:24
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
PHP код:
IdHTTP1.Get('http://www.sms.tele2.ru/get_rni.php?public_key='+public_key, FS);
|
|
|
|
29.04.2010, 19:25
|
|
Новичок
Регистрация: 07.01.2009
Сообщений: 12
Провел на форуме:
46982
Репутация:
0
|
|
Сообщение от SkyLine32
PHP код:
IdHTTP1.Get('http://www.sms.tele2.ru/get_rni.php?public_key='+public_key, FS);
Помог спосибо!!!!!!!
|
|
|
|
29.04.2010, 20:44
|
|
Новичок
Регистрация: 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.
Программа работает но с отправкой на сервер данных запутался ,не могу сообразить !!! Помогите пожалуйста юнному программисту !!!!! |
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид