Модераторы: Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Протокол ФТП, всё о нём) 
V
    Опции темы
ВоВеЦ
Дата 24.7.2006, 03:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Привет smile 
Меня интересует следующие нюансы работы с ФТП:
1)Сканер ФТП серверов
2)Получения списка директорий ФТП с разрешенным анонимном входом
3)Проверка на права доступа каждой директории находяшийся на ФТП

Вообще скидывайте сюда всю инфу по работе с ФТП в Делфи или кидайте ссылки

ПИСИ: В DRKB мало инфы по протоколу ФТП, так что тычить на него не надо, желательно на поисковик тоже=) 
PM MAIL   Вверх
Snowy
Дата 24.7.2006, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 4
Всего: 484
Вот тебе комплексная инфа, под названием "поиск"
http://forum.vingrad.ru/index.php?act=Sear...p;#038;skipped=

Добавлено @ 10:11 
Цитата(ВоВеЦ @  24.7.2006,  03:44 Найти цитируемый пост)
1)Сканер ФТП серверов
Создавай 255 тредов. В каждом создавай TIdFTP клиента и пытайся коннектиться.
Если коннекта нет - нету FTP, если есть, переходи к шагу 2.

Цитата(ВоВеЦ @  24.7.2006,  03:44 Найти цитируемый пост)
2)Получения списка директорий ФТП с разрешенным анонимном входом
Цитата(ВоВеЦ @  24.7.2006,  03:44 Найти цитируемый пост)
3)Проверка на права доступа каждой директории находяшийся на ФТП
Получаешь список всех папок (List), пытаешься зайти поочереди в каждую. Удалось - есть доступ, не удалось - нету. 
PM MAIL   Вверх
ВоВеЦ
Дата 24.7.2006, 15:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
ОК, 1ое и частично 2ое можно вычеркнуть из моего первого поста, но с 3им ничего не нашёл
Желательно чтоб привели исходный код получения списка дирекорий с ФТП и проверка каждой папки на права доступа, при разрешении записи, закачка указанного файла, с максимум комментов(новичок блин) 
PM MAIL   Вверх
drkot
Дата 25.7.2006, 10:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
Цитата(ВоВеЦ @  24.7.2006,  15:04 Найти цитируемый пост)
проверка каждой папки на права доступа

права доступа аналогичны правам в юникс системах и получаются в листинге директории (полученый текст нужно парсить чтоб получить отдельные элементы). 
Алгоритм обхода дерева директорий аналогичен локальному.
Пользуйся поиском все уже написано. 


--------------------
Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.
PM   Вверх
ВоВеЦ
Дата 26.7.2006, 18:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Так начнём сначала, т.к. мне это осилить одному всё сложно... Надеюсь что всё таки поможите
Вот код поиска ftp серверов в локалке, как говарилось в теме
Код

procedure TMain.CheckButtonClick(Sender: TObject);    
var    
  i: Integer;    
  Host: String;    
  Pass: String;    
  Uname: String;    
  strP: String;    
  LstrP: Integer;    
  unamep: Integer;    
  hostp: Integer;    
  unamewp: Integer;    
begin    
  for i:= 0 to SourceMemo.Lines.Count -1 do    
    begin    
      StrP:= SourceMemo.Lines.Strings[i];    
      // Парсинг строк    
      hostp:= pos(':', strP);    
      host:= copy(strP, 0, hostp -1);    
      unamewp:= length(host);    
      unamep:= pos(';', strP);    
      uname:= copy(strP, unamewp +2, unamep - (unamewp +2));    
      pass:= copy(strP, unamep + 1, 100);    
      // Проверка Фтп    
      IdFTP.Host:= Host;    
      IdFTP.Username:= Uname;    
      IdFTP.Password:= Pass;    
      try    
      IdFTP.Connect();    
      if IdFTP.Connected = true then    
        begin    
          ResultMemo.Lines.Add('Соединение с ' + Host + ' было установленно');    
          idFTP.Disconnect;    
        end;    
      except    
      if CheckBox1.Checked = false then    
        begin    
          ResultMemo.Lines.Add('Соединение с ' + Host + ' не было установленно');    
        end;    
      if CheckBox2.Checked = true then    
        begin    
          SourceMemo.Lines.Delete(i);    
        end;    
      end;    
      end;    
end;


Ну и где тут отрезок кода в котором бы осуществлялся поиск фтп в локалке, я только нашёл проверку на работаюший фтп или нет и то он заявляет что все сервера не работаюшие, я так понимаю всё дело в этом коде, как сделать вход анонимный
Код

      IdFTP.Host:= Host;    
      IdFTP.Username:= Uname;    
      IdFTP.Password:= Pass;    


ХЕЛП ПЛИЗЗ

 
PM MAIL   Вверх
drkot
Дата 26.7.2006, 18:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
user: anonimous  (если в написании не ошибся)
pass: [email protected] 


--------------------
Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.
PM   Вверх
Matematik
Дата 26.7.2006, 19:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 1
Всего: 50
anonymous 
PM MAIL WWW ICQ   Вверх
drkot
Дата 26.7.2006, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
точно. так и знал что ошибся 


--------------------
Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.
PM   Вверх
ВоВеЦ
Дата 26.7.2006, 23:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Как ни пеши, выдаёт ошибку в том то и проблема...
Но на главный вопрос никто не ответил, где в приведнном коде сканер фтп серверов, помойму его там нет...
Выручайте smile  
PM MAIL   Вверх
Демо
Дата 27.7.2006, 08:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 50
ВоВеЦ, 

За тебя программу написать?
Раздели задачу на этапы и каждый решай в отдельности.
Если что-то не получается конкретное, тогда и задавай вопросы. 


--------------------
    
PM MAIL ICQ Skype   Вверх
ВоВеЦ
Дата 27.7.2006, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Как я могу задать определенный вопрос если я немогу найти код поиска ФТП в локалке не на форуме, не на яндаксе, не на гугле!
А самому мне написать пока очень затруднительно, даже зная алгоритм... 
PM MAIL   Вверх
_hunter
Дата 27.7.2006, 15:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: нет
Всего: 98
значит неправильно ищеш...
ищи "сканер портов" 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
drkot
Дата 27.7.2006, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
Цитата(ВоВеЦ @  27.7.2006,  13:31 Найти цитируемый пост)
А самому мне написать пока очень затруднительно, даже зная алгоритм... 

Таки книжки читай. От того что тебе напишуб ума не прибавится.
Если не можеш написать то что хочеш, напиши сначала попроще с меньшей притензией и постепенно расширяй функциональность.
 


--------------------
Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.
PM   Вверх
ВоВеЦ
Дата 27.7.2006, 17:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Блин лан...
Документацию по ФТП протоколам кто нибудь знает где найти? Кроме DRKB там уже побывал... 
PM MAIL   Вверх
drkot
Дата 27.7.2006, 18:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
http://www.opennet.ru/rfc.shtml
здесь.

Читай RFC там все до мельчайших подробностей.

PS: передтем как задавать вопрос на форуме спроси у гуглы, если ответ неустраивает значит неправильно задан вопрос. 


--------------------
Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.
PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0723 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.