Linux ns1.utparral.edu.mx 6.8.0-79-generic #79~22.04.1-Ubuntu SMP PREEMPT_DYNAMIC Fri Aug 15 16:54:53 UTC 2 x86_64
Apache/2.4.58 (Unix) OpenSSL/1.1.1w PHP/8.2.12 mod_perl/2.0.12 Perl/v5.34.1
: 10.10.1.9 | : 10.10.1.254
Cant Read [ /etc/named.conf ]
daemon
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
README
+ Create Folder
+ Create File
/
usr /
lib /
libreoffice /
share /
config /
webcast /
[ HOME SHELL ]
Name
Size
Permission
Action
common.inc
3.63
KB
-rw-r--r--
common.pl
1.83
KB
-rw-r--r--
edit.asp
1003
B
-rw-r--r--
editpic.asp
2.09
KB
-rw-r--r--
editpic.pl
1.9
KB
-rwxr-xr-x
edit.pl
558
B
-rw-r--r--
index.pl
343
B
-rw-r--r--
poll.asp
1.44
KB
-rw-r--r--
poll.pl
1.51
KB
-rwxr-xr-x
savepic.asp
1.75
KB
-rw-r--r--
savepic.pl
1.65
KB
-rwxr-xr-x
show.asp
1.75
KB
-rw-r--r--
show.pl
1.8
KB
-rwxr-xr-x
webcast.asp
1.38
KB
-rw-r--r--
webcast.pl
1.37
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : common.pl
# # This file is part of the LibreOffice project. # # This Source Code Form is subject to the terms of the Mozilla Public # License, v. 2.0. If a copy of the MPL was not distributed with this # file, You can obtain one at http://mozilla.org/MPL/2.0/. # # This file incorporates work covered by the following license notice: # # Licensed to the Apache Software Foundation (ASF) under one or more # contributor license agreements. See the NOTICE file distributed # with this work for additional information regarding copyright # ownership. The ASF licenses this file to you under the Apache # License, Version 2.0 (the "License"); you may not use this file # except in compliance with the License. You may obtain a copy of # the License at http://www.apache.org/licenses/LICENSE-2.0 . # package common; $REFRESH_TIME = 5; sub File_read { $sFilename = @_[ 0 ]; @aFileContentList = ""; open( F_CURRPIC, "<" . $sFilename ) || "Could not open file " . $sFilename . " !<BR>\n"; while( <F_CURRPIC> ) { push( @aFileContentList, $_ ); } close( F_CURRPIC ); return @aFileContentList; } ##File_read sub HTTP_getRequest { # post- or get- method ? if( $ENV{ 'REQUEST_METHOD' } eq 'GET' ) { # get parameters from querystring (get) $sRequest = $ENV{ 'QUERY_STRING' } } else { # get parameters from stdin (post) read( STDIN, $sRequest, $ENV{ 'CONTENT_LENGTH' } ); } # process parameters @aRequestList = split( /&/, $sRequest ); foreach $Feld ( @aRequestList ) { ( $name, $sValue ) = split( /=/, $Feld ); $sValue =~ tr/+/ /; $sValue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $sValue =~ s/<!--(.|\n)*-->//g; $aRequestMap{ $name } = $sValue; } return %aRequestMap; } ##HTTP_getRequest 1;
Close