|
|
| System | : | Linux MiraNet 3.0.0-14-generic-pae #23-Ubuntu SMP Mon Nov 21 22:07:10 UTC 2011 i686 |
|---|
| Software | : | Apache. PHP/5.3.6-13ubuntu3.10 |
|---|
| ID | : | uid=65534(nobody) gid=65534(nogroup) groups=65534(nogroup)
|
|---|
|
| Safe Mode | : | OFF |
|---|
| Open_Basedir | : | OFF |
|---|
| Freespace | : | 27.07 GB of 70.42 GB (38.44%) |
|---|
|
|
MySQL: ON MSSQL: OFF Oracle: OFF PostgreSQL: OFF Curl: OFF Sockets: ON Fetch: OFF Wget: ON Perl: ON |
|
Disabled Functions: pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,
|
[ System Info ]
[ Processes ]
[ SQL Manager ]
[ Eval ]
[ Encoder ]
[ Mailer ]
[ Back Connection ]
[ Backdoor Server ]
[ Kernel Exploit Search ]
[ MD5 Decrypter ]
[ Reverse IP ]
[ Kill Shell ]
[ FTP Brute-Force ]
|
|
/
http/
cgi-bin/
radius/
- drwxrwxrwx
|
Viewing file:  top.cgi (2.47 KB) -rwxr-xr-xSelect action/file-type:  ( +) |  ( +) |  ( +) | Code ( +) | Session ( +) |  ( +) | SDB ( +) |  ( +) |  ( +) |  ( +) |  ( +) |  ( +) |
#!/usr/bin/perl
use CGI qw(:standard);
$authl = param("authl");
$authp = param("authp");
system "./auth.cgi $authl $authp";
$retcode = $? / 256;
if ($retcode ne "1") { exit; }
#my $cooke = cookie('mwcc.miranet');
#if ($cooke eq "") {print "<html><meta http-equiv=\"refresh\" content=\"0\"></html>"; exit;}
#if ($cooke eq "0") {print "<html><body><h1>Forbidden</h1><hr>Доступ запрещён"; exit;}
#print "Content-type: text/html\n\n";
print "<html><head><title>MiraNet Wireless Control</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF8\">";
if ($show eq "active") {print "<meta http-equiv=\"Refresh\" content=\"2\" />";}
print "<link type=\"text/css\" rel=\"stylesheet\" media=\"all\" href=\"style.css\" />
</head>
<body bgcolor=#555555 vlink=#ffffff alink=#aaaaaa link=#ffffff>
<center><font color=#ffffff>
<font size=5 face=$fface><b>
MiraNet Wireless панель управления</b></font></center><br><br>
";
#open(patt,"<./top.html")||die "Pattern file 1 not found";
#while(<patt>)
# {
# print;
# }
#close(patt);
#$cellheadbg = "#454545";
#$cellcolor = "#606060";
#$headfont = "#cccc00";
#$table = "#505050";
#$actcolor = "#ffffff";
#$fontcolor = "#dddddd";
#$menucolor = "#ffffff";
#$menubg = "#101010";
#$menuitem = "#303030";
#$errmsg = "ff1010";
#$userwidth = "70%";
print "<font face=\"$fface\">
<table align=center border=0 cellspacing=0 cellpadding=0 width=100% bgcolor=$cellheadbg><tr><center><td>
<table align=center border=0 cellspacing=2 cellpadding=10 bgcolor=$cellheadbg><tr>";
if ($menu eq "accounts") {print "<td bgcolor=$menubg>";} else {print "<td bgcolor=$menuitem>";}
print "<a href=\"index.cgi\"><font color=$menucolor><b>Учётные записи</b></font></a></td>";
if ($menu eq "active") {print "<td bgcolor=$menubg>";} else {print "<td bgcolor=$menuitem>";}
print "<a href=\"log.cgi?show=active\"><font color=$menucolor><b>Активные соединения</b></font></a></td>";
if ($menu eq "groups") {print "<td bgcolor=$menubg>";} else {print "<td bgcolor=$menuitem>";}
print "<a href=\"groups.cgi\"><font color=$menucolor><b>Группы</b></font></a></td>";
if ($menu eq "nas") {print "<td bgcolor=$menubg>";} else {print "<td bgcolor=$menuitem>";}
print "<a href=\"nas.cgi\"><font color=$menucolor><b>NAS</b></font></a></td>";
print "<td bgcolor=$menuitem><a href=\"logout.cgi\"><font color=$menucolor><b>Выход</b></font></a></td>";
print "</tr></table></td></tr></table><br>";
|
