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 : savepic.pl
#!/usr/bin/perl # # 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 . # require "common.pl"; %aRequestMap = common::HTTP_getRequest(); # get new picture $sCurrPic = $aRequestMap{ "CurrPic" }; @aPictureArray = common::File_read( "picture.txt" ); $nPictureArrayLen = @aPictureArray; # check if + or - was pressed if( $aRequestMap{ "Auswahl" } eq "+" ) { $sCurrPic = abs( $sCurrPic ) + 1; } if( $aRequestMap{ "Auswahl" } eq "-" ) { $sCurrPic = abs( $sCurrPic ) - 1; } # save picture name if( (abs( $sCurrPic ) > 0) && ( abs( $sCurrPic ) < ( $nPictureArrayLen ) ) ) { open( F_CURRPIC, ">currpic.txt"); print F_CURRPIC abs( $sCurrPic ); close( F_CURRPIC ); } # return to edit page print "Content-type: text/html\n\n"; print "<HTML>\n<HEAD>\n"; print "<META http-equiv=\"refresh\" CONTENT=\"0 ;URL=editpic.pl\">"; print "<title>savepic.pl</title>"; print "</HEAD>\n"; print "<BODY>\n"; print "</BODY>\n"; print "</HTML>\n"; %>
Close