OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl5
/
URI
Server IP: 10.0.0.4
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
11/20/2022 06:44:51 AM
rwxr-xr-x
📄
Escape.pm
6.9 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
Heuristic.pm
6.37 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
IRI.pm
820 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
QueryParam.pm
4.77 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
Split.pm
2.32 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
URL.pm
5.36 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
WithBase.pm
3.77 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_foreign.pm
133 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
_generic.pm
5.71 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_idna.pm
2.06 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_ldap.pm
3.2 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_login.pm
257 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
_punycode.pm
5.52 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_query.pm
2.5 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_segment.pm
442 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
_server.pm
3.66 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_userpass.pm
1.04 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
data.pm
3.34 KB
01/09/2018 06:42:55 AM
rw-r--r--
📁
file
-
11/11/2020 03:55:37 AM
rwxr-xr-x
📄
file.pm
9.53 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
ftp.pm
1.06 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
gopher.pm
2.4 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
http.pm
451 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
https.pm
170 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
ldap.pm
2.88 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
ldapi.pm
467 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
ldaps.pm
170 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
mailto.pm
1.27 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
mms.pm
151 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
news.pm
1.45 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
nntp.pm
153 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
pop.pm
1.2 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
rlogin.pm
155 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
rsync.pm
233 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
rtsp.pm
151 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
rtspu.pm
152 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
sftp.pm
124 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
sip.pm
1.69 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
sips.pm
169 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
snews.pm
198 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
ssh.pm
201 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
telnet.pm
154 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
tn3270.pm
154 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📁
urn
-
11/11/2020 03:55:37 AM
rwxr-xr-x
📄
urn.pm
2.15 KB
01/09/2018 06:42:55 AM
rw-r--r--
Editing: _idna.pm
Close
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.73'; $VERSION = eval $VERSION; 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;