Question

嘿dude amigos我试图在我的ftp服务器中恢复丢失的传递，所以我做了一个简单的perl程序来恢复它！

但似乎很慢..有没有办法加快这个？并使此代码正常工作，因为5-9次传递尝试后停止，它收到超时!!! plss帮助我......！

#this is my code!
use strict;
use warnings;
use Net::FTP;

my $host = '127.0.0.1';
my $user = 'amely';
my $dic = $ARGV[0];
open(FH, '<', $dic);
while(<$FH>){
chomp;
my $pass = $_;
my $log = $pass;
my $ftp = Net::FTP->new($host);
last if(
    $ftp->login($user, $log)
    );
    print "Trying: $_ [X]: Failed\n";
}
print "Pass Matched 100%: $_\n";
print <<EOF;
[       ftp://$ARGV[0]      ]
[   Username: $ARGV[1]  ]
[   Password: $_      ]
[   Good day for tuna   ]

谢谢！......

Answer 1

该超时可能是FTP服务器看到试图强制密码并因此减慢密码。这会减慢任何试图破解密码的攻击。虽然这是一件好事，但它当然也会减慢您破坏自己密码的良好尝试，因为它们与不良攻击无法区分。

Answer 2

您使用过：

last if(
    $ftp->login($user, $log)
    );
    print "Trying: $_ [X]: Failed\n";
}

我只是很好奇，为什么你使用last if即使你想要迭代日志文件中的所有密码还有一点，你应该在完成工作后断开FTP连接。将以上代码替换为以下代码：

if($ftp->login($user, $log)) {
    $ftp->disconnect; #Disconnect the current FTP connection
    next;
}
print "Trying: $_ [X]: Failed\n";

FTP Recoving！所以我做了一个小的perl脚本！但它太慢了

2 个答案: