Просмотр сообщений

1

Perl / Вопрос по сокету

« : 30 Марта 2006, 17:31:07 »

cr4ck3r спасибо получилось

2

[root@linux root]# telnet http://www.engcomp.ufrn.br 21
Trying 200.19.167.3...
Connected to http://www.engcomp.ufrn.br (200.19.167.3).
Escape character is \'^]\'.
220 ProFTPD 1.2.10 Server (EngComp/UFRN ftp server) [10.13.97.254]
user ftp
331 Anonymous login ok, send your complete email address as your password.
pass ftp
230 Anonymous access granted, restrictions apply.

по анологии с консолью как мне кажеться должно выводить
230 Anonymous access granted, restrictions apply.
ведь в дескриптор соккета я отправил User ftp; Pass ftp, как мне кажеться сервер должен принять логин и пароль и ответить валиден аккаунт или нет.
Если я ошибаюсь прошу поправить меня

3

Perl / подпрограмма

« : 29 Марта 2006, 21:27:08 »

как "экстренно" завершить подпрограмму и вернутся в тело основной программы?

4

Perl / Почему не работает

« : 29 Марта 2006, 19:56:28 »

Похоже он не пашет
Sorry, the server is on maintenance service now. Try to repeat your request later.

5

Perl / Почему не работает

« : 29 Марта 2006, 19:44:51 »

Спасибо NeoNox очень полезную ссылочку дал, жаль что на анг.
не знаешь ли подобного ресурса на русском?

6

Perl / Вопрос по сокету

« : 29 Марта 2006, 19:29:49 »

почему данный скрипт выводит только строку приветствия сервера:

#!/usr/bin/perl
use IO::Socket;
$socket = IO::Socket::INET->new(PeerAddr => "www.engcomp.ufrn.br",
PeerPort => \'21\',
Proto => \'tcp\');
send($socket,"USER ftp\\r\\n",0);
send($socket,"PASS ftp\\r\\n\\r\\n",0);
recv($socket,$otvet,1024,0);
print $otvet;

[root@linux root]# ./1.pl
220 ProFTPD 1.2.10 Server (EngComp/UFRN ftp server) [10.13.97.254]

7

Perl / Почему не работает

« : 29 Марта 2006, 19:05:22 »

Debug =>1
что это значит?

8

Perl / Почему не работает

« : 29 Марта 2006, 18:24:44 »

Вот написал:
#!/usr/bin/perl
use Net::FTP;

$ftp_serv = "ftp.narod.ru"; #к примеру ftp.narod.ru он то всегда работает
$test = Net::FTP->new($ftp_serv) || die print "FTP server no UP\\n"; exit;
open(OUT,">account.txt");
@login = qw{ root mail gretr ftp login};
for($i=0;$1<=4;$i++)
{
   print ("Now $login[$i]\\n");
   ftpcon($ftp_serv,$login[$i]);
}
#######################################
sub ftpcon
{
   $ftp = Net::FTP->new($_[0]);
   if($ftp->login($_[1],$_[1]))
   {
      print OUT "$_[1]:$_[1]\\n";
   }
   close($ftp);
}
#######################################
Но скрипт выводит: FTP server no UP
а на самом деле все АП
В чем проблема? Спасибо

9

Perl / Вопрос по Net::FTP

« : 27 Марта 2006, 17:37:31 »

Алан а ты не пробовал?

10

Perl / Socket

« : 26 Марта 2006, 16:05:30 »

Вот написал скрипт:
#!/usr/bin/perl
use IO::Socket;

open(OUT,">adres.txt");
$begin=153235;
$end=153400;
for ($i=$begin;$i<=$begin+5;$i++)
{
   if ($pid=fork())
   {
      push(@forked,$pid);
   }
   else
   {
      geting($i);
      exit;
   }
}
killall();

################################################
sub geting
{
   $id=$_[0];
   $socket = IO::Socket::INET->new(PeerAddr => \'***.***.***.***\',
    PeerPort => \'80\',
    Proto => \'tcp\');
    print $socket "GET /put/k/skript.jsp?id=$id HTTP/1.1\\r\\n";
    print $socket "Host: host\\r\\n";
    print $socket "Authorization: Basic dXNlcnBhc3M=\\r\\n\\r\\n";
    $socket->recv($answer,1024);
    print OUT $answer;
}
################################################
sub killall
{
foreach $pid (@forked)
{
      chomp;
waitpid($pid,0);
      kill("TERM" => $pid)
}
undef @forked;
}
################################################

Но почему то в файл ответы серва записывались не полностью. Увеличение получаемых байтов не помогло.
($socket->recv($answer,2048)

в чем проблема, всем спасибо

11

Perl / Вопрос по Net::FTP

« : 24 Марта 2006, 00:18:44 »

Кто может обьясните в чем проблема. От скрипта нужно чтобы он выводил "yes" в случае если логин и пас приняты сервером а "no" если логин и пароль неверны
конструкцию с die не предлогать
#!/usr/bin/perl
use Net::FTP;
sub ftpcon
{
   $ftp_serv = $_[0];
   $user = $_[1];
   $pass = $_[2];
   $ftp = Net::FTP->new($ftp_serv) || die "No connecting to Ftp server[ $ftp_serv ]";
   if($ftp->login($user,$pass))
   {
print "yes"
}
   else
{print "no"}
}
ftpcon("ftp.server.ru","ftp","ftp");

12

Perl / Perl & Unix

« : 11 Марта 2006, 23:55:39 »

Здрасте
Скажите пожалусто как можно запустить перл скрипт на LInux\'е через прокси

Или как в скрипте:

#!/usr/bin/perl

use IO::Socket;
open(OUT,">adres.txt");
$id=123;
while($id<555)
{
$socket = IO::Socket::INET->new(PeerAddr => \'***.***.***.***\',
PeerPort => \'80\',
Proto => \'tcp\');
print $socket "GET /put/kscripty/skript.jsp?id=$id HTTP/1.1\\r\\n";
print $socket "Host: http://www.site.ru\\r\\n";
print $socket "Authorization: Basic base64("User:Password")\\r\\n\\r\\n";
while ($answer = <$socket>)
{
print OUT $answer;
}
$id++;
print $id;
close($socket);
}
exit;

сокет создать через поксик
Спасибо за внимание

Новости: