Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.05.2008, 11:36   #1
Antonenko
Новичок
Джуниор
 
Регистрация: 05.05.2008
Сообщений: 0
По умолчанию Как проверить баланс в сети домолинк!!!

Привет всем!!! В общем такая проблема: нужно написать программку проверка баланса в сети домолинк. Обшарил весь инет ниче не нашел кроме проверки баланса для корбины но этот алгоритм не подходит. Буду рад любым исходникам. Заранее спасибо!!!!
Antonenko вне форума Ответить с цитированием
Старый 22.05.2008, 11:50   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

бюджета что-то не видно
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 23.05.2008, 15:19   #3
Antonenko
Новичок
Джуниор
 
Регистрация: 05.05.2008
Сообщений: 0
По умолчанию

procedure TForm1.Button1Click(Sender: TObject);
var
Data: TIdMultiPartFormDataStream;
S:string;
begin
Data:=TIdMultiPartFormDataStream.Cr eate;
try
Data.AddFormField('user','mcc22599' );
Data.AddFormField('pass','X4Dfg328' );

IdHTTP.Request.Host:='http://www.isp.tulatelecom.ru';
IdHTTP.Request.Referer:='http://www.isp.tulatelecom.ru/balans/';
IdHTTP.Request.AcceptLanguage:='ru' ;
idhttp.Request.ContentType:='applic ation/x-www-form-urlencoded';
IdHTTP.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.6 (build
01425); InfoPath.1)';
IdHTTP.Request.Connection:='Keep-Alive';

S:=idHTTP.Post('http://www.isp.tulatelecom.ru/balans/getbalans.phtml',Data);

Memo2.SetTextBuf(PChar(S));
Memo2.Lines.SaveToFile('1.txt');
finally
Data.Free;
end;


Вот сам код программы. В результате выполнения кода в Memo2 появлятеся текст странички с надписью Неверное имя пользователя или пароль. Вот и не пойму почему. Еще у меня вопрос. Запускаю снифер, нажимаю на кнопку выполнения данного кода программы, на адрес http://www.isp.tulatelecom.ru/balans/getbalans.phtm отправляется пакет тока с одними заголовками указанными в IdHTTP.Request а сам пароль и имя пользователя не отправляются почему?
Antonenko вне форума Ответить с цитированием
Старый 23.05.2008, 15:25   #4
Antonenko
Новичок
Джуниор
 
Регистрация: 05.05.2008
Сообщений: 0
По умолчанию

Вот исходный код ява скрипта:

<FORM name=balans onsubmit="return check()"
action=getbalans.phtml method=post><FONT size=-1>Ваше
имя входа</FONT><BR><INPUT type=input size=40
name=user><BR><FONT size=-1>Ваш пароль</FONT><BR><INPUT
type=password size=40 name=pass><BR><BR>
<CENTER><FONT size=-1><INPUT type=submit value=Отправить> <INPUT type=reset value=" Очистить "></FONT></CENTER></FORM></TD>
Antonenko вне форума Ответить с цитированием
Старый 23.05.2008, 22:18   #5
Antonenko
Новичок
Джуниор
 
Регистрация: 05.05.2008
Сообщений: 0
По умолчанию

Все проблема решена. Тему можно закрыть. Кому нужен исходник пишите мне на Alarm_x@mail.ru
Antonenko вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверить тип переменной satana Общие вопросы Delphi 10 20.11.2010 21:43
Как проверить строку? nikleb PHP 6 07.07.2008 22:04
Как проверить, есть ли файл? Dux Общие вопросы Delphi 3 02.04.2008 23:18
Межотраслевой баланс кетчуп Помощь студентам 2 06.05.2007 08:18