VPF::Тип соединения на удаленном сервере

ASGDeveloper

Дата 23.8.2006, 10:26 (ссылка)

(нет голосов)

Загрузка ...

developer

Профиль
Группа: Участник
Сообщений: 389
Регистрация: 1.4.2006

Репутация: нет
Всего: 1

Можно ли узнать тип сервиса слушающего удаленный порт?

То есть, например прога хочет соединиться с адресом 134.12.45.4 и портом 34. Можно ли узнать какой сервис случает порт (http, pop3, ftp)? Вариант с номерами портов не предлагать, так как может быть ситуация когда http-сервер слушает 90 порт.

Matematik

Дата 23.8.2006, 10:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Методом тыка, посылать на порт команды (http, ftp) и слущать что ответит сервер.
pop3 например сразу как законектился говорит +OK lalala
http ничего не говорит, сначало надо послать GET / HTTP/1.1+#13#10+#13#10
итд

Snowy

Дата 23.8.2006, 10:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Большинство сервисов сразу представляются.
Например, подключаешься на FTP, а он тебе сразу строку - я ftp сервер такой-то, слухаю вас.
Могут и не представляться, но обычно говорят, кто они.
Просто подключайся и пробуй прочитать строку. По ней уже можно не только определить, что за сервис, но и какой софт там стоит.

ASGDeveloper

Дата 23.8.2006, 11:47 (ссылка)

(нет голосов)

Загрузка ...

developer

Профиль
Группа: Участник
Сообщений: 389
Регистрация: 1.4.2006

Репутация: нет
Всего: 1

Пробую вот так:

Код


var
 WSAData: TWSAData;
 sock: TSocket;
 sBuff: array[0..255] of Char;
 addr: sockaddr_in;
begin
 WSAStartup(MakeWord(1,1), WSAData);
 sock:=socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
 addr.sin_family:=AF_INET;
 addr.sin_port:=htons(110);
 addr.sin_addr:=LookupName('www.kav.ru');

 connect(sock, addr, SizeOf(addr));
 //sBuff:='GET ';
 //send(sock, sBuff, 255, 0);
 recv(sock, sBuff, 255, 0);
 ShowMessage(sBuff);
 closesocket(sock);
 
 WSACleanup;
end;

Код


function LookupName(name: string): TInAddr;
var
  HostEnt: PHostEnt;
  InAddr: TInAddr;
begin
  if name[4] = '.' then
    InAddr.s_addr := inet_addr(PChar(name))
  else
  begin
     HostEnt := gethostbyname(PChar(name));
     FillChar(InAddr, SizeOf(InAddr), 0);
    if HostEnt <> nil then
    begin
        with InAddr, HostEnt^ do
      begin
        S_un_b.s_b1 := h_addr^[0];
        S_un_b.s_b2 := h_addr^[1];
        S_un_b.s_b3 := h_addr^[2];
        S_un_b.s_b4 := h_addr^[3];
      end;
    end
  end;
  Result := InAddr;
end;

Не выходит, приходит мусор. Может еще варианты есть? Или я где-то ошибся с реализацией?

ASGDeveloper

Дата 23.8.2006, 12:13 (ссылка)

(нет голосов)

Загрузка ...

developer

Профиль
Группа: Участник
Сообщений: 389
Регистрация: 1.4.2006

Репутация: нет
Всего: 1

Все, нашел решение через NMHTTP.
Большое спасибо Snowy и Matematik!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »