|
ru.unix
- RU.UNIX ----------------------------------------------------------------------
From : Vitaly Filatov 2:5020/400 09 May 2005 15:19:59
To : All
Subject : Re: ftp servers
--------------------------------------------------------------------------------
Ростислав!
Я у себя в локальной сети использую (для Солярис 8 x86) скрипт:
----------------------- ftp.pl ----------------------
#!/usr/bin/perl
use POSIX ":sys_wait_h";
$| = 1;
sub investigate {
for($i = 1; $i < 255; $i++) {
AGAIN:
if(!defined($kidpid[$i] = fork())) {
print "Cannot fork: $!\n";
select(undef, undef, undef, 10);
goto AGAIN;
} elsif ($kidpid[$i] == 0) {
# childs
open(FTP, "/usr/bin/ftp $net.$i 2>&1|");
$str[0] = <FTP>; chomp($str[0]);
if($str[0] =~ /^Connected to /) {
$str[0] =~ s/Connected to //;
$str[0] =~ s/.$//;
$str[1] = <FTP>; chomp($str[1]);
print "<LI><A HREF=\"ftp://".$str[0]."\"> ftp://".$str[0]."
</A>";
print " "x(20 - length($str[0])).$str[1]." </LI>\n";
}
close(FTP);
exit;
}
}
# parent
select(undef, undef, undef, 10);
@res = `pkill ftp 2>&1`;
select(undef, undef, undef, 10);
}
$net="10.10.205"; investigate();
$net="10.10.165"; investigate();
----------------------- ftp.pl ----------------------
Hе знаю, насколько он крив, но вроде работает. Запускаю так (date
вставил, чтобы было видно сколько он выполняется):
$ date; perl ftp.pl 2>&1 | grep -v '^Terminated' | iconv -f win -t iso; date
Пнд 09 Май 2005 15:07:36
<LI><A HREF="ftp://10.10.205.30"> ftp://10.10.205.30 </A> 220 kisa FTP
server (SunOS 5.8) ready. </LI>
<LI><A HREF="ftp://10.10.205.202"> ftp://10.10.205.202 </A> 220 (vsFTPd
1.2.1) </LI>
<LI><A HREF="ftp://10.10.165.67"> ftp://10.10.165.67 </A> 220 Serv-U FTP
Server v6.0 for WinSock ready... </LI>
<LI><A HREF="ftp://10.10.165.159"> ftp://10.10.165.159 </A> 220 Serv-U FTP
Server v5.2 для WinSock готов... </LI>
Пнд 09 Май 2005 15:08:31
Виталий Филатов
http://members.tripod.com/Vitaly_Filatov
Rostislav Podgorniy сообщил:
> ю Привет, All!
>
> Есть сеть 192.168.0.0/24, к пpимеpу. Есть сpедства, чтобы пpосканить сеть на
> наличие ФТП-сеpвеpов? Вот только, чтобы это сканиpование выполнялось
> более-менее быстpо. Hужно для отобpажения на сайте.
>
> --
> WBR, Rostislav Podgorniy rostislav[@]podgorniy.com icq #709057
>
> ... Местами стать бы Гулливером!
--- ifmail v.2.15dev5.3
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
