Модераторы: 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   Вверх
ВоВеЦ
Дата 27.7.2006, 21:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Мне не само строенние протокола надо, а оперированние им в Делфи, вот с этим если можете то помогите хелпами, мануалами, документациями... 
PM MAIL   Вверх
drkot
Дата 28.7.2006, 10:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
хелп по инди.

Цитата(ВоВеЦ @  27.7.2006,  21:48 Найти цитируемый пост)
Мне не само строенние протокола надо

а как ты собираешся работать не зная основ протокола? 


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


Шустрый
*


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

Репутация: 1
Всего: 3
ВоВеЦ, 
Мана по Indy даже не ищи, в хелпе боландовском почти нифига нет а гуглом я 100мб трафика перевела тпытаясь хоть что-то найти. 

Присоединяюсь к просьбе ВоВца, Если у кого есть ман по Инди очень прошу выложить
а если есть ман по Indy в Билдере, то очень большая просьба выложить. 
--------------------
Даже если тебя съели, то все равно есть два выхода.42Team блог
PM MAIL WWW ICQ GTalk   Вверх
drkot
Дата 28.7.2006, 10:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
Friackazoid, может стоило на официальный сайт зайти прежде чем
Цитата(Friackazoid @  28.7.2006,  10:55 Найти цитируемый пост)
 а гуглом я 100мб трафика перевела

 


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


Шустрый
*


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

Репутация: нет
Всего: нет
drkot а с чего ты взял что я не знаю основ протокола
 
PM MAIL   Вверх
Демо
Дата 28.7.2006, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 50
Цитата(Friackazoid @  28.7.2006,  10:55 Найти цитируемый пост)
Если у кого есть ман по Инди очень прошу выложить


http://forum.vingrad.ru/index.php?showtopic=85659

Оригинальная документация - на сайте http://www.indyproject.org/Sockets/index.en.aspx


ВоВеЦ, 

Ты все-таки раздели вопросы, а не мешай их в кучу.
На каждый вопрос в отдельности проще найти ответ, нежели сразу на всё. 


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


Шустрый
*


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

Репутация: нет
Всего: нет
А есть у кого нибудь книжеца поверхности Indy, а то по FTP протоколу там ничего путного =))
На самом деле книжеца неплохая, буду листать может что нарою
Демо спс! 
PM MAIL   Вверх
drkot
Дата 31.7.2006, 11:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
Цитата(ВоВеЦ @  28.7.2006,  18:28 Найти цитируемый пост)
с чего ты взял что я не знаю основ протокола


частично поэтому.
Цитата(ВоВеЦ @  27.7.2006,  21:48 Найти цитируемый пост)
Мне не само строенние протокола надо


Цитата(ВоВеЦ @  26.7.2006,  23:23 Найти цитируемый пост)
Как ни пеши, выдаёт ошибку в том то и проблема...


в остальном из поста вцелом.

Если бы ты знал протокол такого вопроса у тебя бы не возникло и пользовался бы не инди, а напрямую сокетом.

Мне каца на все твои вопросы дали вразумительные ответы, а то что ты сам думать стесняешся так....
 


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


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
есть "Глубины Инди" могу выложить, но по фтп там мало , имхо лучший вариат хелп по индейцам

Добавлено @ 12:15 
http://forum.vingrad.ru/index.php?showtopic=85406

Добавлено @ 12:16 
http://www.indyproject.org/Sockets/Docs/index.en.aspx  

Это сообщение отредактировал(а) Romikgy - 31.7.2006, 12:18


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
ВоВеЦ
Дата 2.8.2006, 00:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Вообщем вот мои начинания, начал я с малого, в этом коде должна просканится 75 подсеть моей сети на анонимной доступ ФТП, но прога не компилится, а вылетает причём не выдавая никаких ошибок, в чём может быть дело?
Код

procedure TMainForm.ConnectButtonClick(Sender: TObject);
var
  A: Integer;
  B: Integer;
  C: Integer;
  D: Integer;
begin
 A:=192;
 B:=168;
 C:=75;
 for D:=StrToInt(GOEdit.Text) to StrToInt(ENDEdit.Text) do
  begin
 IdFTP1.Host:= IntToStr(A) + '.' + IntToStr(B) + '.' + IntToStr(C) + '.' + IntToStr(D);
 IdFTP1.Username:=UserIDEdit.Text;
 IdFTP1.Password:=PasswordEdit.Text;
 IdFTP1.Connect;
 if  IdFTP1.Connected then
 Memo1.Lines.Add(IntToStr(A) + '.' + IntToStr(B) + '.' + IntToStr(C) + '.' + IntToStr(D) + 'открыт для анонимного доступа');
 IdFTP1.Disconnect;
  end;
 end;
end.


P.S. За глупости в коде, если они присутствуют сильно  не ругайте,  это моя первая прога smile 
PM MAIL   Вверх
drkot
Дата 2.8.2006, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
Это и должно быть первым постом.  smile 

Ну и где она не компилится? (я конечно не компилятор но явных боков не заметил)


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


Шустрый
*


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

Репутация: нет
Всего: нет
Знал бы где не компилится, не спрашивал бы smile 
Где то косяки всётки есть....
PM MAIL   Вверх
drkot
Дата 2.8.2006, 13:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
Цитата(ВоВеЦ @  2.8.2006,  12:43 Найти цитируемый пост)
Знал бы где не компилится, не спрашивал бы

Так что компилятор морозится, ошибок не повазывает и не компилит?


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


Шустрый
*


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

Репутация: нет
Всего: нет
Цитата(drkot @ 2.8.2006,  13:14)

Так что компилятор морозится, ошибок не повазывает и не компилит?

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


Ищущий
***


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

Репутация: нет
Всего: 8
Цитата(ВоВеЦ @  2.8.2006,  14:25 Найти цитируемый пост)
Так что компилятор морозится, ошибок не повазывает и не компилит?
ДА

тогда надо поискать библиотечку hands.dll, установить ее и должно заработать.



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


Шустрый
*


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

Репутация: нет
Всего: нет
А тебе бы надо удалить одну библиотеку под именем c_osril_chtol.dll
Странно, собрал заново всё откомпилилась нормально, хотя тоже самое...
Теперь буду думать как диапазон подсетей перебирать...
PM MAIL   Вверх
ВоВеЦ
Дата 2.8.2006, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Проверил прогу на работоспособность, код работает, но не корректно, тоесть не выводит фтп с анонимным доступом, в чём же дело, подскажите если не трудно smile При не удачном коннекте прога рушится, а мне надо чтоб она проверяла следуюшие адресса...

Это сообщение отредактировал(а) ВоВеЦ - 2.8.2006, 16:57
PM MAIL   Вверх
Romikgy
Дата 2.8.2006, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
Цитата(ВоВеЦ @ 2.8.2006,  15:54)
Проверил прогу на работоспособность, код работает, но не корректно, тоесть не выводит фтп с анонимным доступом, в чём же дело, подскажите если не трудно smile При не удачном коннекте прога рушится, а мне надо чтоб она проверяла следуюшие адресса...

try except finally 
те в руки
от рушения прог


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
drkot
Дата 2.8.2006, 18:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
а тебя админы бить не пытались за такие проги?

Цитата(ВоВеЦ @  2.8.2006,  14:37 Найти цитируемый пост)
c_osril_chtol.dll

расшифруй плз. долго думал но ни одной пушистой мысли. на каком языке хоть написал.

Цитата(ВоВеЦ @  2.8.2006,  16:54 Найти цитируемый пост)
не выводит фтп с анонимным доступом, в чём же дело,

а счего ты взял что он логинется? или что фтр аноним?
проверь на конкрерном.

ЗЫЖ при постройке самолета каждый модуль проверяется в отдельности, а только потом собирается в единое целое. Это нужно дабы избежать 
Цитата(ВоВеЦ @  2.8.2006,  16:54 Найти цитируемый пост)
Проверил прогу на работоспособность, код работает, но не корректно,

начни с простого если будет работать усложняй иначе твой самолет не взлетит.


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


Шустрый
*


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

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

а тебя админы бить не пытались за такие проги?


Пытались... Админы убежали=) И чё же инетерестно такого, в этой проги? 

Цитата

расшифруй плз. долго думал но ни одной пушистой мысли. на каком языке хоть написал.


 smile  t поставь между s и r, а нижнее подчёркивание это пробелы, а язык известный что то среднее между английским и русским

Цитата

а счего ты взял что он логинется? или что фтр аноним?
проверь на конкрерном.


Я проверял в своей подсети, а в ней анонимных ФТП хватает, если начать перебор с заранее известным ФТП с анонимным доступом, то он выводит в мемо, а на следуешем IP на каторм нет ФТП прога рушится, с ошибкой превышен интервал времени

Цитата

начни с простого если будет работать усложняй иначе твой самолет не взлетит.


Ну если не заметил, я как бы это и делаю

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


Ищущий
***


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

Репутация: нет
Всего: 8
Romikgy, посоветовал от 
Цитата(ВоВеЦ @  2.8.2006,  18:50 Найти цитируемый пост)
прога рушится,

других вариантов кажись нет.

для упрощения работы с ип адресами используй idcalculator (или чтото около того).


Цитата(ВоВеЦ @  2.8.2006,  14:37 Найти цитируемый пост)
Теперь буду думать как диапазон подсетей перебирать...

вложенные циклы для каждой части ип адресса

Цитата(ВоВеЦ @  2.8.2006,  18:50 Найти цитируемый пост)
Ну если не заметил, я как бы это и делаю

нет не заметил. исходник один и не работает. smile 

Цитата(ВоВеЦ @  2.8.2006,  18:50 Найти цитируемый пост)
И чё же инетерестно такого, в этой проги?

ты просто скажи админам что сканер портов пишеш. если админы "сурьезные" то сразу тя от сети отрубят.


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


Шустрый
*


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

Репутация: нет
Всего: нет
Наверно в моём случее этот вариант не поможет, запихнул этот код исключенния, тажа ситуация с превышением времени, я  не правильно выразился прога не рушится, а выдаёт ошибку "Socket Error # 10060 Connection timed out"
Код

try
 IdFTP1.Connect;
 if  IdFTP1.Connected then
 except (finally)


Чё за  idcalculator такой?

Цитата

ты просто скажи админам что сканер портов пишеш. если админы "сурьезные" то сразу тя от сети отрубят


Блин это же не сканер уязвимостей smile 

Это сообщение отредактировал(а) ВоВеЦ - 2.8.2006, 19:43
PM MAIL   Вверх
drkot
Дата 2.8.2006, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
Цитата(ВоВеЦ @  2.8.2006,  19:34 Найти цитируемый пост)
Чё за  idcalculator такой?

на закладке микс инди. позволяет работать и конвертировать ип адресс в различные форматы (типы если так можно скасать).

Цитата(ВоВеЦ @  2.8.2006,  19:34 Найти цитируемый пост)
а выдаёт ошибку "Socket Error # 10060 Connection timed out"

а ты ее вне IDE запусти и ошибка чудесным образом пропадет. Или отключи в настройках проверку ошибок.

Цитата(ВоВеЦ @  2.8.2006,  19:34 Найти цитируемый пост)
Блин это же не сканер уязвимостей

потенциально вредоносная программа.
проверка на наличие открытого порта есть первый шаг при получении несанкционированного доступа.
а у тебя: проверка порта, получение версии установленного ПО, проверка ананимных разрешений.
следующее по-порятку действия: использование уязвимостей ПО (или подбор пары логин/пароль)
Тоесть твоей программе до полноценного взломщика нехватает одного шага.  smile 

Это не упрек просто надо трезво оценивать вероятность стука в дверь  smile . Это шутка. Но в каждой шутке есть доля шутки.



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


Шустрый
*


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

Репутация: нет
Всего: нет
Цитата
а ты ее вне IDE запусти и ошибка чудесным образом пропадет. Или отключи в настройках проверку ошибок.


В не IDE? Без окошка чтоль? Поподробней если можно...  А как мне добраться до этих настроек, и какой пункт надо отключить?
PM MAIL   Вверх
drkot
Дата 3.8.2006, 12:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
вне IDE это - вне вседы Delphi (не через оболочку, а напрямую из проводника скажем).

Настройки - Project - Options - Compiler и далее твори что душе угодно


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


Шустрый
*


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

Репутация: нет
Всего: нет
drkot и Romikgy спасибо!
Теперь вроде нормально работает, ток перебирает долго, но это не важно.
Но проблемы на этом не закончились, мне надо чтоб перебирало ещё диапазон подсетей, тоесть цикл в цикле, вообщем чтоб сначала выполнялся 1ый цикл, как он закончится, выполнялся 2ой, как заканчивается 2ой, дожен переключится заново 1ый, ну вы меня поняли надеюсь=)) Полазил по всяким документациям ненашёл ни чё подобного, надеюсь мне и с этим поможите

