OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl5
/
URI
Server IP: 2a02:4780:11:1594:0:ef5:22d7:a
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
05/14/2024 03:38:06 PM
rwxr-xr-x
📄
Escape.pm
6.9 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
Heuristic.pm
6.37 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
IRI.pm
794 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
QueryParam.pm
4.75 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
Split.pm
2.3 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
URL.pm
5.36 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
WithBase.pm
3.77 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
_foreign.pm
107 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
_generic.pm
5.69 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
_idna.pm
2.03 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
_ldap.pm
3.17 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
_login.pm
231 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
_punycode.pm
5.49 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
_query.pm
2.47 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
_segment.pm
416 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
_server.pm
3.64 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
_userpass.pm
1.01 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
data.pm
3.31 KB
03/03/2021 03:16:52 PM
rw-r--r--
📁
file
-
05/14/2024 12:06:27 PM
rwxr-xr-x
📄
file.pm
9.53 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
ftp.pm
1.03 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
gopher.pm
2.37 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
http.pm
425 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
https.pm
144 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
ldap.pm
2.86 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
ldapi.pm
440 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
ldaps.pm
144 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
mailto.pm
1.25 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
mms.pm
125 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
news.pm
1.42 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
nntp.pm
127 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
nntps.pm
144 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
pop.pm
1.18 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
rlogin.pm
129 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
rsync.pm
207 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
rtsp.pm
125 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
rtspu.pm
126 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
sftp.pm
98 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
sip.pm
1.66 KB
03/03/2021 03:16:52 PM
rw-r--r--
📄
sips.pm
143 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
snews.pm
172 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
ssh.pm
175 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
telnet.pm
128 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📄
tn3270.pm
128 bytes
03/03/2021 03:16:52 PM
rw-r--r--
📁
urn
-
05/14/2024 12:06:27 PM
rwxr-xr-x
📄
urn.pm
2.12 KB
03/03/2021 03:16:52 PM
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(decode_punycode encode_punycode); use Carp qw(croak); our $VERSION = '5.09'; 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;