403WebShell

h( )($6;EbBLkfu�_l� ''8;DUFKV3Dd#,?ANk&5G$/(5M\^�ms��Sb�,;R''6c2I�!\��kx�Ve�[i��Me�IYO7:nOL~�Kr�qrv�I:�BM�y��s}r��K��x)1�6@r*2�89ma��&��'ti��{~#��t)1�2<�0:^5�W.uFzQ/u}�v��vv�u��U37yDJeEJo(/�5Ds'1�:Jlu�iy�iy�hw�1;:S`^BMLOQQn,4�7C�8C�>Lfe�]k�[i�Zg��IW�LZ�EP;,.��Tc�q(0) G,/]/1��w�r��l&-t*3�<<�u��#��j&.u��J68\8?"#$%&'()*+,-./0 !
Notice: Undefined index: dl in /var/www/html/web/simple.mini.php on line 1
403WebShell403Webshell

Server IP : 10.254.12.21 / Your IP : 10.254.12.21
Web Server : Apache/2.4.6 (CentOS) OpenSSL/1.0.2k-fips PHP/5.6.40
System : Linux arit.skru.ac.th 3.10.0-1160.76.1.el7.x86_64 #1 SMP Wed Aug 10 16:21:17 UTC 2022 x86_64
User : apache ( 48)
PHP Version : 5.6.40
Disable Function : NONE
MySQL : ON | cURL : ON | WGET : OFF | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON
Directory : /usr/lib64/perl5/bits/

Upload File :

[ Back ]

Current File : /usr/lib64/perl5/bits/select.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_SYS_SELECT_H)) {
    die("Never use <bits/select.h> directly; include <sys/select.h> instead.");
}
require 'bits/wordsize.ph';
if(defined (&__GNUC__)  && (defined(&__GNUC__) ? &__GNUC__ : undef) >= 2) {
    if((defined(&__WORDSIZE) ? &__WORDSIZE : undef) == 64) {
	eval 'sub __FD_ZERO_STOS () {"stosq";}' unless defined(&__FD_ZERO_STOS);
    } else {
	eval 'sub __FD_ZERO_STOS () {"stosl";}' unless defined(&__FD_ZERO_STOS);
    }
    eval 'sub __FD_ZERO {
        my($fdsp) = @_;
	    eval q(\\"(assembly code)\\");
    }' unless defined(&__FD_ZERO);
} else {
    eval 'sub __FD_ZERO {
        my($set) = @_;
	    eval q( &do { \'unsigned int __i\';  &fd_set * &__arr = ($set);  &for ( &__i = 0;  &__i < $sizeof{ &fd_set} / $sizeof{ &__fd_mask}; ++ &__i)  &__FDS_BITS ( &__arr)[ &__i] = 0; }  &while (0));
    }' unless defined(&__FD_ZERO);
}
unless(defined(&__FD_SET)) {
    sub __FD_SET {
	my($d, $set) = @_;
	eval q((( &void) ( &__FDS_BITS ($set)[ &__FD_ELT ($d)] |=  &__FD_MASK ($d))));
    }
}
unless(defined(&__FD_CLR)) {
    sub __FD_CLR {
	my($d, $set) = @_;
	eval q((( &void) ( &__FDS_BITS ($set)[ &__FD_ELT ($d)] &= ~ &__FD_MASK ($d))));
    }
}
unless(defined(&__FD_ISSET)) {
    sub __FD_ISSET {
	my($d, $set) = @_;
	eval q((( &__FDS_BITS ($set)[ &__FD_ELT ($d)] &  &__FD_MASK ($d)) != 0));
    }
}
1;

Youez - 2016 - github.com/yon3zu
LinuXploit