Это сообщение отредактировал(а) ВоВеЦ - 4.8.2006, 03:36
PM MAIL   Вверх
Romikgy
Дата 4.8.2006, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
создай н-ное число потоков в них и перебирай

Добавлено @ 11:17 
1 поток - 1 подсеть


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
drkot
Дата 4.8.2006, 12:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
делал 5 потоков. при запуске поток берет ип адресс из стека, отрабатывает и завершается. основной поток следит чтоб сканирующих потоков было 5 (или любое другое число). 
Потокос может быть и больше, но смысла в большом числе потоков практически нет тк большенство из них будут висеть на таймауте.
Для ускотения можно:
  1. произвести запрос ДНС 
  2. послать ПИНГ
  3. попытаться законектится

на первых двух шагах можно фильтровать "пустые" адреса (нет смысла конектится если на другой стороне никого нет)


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


Шустрый
*


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

Репутация: нет
Всего: нет
Сложновато с этими потокоми чёт у меня, но всё таки кое что попробывал, вот мои изменния

Добавил процедуру:
Код

procedure cikl;
var
th:cardinal;
i:integer;
begin
for i:= 1 to 254 do
end;


Поток:
Код

for D:= beginthread(nil,1024,@cikl,nil,0,th);


На этой строчки вылезает следующий еррор [Error] Unit1.pas(51): Incompatible types: 'TThreadFunc' and 'Pointer'   В примере взятым с DRKB вылетает тажа ошибка... Что делать smile 
И если можете, то объясните что значут параметры в скобочках.

ПИСИ: И  всё таки не лучше будет обойтись без потоков, ведь я думаю не так сложно сделать то, что я просил выше, мне не важна скорость, а много похожего кода(в случии с потоками) я не одобряю


Это сообщение отредактировал(а) ВоВеЦ - 6.8.2006, 01:28
PM MAIL   Вверх
ВоВеЦ
Дата 6.8.2006, 19:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Я бывает временами фигею от Делфи, попробывал ещё раз откомпилировать свою программку, причём совершенно ни че не менял в ней, откомпилировалась на ура, ни одной ошибки, как это понимать... Но вопрос насчёт перебора IP'шников без потоков пока не снимается, мод подскажите...

Это сообщение отредактировал(а) ВоВеЦ - 7.8.2006, 00:41
PM MAIL   Вверх
Romikgy
Дата 8.8.2006, 09:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
Цитата(ВоВеЦ @  6.8.2006,  18:51 Найти цитируемый пост)
Но вопрос насчёт перебора IP'шников без потоков пока не снимается, мод подскажите...

а че без потоков?


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
ВоВеЦ
Дата 9.8.2006, 19:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Вообщем сделал без потоков, т.к. цикл в потоке выдавал значения не от 1 до 254, а ~2000 и по убывающей.... 
Такой вопрос ещё у меня возник в строчке такого кода:
Код

if idFTP1.DirectoryListing[s].ItemType = ditDirectory then

Вылетает ерорр такого вида:
[Error] Unit1.pas(61): Undeclared identifier: 'ditDirectory'
Может подскажете что поправить надо?


Это сообщение отредактировал(а) ВоВеЦ - 9.8.2006, 19:07
PM MAIL   Вверх
Fixin
Дата 9.8.2006, 22:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ёжик
***


Профиль
Группа: Комодератор
Сообщений: 1357
Регистрация: 6.1.2004

Репутация: 5
Всего: 18
Цитата(ВоВеЦ @  9.8.2006,  19:03 Найти цитируемый пост)
 Undeclared identifier: 'ditDirectory'
ты не определил переменную и все.



--------------------
Пользуйтесь ссылкой <<решенный\нерешенный вопрос>>
IRC-канал Винграда
PM MAIL ICQ   Вверх
ВоВеЦ
Дата 9.8.2006, 23:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Если фаил папка то... - вот чё делает это срока и как то странно если это будет переменной, это парметром походу должно быть, ну если я ошибаюсь, тогда какого типа должна быть переменная? Может в uses модуль какой добавить надо?

Это сообщение отредактировал(а) ВоВеЦ - 10.8.2006, 00:43
PM MAIL   Вверх
drkot
Дата 10.8.2006, 11:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
Цитата(ВоВеЦ @  6.8.2006,  01:25 Найти цитируемый пост)
[Error] Unit1.pas(51): Incompatible types: 'TThreadFunc' and 'Pointer' 

надо так описывать
Код

function MainServiceThread(var argv : array of PChar):DWord;

Цитата(ВоВеЦ @  9.8.2006,  19:03 Найти цитируемый пост)
[Error] Unit1.pas(61): Undeclared identifier: 'ditDirectory'

таки найди модуль в котором определениа эта константа.

ЗЫЖ прям как маленький  smile неужели такие вещи надо спрашивать (во всех приведенных ошибках компилятор дал исчерпывающие коментарии + F1)

Добавлено @ 11:25 
Цитата(ВоВеЦ @  9.8.2006,  19:03 Найти цитируемый пост)
т.к. цикл в потоке выдавал значения не от 1 до 254, а ~2000 и по убывающей....

наверняка напутал быть такого не могет.
Цитата(ВоВеЦ @  6.8.2006,  19:51 Найти цитируемый пост)
Я бывает временами фигею от Делфи,

ты на делфю не гони (она кенечно глючит временами но редко и легко устранимо). Я встречал глюки только при использовании OLE в крупных проектах и то редко.


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


Шустрый
*


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

Репутация: нет
Всего: нет
drkot я не предстовлял в чём могут быть выражены такие ошибки, вот и спрашивал, теперь подобных вопросов не будет или ты хочеш сказать когда ты писал свою первую прогу у тебя не возникало таких глупых(для разбирающегося кодера) вопросов?

А насчёт потоков лучше привидите пример тогда их использования с таким вызовом функций 
Код
function MainServiceThread(var argv : array of PChar):DWord;

К примеру с 3 циклами,каждый в потоке, каторые будут выводить конечное значение тогда я наверника разберусь, а всё что в инете находил муть какая та...

Цитата
наверняка напутал быть такого не могет

Если не вериш проверь, запусти цикл от 1 до 254 например, через такой поток  h1 := beginthread(nil, 1024, @cikl, nil, 0, th1); и выведи его в memo, значения получится не те каторые заданы в цикле

Цитата
ты на делфю не гони (она кенечно глючит временами но редко и легко устранимо). Я встречал глюки только при использовании OLE в крупных проектах и то редко.


Да, эти глюки легко устранимы, но они есть, так что никто тебе тут  не гонит
PM MAIL   Вверх
drkot
Дата 10.8.2006, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
Цитата(ВоВеЦ @  10.8.2006,  15:19 Найти цитируемый пост)
ты хочеш сказать когда ты писал свою первую прогу у тебя не возникало таких глупых(для разбирающегося кодера) вопросов?

у меня была книжка с описанием "глупых" ошибок компилятора.  А интернета тогда в нашей стране еще небыло чтоб их на форумах задавать, вот и приходилось мозг напрягать.  smile 

Цитата(ВоВеЦ @  10.8.2006,  15:19 Найти цитируемый пост)
Если не вериш проверь, запусти цикл от 1 до 254 например

Без обид, но щас все брошу и начну сочинять код который ты написал. С вероятностью 90% он будет отличаться от того что ты наваял. Следовательно вероятность подобной ошибки будет сведена к 0.
Если хочеш совет выкладывай код, его посмотрят. А писать прогу с целью воспроизводства твоих ошибок выглядит глупо. smile

Цитата(ВоВеЦ @  10.8.2006,  15:19 Найти цитируемый пост)
А насчёт потоков лучше привидите пример тогда их использования с таким вызовом функций

у тебя не правильно описана главная функция потока отсюда и глюки. Работа со стеком некоректна.
Наверняка там где ты смотрел описание работы 
Цитата(ВоВеЦ @  6.8.2006,  01:25 Найти цитируемый пост)
beginthread

было описание и входной функции (только ты его незаметил).

Цитата(ВоВеЦ @  10.8.2006,  15:19 Найти цитируемый пост)
Да, эти глюки легко устранимы, но они есть, так что никто тебе тут  не гонит

это единственный глюк который я встретил (после компиляции возникает runtime ошибка OLE) и исправляется путем удаления проблемного модуля из проекта и вновь его добавлением. Именно глюк без ошибок в коде. 

