#!/usr/bin/perl -w

# FTP Login Checker v0.1 by Vrs-hCk

use Net::FTP;

if (@ARGV != 3) { print "\n [!] perl $0 <host> <user> <pass>\n"; exit(); }

my $host = $ARGV[0];
my $user = $ARGV[1];
my $pass = $ARGV[2];

print "\n[FTP] Connecting to $host ...\n";

my $login = ftp_login($host,$user,$pass);
if ($login) { print "\n[FTP] $host -> $user:$pass Success\n"; }

sub ftp_login {
	my $hostname = $_[0];
	my $username = $_[1];
	my $password = $_[2];
	my $status   = 0;
	my $ftp = Net::FTP->new($hostname, Debug => 0, Timeout => 2) or die "\n[FTP] Cant connect to $host\n";
	$status = 1 if $ftp->login($username,$password) or die "\n[FTP] $hostname -> ", $ftp->message;
	$ftp->quit;
	return $status;
}