Hoy eh terminado este simple cliente FTP el codigo es el siguiente
#!usr/bin/perl
#FTP Manager
#(C) Doddy Hackman 2010
use Net::FTP;
&head;
print "\n\n[FTP Server] : "; chomp (my $ftp = <stdin>); chomp (my $user = <stdin>); chomp (my $pass = <stdin>);
if (my $socket = Net::FTP->new($ftp)) {
if ($socket->login($user,$pass)) {
print "\n<ul class="bbc_list
"><li type="square
"> Enter of the server FTP\n\n";[/li
][/list
]
menu:
chomp (my $cmd = <stdin>);
if ($cmd=~/help/) {
help : show information
cd : change directory <dir>
dir : list a directory
mdkdir : create a directory <dir>
pwd : directory
rename : change name of the a file
<file1> <file2> size : size of the a file <file>
put : upload a file <file>
get : download a file <file>
cdup : change dir <dir>
);
}
if ($cmd=~/dir/ig) {
if (my @files = $socket->dir()) {
for(@files) {
print "</li><li type="square
"> ".$_."\n";[/li
][/list
] }
} else {
print "\n\n[-] Error\n\n"; }
}
if ($cmd=~/pwd/ig) {
print "</li><li type="square
"> Path : ".$socket->pwd()."\n";[/li
][/list
] }
if ($cmd=~/cd (.*)/ig) {
if ($socket->cwd($1)) {
print "</li><li type="square
"> Directory changed\n";[/li
][/list
] } else {
print "\n\n[-] Error\n\n"; }
}
if ($cmd=~/cdup/ig) {
if (my $dir = $socket->cdup()) {
print "\n\n</li><li type="square
"> Directory changed\n\n";[/li
][/list
] } else {
print "\n\n[-] Error\n\n"; }
}
if ($cmd=~/del (.*)/ig) {
print "</li><li type="square
"> File deleted\n";[/li
][/list
] } else {
print "\n\n[-] Error\n\n"; }
}
if ($cmd=~/rename (.*) (.*)/ig
) { print "</li><li type="square
"> File Updated\n";[/li
][/list
] } else {
print "\n\n[-] Error\n\n"; }
}
if ($cmd=~/mkdir (.*)/ig
) { if ($socket->mkdir($1)) { print "\n\n</li><li type="square
"> Directory created\n";[/li
][/list
] } else {
print "\n\n[-] Error\n\n"; }
}
if ($cmd=~/rmdir (.*)/ig
) { if ($socket->rmdir($1)) { print "\n\n</li><li type="square
"> Directory deleted\n"; [/li
][/list
] } else {
print "\n\n[-] Error\n\n"; }
}
copyright();
}
if ($cmd=~/get (.*) (.*)/ig) {
print "\n\n</li><li type="square
"> Downloading file\n\n";[/li
][/list
] if ($socket->get($1,$2)) {
print "</li><li type="square
"> Download completed";[/li
][/list
] } else {
print "\n\n[-] Error\n\n"; }
}
if ($cmd=~/put (.*) (.*)/ig) {
print "\n\n</li><li type="square
"> Uploading file\n\n";[/li
][/list
] if ($socket->put($1,$2)) {
print "</li><li type="square
"> Upload completed";[/li
][/list
] } else {
print "\n\n[-] Error\n\n"; }
}
} else {
print "\n\n[-] Failed the login\n\n"; }
} else {
print "\n\n[-] Error\n\n"; }
sub head {
print "\n\n -- == FTP Manager == --\n\n"; }
sub copyright {
print "\n\n(C) Doddy Hackman 2010\n\n"; }
# ¿ The End ?
Si lo quieren descargar desde sourceforge
https://sourceforge.net/projects/ftpmanager/
Similar topics (5)
Septiembre 02, 2011, 09:43:36 pm