Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2003.01.02;
Скачать: [xml.tar.bz2];

Вниз

когда   Найти похожие ветки 

 
Beginer1   (2002-11-01 20:48) [0]

доброго времни суток м@ст@ки
хочу написать программу которая будет звонить прову(соединяться с интернетом)
в факе нашел исходник програмки для передачи комманд модему ( http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988621981&n=20)
вопрос как получать ответы от модема т.е. узнать когда "пров" спрашивает у "меня" login и password
если есть возможность то объясните по подробние
зарание спасибо :)


 
dkDimon   (2002-11-02 02:08) [1]

Зачем тебе это? Если ты соединяешься через RAS (Remote Access Server) то передаешь структуру с уже заполненными логином и пассвордом.


 
Beginer1   (2002-11-02 09:27) [2]

т. е. как я понимаю в строке с немером телефона я должен вписать login и password

PhoneNumber := "ATDPХ{номер прова}" + "login"+ "password";

поправте пожалуйста если не так


 
Malder   (2002-11-02 11:18) [3]

Не так. Потом ты должен работать с терминалом.
Если видишь "ogin:" то отсылаешь логин и т.д.


 
Anatoly Podgoretsky   (2002-11-02 14:29) [4]

Malder © (02.11.02 11:18)
И это тоже не так, работать надо в соответствии с протоколом провайдера, у меня например провайдер запрашивает это как "user:"


 
Beginer1   (2002-11-02 14:45) [5]

так всетаки что происходит!!!!!!!
1. звоню прову
2.модем определяется с параметрами связи (скорость, сжатие данных...)
3. пров спрашивает login и password (как это узнать, когда он спрашевает)

>Malder
как мне увидить этот терменал , а точнее моей программе


 
Malder   (2002-11-02 15:22) [6]

Anatoly Podgoretsky, несомненно нужно отслеживать наиболее распространенные приглашения, вроде login, user.

Beginer1, терминал ты не увидишь =) Ты его можешь увидеть, если в свойствах соединения поставишь "Открывать окно терминала после набора номера".
А как ты собственно говоря собираешься принимать, передавать данные ?


 
Beginer1   (2002-11-02 22:26) [7]

может я не так объяснаю :(
хочу написать прогу которая будет соединять меня с интернетом как это делается в виндовсе программой "подключение" а что касается логин или юзер то я использую разных провов.кто пишет sovam! login:
кто просто login:

>Malder
вот я и хочу узнать как принемать переданные данные от сервера
как отслеживать приглашения, вроде login, user.
как отслеживать приглашения, вроде login, user.
как отслеживать приглашения, вроде login, user.


 
Malder   (2002-11-03 12:12) [8]

Beginer1, ты уж определись, что хочешь.

1) Если ты хочешь сделать звонилку, то тебе прямая дорога к RAS. Там ничего отслеживать не надо, все за тебя делают...

2) А если хочешь полностью контроллировать модемную передачу, то... контролируй ее. Я ж тебя не просто так спросил "А как ты собственно говоря собираешься принимать, передавать данные ?". Как набирать номер ты понял. А как передавать, принимать данные ?
Или тебе это не требуется, главное позвонить ? =)
Вот если научишься работать с данными, то увидишь, что удаленный модем тебе будет слать приглашения, вроде "login:" или "user:"
после успешного их ввода начнется PPP сессия (я говорю про подключение к интернету по dial-up), работать с которой тебе будет еще геморройней. Так что см. 1


 
Геннадий   (2002-11-03 14:46) [9]

В общем так. Я использовал компонент CPort. Тебе нужно позвонить, подождать, пока модемы соединятся - и начинай постоянно читать порт. Тебе будет выслано приглашение ввести логин, а потом и пароль. Но Инет ты так не получишь.
---------------------------------------------------------



unit COM_Unit;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, CPort;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

var
COMport : TComPort;

procedure TForm1.Button1Click(Sender: TObject);
var
S : String;
begin
COMport.FlowControl.ControlDTR:= dtrEnable;
ComPort.FlowControl.ControlRTS := rtsEnable;
COMport.WriteStr("AT D P 666440"#10#13);

Repeat
COMport.ReadStr(S, 255);
If S<>"" then Memo1.Lines.Append(S);
Application.ProcessMessages;
Until (Application.Terminated) or (Pos("login:", LowerCase(S))<>0);

COMport.WriteStr("my_login"#10#13);

Repeat
COMport.ReadStr(S, 255);
If S<>"" then Memo1.Lines.Append(S);
Application.ProcessMessages;
Until (Application.Terminated) or (Pos("pass", LowerCase(S))<>0);

COMport.WriteStr("my_password"#10#13);

Repeat
COMport.ReadStr(S, 255);
If S<>"" then Memo1.Lines.Append(S);
Application.ProcessMessages;
Until (Application.Terminated);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
COMport:= TCOMport.Create(Self);
COMport.Port:= "COM2";
COMport.Open;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
COMport.Close;
COMport.Free;
end;

end.


 
Beginer1   (2002-11-05 15:33) [10]

А где сзять такую компаненту


 
Vit1251   (2002-11-05 16:17) [11]

Это очень интересный вопрос, дело в том что не все провайдеры определяют это так как вы здесь выше написали. Большинство используют проверку пароля через протокол PPP под TCP/IP и систему кодирования например CHAP (этому надо учится). Так вот вам надо имитировать просто подключение PPP это можно сделать просто подключившись из Windows. НО если это не устраевает вам надо найти исходники TCP/IP, PPP, CHAP протоколов. А вот как вы будете это все стыковать это уже ваши проблемы... Я думаю это не подсилу вам...Тем более, что зная всю эту архитектуру вы могли бы очень просто взламывать любого провайдера.

Терминальную программу можно найти в папке HyperTerminal и открыв ее отменить всю чешую... Нажать {ENTER} и ввести команду работы с модемом. Модем работает на AT командах с использованием прерывания на данный командой CONNECT....

Прмер:
U - говорит пользователь
C - отвечает компьютер

U: AT Z
C: OK
U: ATDP3263610
C: CONNECT 56700/ARQ/NONE/V42+/LAMP

Произошло соединение...ПОсле этого уже надо стыковать протокол...
Если это CHAP авторизация (Win98, Win95) то нужно послать закодированный логин и пароль (иногда домен). После чего прийдет ответ...Его уже надо ловить PPP подробнее об этом написано на www.protocol.ru (ЕСЛИ НЕ ОШИБАЮСЬ)



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2003.01.02;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.59 MB
Время: 0.027 c
4-1925
Mike_Z
2002-11-14 22:21
2003.01.02
Как найти названия всех запущенных прог (как по Ctrl+Alt+Del)


3-1764
pilot
2002-12-11 15:41
2003.01.02
Сравнение баз


1-1789
Nickm
2002-12-19 12:21
2003.01.02
XmlDocument+TWebBrowser


1-1774
Checist [root]
2002-12-20 11:05
2003.01.02
Вопрос к Kabro (плиз ответь)


3-1763
yaJohn
2002-12-11 13:13
2003.01.02
Как заставить TClientDataSet перефильтроваться





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский