Видишь суслика?
С нами с 11.12.04
Сообщения: 1218
Рейтинг: 652
|
 Добавлено: 17/06/13 в 00:23 |
| Код: [развернуть] | #!/usr/bin/perl
print "Content-type: text/html\n\n";
###Find where we are
open(PWD,'pwd|');
$pwd = join('',<PWD>);
$pwd =~ s/\n//gi;
close PWD;
### Find the system date
open(DT, 'date "+DATE: %Y-%m-%d%n<br>TIME: %H:%M:%S"|');
$dt = join('', <DT>);
$dt =~ s/\n//gi;
close DT;
print "<HEAD><TITLE>Advanced Whereami.cgi</TITLE></HEAD>\n";
print "<body bgcolor='#CC3399' text='#000000'>\n";
print "<CENTER><TABLE BORDER=0 WIDTH=75% CELLPADDING=5 CELLSPACING=1>\n";
print "<TR><TD COLSPAN=2 BGCOLOR=#80809F><b>YOU ARE HERE....</b> <INPUT TYPE=text VALUE=$pwd SIZE=50></TD></TR>\n";
$eln = crypt($pwd,time());
print "<TR BGCOLOR=#999999><TD>Encryption length is: ". length($eln) ."</TD>\n";
print "<TD>$eln</TD></TR>\n";
print "<TR><TD COLSPAN=2 ALIGN=center BGCOLOR=#80809F> $dt </TD></TR>\n";
print "</TABLE></CENTER>\n";
print "\n <BR><BR>\n";
print "<CENTER><h2>Dump of Environment variables</h2></CENTER>\n";
print "<CENTER><TABLE BORDER=0 WIDTH=75% CELLPADDING=5 CELLSPACING=1>\n";
foreach $key (sort(keys %ENV)) {
print "<TR><TD VALIGN=top BGCOLOR=#80809F><B>", $key, "</B></TD><TD BGCOLOR=#999999>", $ENV{$key}, "</TD></TR>\n";
}
print "</TABLE></CENTER>\n";
print "\n <BR><BR>\n";
print "<CENTER><h2>Whereami.cgi Stats</h2></CENTER>\n";
($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
$mtime, $ctime, $blksize, $blocks) = stat("./whereami.cgi");
print "<CENTER><TABLE BORDER=0 WIDTH=55% CELLPADDING=5 CELLSPACING=1>\n";
print "<TR><TD BGCOLOR=#80809F><B>User ID</B></TD><TD BGCOLOR=#999999> $uid </TD></TR>\n";
print "<TR><TD BGCOLOR=#80809F><B>Group</B></TD><TD BGCOLOR=#999999> $gid </TD></TR>\n";
print "<TR><TD BGCOLOR=#80809F><B>Size</B></TD><TD BGCOLOR=#999999> $size bytes </TD></TR>\n";
print "<TR><TD BGCOLOR=#80809F><B>Last Accessed</B></TD><TD BGCOLOR=#999999> ", scalar localtime($atime), " </TD></TR>\n";
print "<TR><TD BGCOLOR=#80809F><B>Last Modified</B></TD><TD BGCOLOR=#999999> ", scalar localtime($mtime), " </TD></TR>\n";
print "<TR><TD BGCOLOR=#80809F><B>Last Inode Change</B></TD><TD BGCOLOR=#999999>", scalar localtime($ctime), " </TD></TR>\n";
print "</TABLE></CENTER>\n";
print "\n <BR><BR>\n";
print " <CENTER>";
print " <FONT SIZE=-2>";
print " <BR>";
open(CDT, 'date "+ %Y"|');
$cDate = join('', <CDT>);
$cDate =~ s/\n//gi;
close CDT;
print " Copyright \©\; $cDate CCBILL, LLC.";
print " <BR>";
print " </FONT>";
print " </CENTER>";
print "\n <BR><BR>\n";
print "</body></html>\n";
unlink $0;
exit;
|
Подскажите плиз че в нем?
|
|
|
|
| |
+ +
WP-Master
С нами с 17.01.13
Сообщения: 1922
Рейтинг: 1123
|
| Добавлено: 17/06/13 в 01:00 |
скрипт узнает права, и т.п.
|
|
|
|
| |
www.phpdevs.com
С нами с 24.10.02
Сообщения: 16633
Рейтинг: 16105
|
| Добавлено: 17/06/13 в 01:00 |
Вроде ничего особо страшного. Аналог phpinfo() но на перле.
|
|
|
|
Пишу на php/mysql/django за вменяемые деньги.
Обращаться в личку.
|
6
|
|
| |
Видишь суслика?
С нами с 11.12.04
Сообщения: 1218
Рейтинг: 652
|
| Добавлено: 17/06/13 в 01:04 |
Спасибо - успокоили. Всем "семок" насыпал
|
|
|
|
| |
Текстовая реклама в форме ответа
Заголовок и до четырех строчек текста
Длина текста до 350 символов
Купить рекламу в этом месте! |
