!C99Shell v. 1.0 pre-release build #13!

Software: Apache/2.0.54 (Unix) mod_perl/1.99_09 Perl/v5.8.0 mod_ssl/2.0.54 OpenSSL/0.9.7l DAV/2 FrontPage/5.0.2.2635 PHP/4.4.0 mod_gzip/2.0.26.1a 

uname -a: Linux snow.he.net 4.4.276-v2-mono-1 #1 SMP Wed Jul 21 11:21:17 PDT 2021 i686 

uid=99(nobody) gid=98(nobody) groups=98(nobody) 

Safe-mode: OFF (not secure)

/usr/local/webmail2/plugins/html_mail/fckeditor/editor/filemanager/browser/default/connectors/perl/   drwxr-xr-x
Free 318.4 GB of 458.09 GB (69.51%)
Home    Back    Forward    UPDIR    Refresh    Search    Buffer    Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout    


Viewing file:     util.pl (1.19 KB)      -rw-r--r--
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
#####
#  FCKeditor - The text editor for internet
#  Copyright (C) 2003-2005 Frederico Caldeira Knabben
#  
#  Licensed under the terms of the GNU Lesser General Public License:
#          http://www.opensource.org/licenses/lgpl-license.php
#  
#  For further information visit:
#          http://www.fckeditor.net/
#  
#  "Support Open Source software. What about a donation today?"
#  
#  File Name: util.pl
#      This is the File Manager Connector for Perl.
#  
#  File Authors:
#          Takashi Yamaguchi (jack@omakase.net)
#####

sub RemoveFromStart
{
    local($sourceString, $charToRemove) = @_;
    $sPattern = '^' . $charToRemove . '+' ;
    $sourceString =~ s/^$charToRemove+//g;
    return $sourceString;
}

sub RemoveFromEnd
{
    local($sourceString, $charToRemove) = @_;
    $sPattern = $charToRemove . '+$' ;
    $sourceString =~ s/$charToRemove+$//g;
    return $sourceString;
}

sub ConvertToXmlAttribute
{
    local($value) = @_;
    return $value;
#    return utf8_encode(htmlspecialchars($value));

}

sub specialchar_cnv
{
    local($ch) = @_;

    $ch =~ s/&/&/g;        # &
    $ch =~ s/\"/"/g;    #"
    $ch =~ s/\'/'/g;    # '
    $ch =~ s/</&lt;/g;        # <
    $ch =~ s/>/&gt;/g;        # >
    return($ch);
}

1;

:: Command execute ::

Enter:
 
Select:
 

:: Search ::
  - regexp 
:: Upload ::
 
[ Read-Only ]

:: Make Dir ::
 
[ Read-Only ]
:: Make File ::
 
[ Read-Only ]

:: Go Dir ::
 
:: Go File ::
 

--[ c99shell v. 1.0 pre-release build #13 powered by Captain Crunch Security Team | http://ccteam.ru | Generation time: 0.0246 ]--