FTP重新编码！所以我制作了一个小的perl脚本！但是它太慢了

嘿，哥们儿们，我正在试图恢复我在ftp服务器上丢失的通行证，所以我制作了一个简单的perl程序来恢复它

但是它看起来很慢。。有没有办法加快速度？？？ 使这段代码正常工作，因为在5-9次传递尝试后，它会停止， 它收到一个超时发生！！！请帮帮我`

#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   ]

这是我的代码！ 严格使用； 使用警告； 使用Net：：FTP； my$host='127.0.0.1'； 我的$user='amely'； my$dic=$ARGV[0]；

---

打开（FH，该超时可能是FTP服务器看到有人试图暴力破解密码，从而使其速度减慢。这将减慢任何试图破解密码的攻击。虽然这是一件好事，但它当然也会减慢您破解自己密码的良好尝试，因为它们与恶意攻击无法区分。

Yo你使用过：

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

我只是好奇，为什么要使用

last如果

即使你想迭代日志文件中的所有密码和一个以上的点，你也应该在工作完成后断开FTP连接。用下面的代码替换上面的代码：

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