А утебя это неизвесно чем вызвано ибо голые стова ни примера ошибок ни кода (может у тебя проект запущен был вот и возникла ошибка компиляции).


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


Шустрый
*


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

Репутация: нет
Всего: нет
Цитата
у меня была книжка с описанием "глупых" ошибок компилятора.  А интернета тогда в нашей стране еще небыло чтоб их на форумах задавать, вот и приходилось мозг напрягать. 


Ну старичёк, мозг напрягать приходится всегда, независимо есть инет или нет smile 

Цитата
Без обид, но щас все брошу и начну сочинять код который ты написал. С вероятностью 90% он будет отличаться от того что ты наваял. Следовательно вероятность подобной ошибки будет сведена к 0.
Если хочеш совет выкладывай код, его посмотрят. А писать прогу с целью воспроизводства твоих ошибок выглядит глупо.


Код каторый в 3 действия я думаю мало чем то глобальным изменится, даже в твоём понимании его алгоритма smile 1 Цикл 2 поток 3 вывод, поток я уже писал как вызывал, а насчёт 1ого и 2ого я думаю врятли можно так накодить что  конечный результат будет отвлечаться от моего. Следовательно по моему мнения аероятность ошибки будет очень большая

Цитата
у тебя не правильно описана главная функция потока отсюда и глюки. Работа со стеком некоректна.
Наверняка там где ты смотрел описание работы 


Может быть, надо глянуть...
PM MAIL   Вверх
ВоВеЦ
Дата 13.8.2006, 06:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
В моём первом посте был вот такой пункт:
2)Получения списка директорий ФТП с разрешенным анонимном входом.... И закачка файла в диру( ТЕКСТОВЫЙ ФАИЛ С ИНФОЙ, А НЕ ВИРУС, КАК МНОГИЕ МОГУТ ПОДУМАТЬ!!!)

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

var
 Dir: String; 
  DL: TStringList; 
  i: integer; 
begin 
    DL:=TStringList.Create; 
    idFTP.ChangeDir(Dir); 
    idFTP.List(DL); 
    i:=0; 
    while i <= idFTP.DirectoryListing.Count-1 do 
          begin 
               if idFTP.DirectoryListing[i].ItemType = ditDirectory then 
                  begin
     IdFTP.Put('file.txt','info.txt');
     idFTP.ChangeDirUp; 
     DL.Free; //







Это сообщение отредактировал(а) ВоВеЦ - 13.8.2006, 06:09
PM MAIL   Вверх
Fixin
Дата 13.8.2006, 16:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ёжик
***


Профиль
Группа: Комодератор
Сообщений: 1357
Регистрация: 6.1.2004

Репутация: 5
Всего: 18
Модератор: может, тему в "Дельфи:Сети" отправить?


--------------------
Пользуйтесь ссылкой <<решенный\нерешенный вопрос>>
IRC-канал Винграда
PM MAIL ICQ   Вверх
ВоВеЦ
Дата 13.8.2006, 22:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Отправляйте куда хотите, ток подскажите  smile 

Вопрос для вас-профессианалов проще некуда, как перебрать названия всех папок на серве, хелп ми и тему можно закрывать. Очень надеюсь на вашу помощь! 

Это сообщение отредактировал(а) ВоВеЦ - 14.8.2006, 01:31
PM MAIL   Вверх
drkot
Дата 14.8.2006, 12:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


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

Репутация: нет
Всего: 8
Цитата(ВоВеЦ @  13.8.2006,  04:10 Найти цитируемый пост)
у старичёк, мозг напрягать приходится всегда, независимо есть инет или нет

сарказм непонятен. 

Цитата(ВоВеЦ @  13.8.2006,  04:10 Найти цитируемый пост)
Может быть, надо глянуть...

сажалею что приходится повторяться, но заголовок функции потока соггасно решению дяди Била выглядит так:
Цитата(drkot @  10.8.2006,  11:20 Найти цитируемый пост)
код Pascal/Delphi1:function MainServiceThread(var argv : array of PChar):DWord;

если принципиальные различия с твоим кодом
Цитата(ВоВеЦ @  6.8.2006,  01:25 Найти цитируемый пост)

procedure cikl;
var
  th:cardinal;
  i:integer;
begin
for i:= 1 to 254 do
end;

D:= beginthread(nil,1024,@cikl,nil,0,th);

тебе непонятны, то дальше движения уже не будет. 

Цитата(ВоВеЦ @  13.8.2006,  22:33 Найти цитируемый пост)
Вопрос для вас-профессианалов проще некуда, как перебрать названия всех папок на серве, хелп ми и тему можно закрывать. Очень надеюсь на вашу помощь! 

обход дерева на фтп аналогичен обходу на локальном диске.
что тебе не понятно?
или тебе леньки код написать?


Это сообщение отредактировал(а) drkot - 14.8.2006, 12:28


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


Шустрый
*


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

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

сарказм непонятен. 

Потому что это не сарказм, я тут не над кем не насмехаюсь

Цитата

обход дерева на фтп аналогичен обходу на локальном диске.
что тебе не понятно?
или тебе леньки код написать?


Зачем изобретать велосипед. Я же не прошу писать для меня код, а просто выдрать часть кода из какой нибудь программы где есть похожая процедура, пока всё что я пробывал работало некорректно

Это сообщение отредактировал(а) ВоВеЦ - 14.8.2006, 17:04
PM MAIL   Вверх
Fixin
Дата 14.8.2006, 23:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ёжик
***


Профиль
Группа: Комодератор
Сообщений: 1357
Регистрация: 6.1.2004

Репутация: 5
Всего: 18
Цитата(ВоВеЦ @  14.8.2006,  17:00 Найти цитируемый пост)
всё что я пробывал работало некорректно
Пока что ты добился только темы в 59 сообщений и при этом умудрился получит нерабочий код? не кажется ли, что быстреебы сам разобраля, это во-первых, а во-вторых, поиск элементарных алгоритмов сводится к 2м-3м запросам к поисковику.



--------------------
Пользуйтесь ссылкой <<решенный\нерешенный вопрос>>
IRC-канал Винграда
PM MAIL ICQ   Вверх
ВоВеЦ
Дата 15.8.2006, 00:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Я кода тут вообще не получал никакого, только алгоритмы smile Я сам разбираюсь понемного, но и жду некоторой помощи, и уж поверь в поисковиках я облазил очень много сайтов, но не то что нужно. Если мне надо было бы просто вывести список токого вида
Код

...
drw-rw-rw- 1 user group 0 jun 28 07:27 FAQ
...

То проблем бы небыло, но мне надо выделить только название всех папок FTP, и по очереди их запихнуть в 
Код

IdFTP.ChangeDir('/' + d);


где d - это переменная в каторой осуществляется обход имён директорий присутствующих на FTP

Fixin если ты говариш подобный алгоритм можно найти 2мя - 3мя запросами, то попробуй поискать...
И вы думаете что я не сижу сам не разбираюсь, а жду ответа только. Я уже хрен знает какую ночь сижу и толку не много
PM MAIL   Вверх
Fixin
Дата 15.8.2006, 12:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ёжик
***


Профиль
Группа: Комодератор
Сообщений: 1357
Регистрация: 6.1.2004

Репутация: 5
Всего: 18
Мой первый запрос к поисковику


--------------------
Пользуйтесь ссылкой <<решенный\нерешенный вопрос>>
IRC-канал Винграда
PM MAIL ICQ   Вверх
ВоВеЦ
Дата 15.8.2006, 15:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Хорошо, а с IdFTP тогда как это связать?
PM MAIL   Вверх
ВоВеЦ
Дата 17.8.2006, 17:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Вообщем нихрена я не понял, и вправду эти ~60 постов темы в пустую.... Тему можно закрывать smile 

Это сообщение отредактировал(а) ВоВеЦ - 17.8.2006, 17:06
PM MAIL   Вверх
Fixin
Дата 19.8.2006, 22:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ёжик
***


Профиль
Группа: Комодератор
Сообщений: 1357
Регистрация: 6.1.2004

Репутация: 5
Всего: 18
Не обижайся, подумай на тем, что имеешь, выдели главное, подумай еще. поробуй реализовать. при неудачной реализации ты получаешь конкретные проблемы, вот с ними и приходи, будем рады, тк каждый решенный вопрос помогает саморазвитию обеих сторон.


--------------------
Пользуйтесь ссылкой <<решенный\нерешенный вопрос>>
IRC-канал Винграда
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

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


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

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

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

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


 




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


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

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