Проблема в следующем, братья программисты!
Нужно написать что-то вроде RADIUS и TACACS сервера, т.е. проще говоря, необходимо для начала научиться читать порты UDP и TCP, ну и естественно уметь писать в них, т.е. таким образом управлять Cisco.
В этом деле я новичек, поэтому буду примного благодарен, если кто даст дельный совет, наверняка опыт у кого-то уже есть.
Да, только не пишите что-то вроде: "нахрена тебе надо изобретать велосипед, возьми говоторый сервак". В том-то и дело, что нужно все написать с нуля.

Цитата(Vitus @ 23.7.2002, 11:39)

Проблема в следующем, братья программисты! Нужно написать что-то вроде RADIUS и TACACS сервера, т.е. проще говоря, необходимо для начала научиться читать порты UDP и TCP, ну и естественно уметь писать в них, т.е. таким образом управлять Cisco. В этом деле я новичек, поэтому буду примного благодарен, если кто даст дельный совет, наверняка опыт у кого-то уже есть. Да, только не пишите что-то вроде: "нахрена тебе надо изобретать велосипед, возьми говоторый сервак". В том-то и дело, что нужно все написать с нуля.

Насколько я знаю, если ты будеш раблтать с Server- и ClientSocket-ами, то для начала надо в файле WIndows\Servies добавить новый порт, через который ServerSocket будет 'слушать' приходящие данные(комп надо перезагрузить).
Добавлять, например, следующим образом:
testport  777/tcp
Причем номер порта не должен совпадать с уже существующими!
Также надо в ClientSocket установить IP-адрес.
Для чтения или записи существуют события OnRead и OnWrite, послыть текст например можно так:

ClientSocket1.Socket.SendText(Text);

Принять :

ServerSocket1.Socket.ReceiveText;

Также можно работать с много чем еще:
SendBuf(var Buf;Count:Integer):Integer;
SendStream(AStream:TStream):Boolean;
И т.д.

Я даже пока не знаю с чем мне лучше работать, я бы хотел узнать с чем лучше и проще. Есть в Delphi компонент TNMUDP, может его можно использовать? Если да, то как именно?
Spawn, ты пишешь "надо в файле WIndows\Servies добавить новый порт", а где
этот файл лежит-то?
Может есть уже конкретные исходники, где можно посмотреть как именно это все делается?

Цитата(Vitus @ 23.7.2002, 13:00)

Я даже пока не знаю с чем мне лучше работать, я бы хотел узнать с чем лучше и проще. Есть в Delphi компонент TNMUDP, может его можно использовать? Если да, то как именно? Spawn, ты пишешь "надо в файле WIndows\Servies добавить новый порт", а где этот файл лежит-то? Может есть уже конкретные исходники, где можно посмотреть как именно это все делается?

Сорри, я малость ошибся Windows\SERVICES (он без расширения)
Пример работы с этими компонентами, например в
Borland\Delphi6\Demos\Internet\Chat.
На счет других компонентов я пока не знаю так как совсем недавно начал заниматься Delphi.

Есть замечательные компоненты Indy которые приходят вместе с Delphi6 или скачиваются с torry.net. Я правда с ними не работал, но поработав с NM и TClient/ServerSocket компонентами думаю, что indy должны быть лучше, так о них все говорят.

Если же делать сервер, который будет работать со многими пользователями, то и сообщения может понадобиться отсылать всем. Для етого существует свойство ServerSocket-а - ActiveConnections. Вот так можно разослать сооющения всем подключённым юзерам:

for i:=0 to ActiveConnections-1 do
ServerSocket1.Socket.Connections[i].SendText(text);

На счет UDP-в литературе написано, что TCP и UDP почти ни чем не отличаются.

Вот из Хакер'a (журнал такой ) пример работы с компонентом indy через UDP протокол. Пример назывется чат для локалки...

Надо скинуть на форму два компонента: idUDPClient с закладки indy Clients и idUDPServer с закладки indy servers.

idUDPClient1.Host := "IP адресс компа которому надо отсылать сообщения", если для всех компов в сетке, то послеждние три цифры 255, че-нить вроде 192.168.100.255 .

idUDPClient.Send(Edit1.Text) - отправка содержимого строки ввода (Edit1)

Для получения инфы, создаешь обработчик OnUDPRead для idUDPServer.

procedure TForm1.idUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TidSocketHandle);
var
 StringFormatedStream: TStringStream;
 s : String;
begin
 //инициализация
 StringFormatedStream := TStringStream.Create('');
 {Копирование из простого потока в строковый
 Полученные данные приходят как простой неформатированный поток      
 TStream, Для удобства перегоняем в текстовый поток...}
 StringFormatedStream.CopyFrom(AData, AData.Size);
 //Вывод полученного сообщения
 Memo1.Lines.Add(ABinding.PeerIP + ' ' + StringFormatedStream.DataString);
 //Перенаправление сообщения дальше
 ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], length(s));
 //Освобождение строкового потока
 StringFormatedStream.Free;
end;

З.Ы. Пример не проверял, но думаю журналу можно доверять. Вообще у автора есть сайт - www.cydsoft.com/vr-online - как говорит сам автор она тама все примеры выкладывает.
Еще одни З.Ы. Надеюсь хоть чем-то помог типа

1.Кто скажет, где взять бесплатные компоненты Indy?
2.Кто-нибудь работал с компонентом TNMUDP?

Цитата(Guest @ 23.7.2002, 10:13)

1.Кто скажет, где взять бесплатные компоненты Indy?

Они входят в состав поставки Дельфи 6

То что они входят в D6 я знаю, но у нас в компании стандарт D5! Может из можно как-то отдельно инсталлировать? ...бсплатно  

Это коммерческие компоненты.

PS. Вопросы взлома и cracks на этом форуме не обсуждаются. Не заставляйте закрывать топик.