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 | : 18.116.49.243
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 : _punycode.pm
package URI::_punycode; use strict; our $VERSION = "0.04"; require Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(encode_punycode decode_punycode); use integer; our $DEBUG = 0; use constant BASE => 36; use constant TMIN => 1; use constant TMAX => 26; use constant SKEW => 38; use constant DAMP => 700; use constant INITIAL_BIAS => 72; use constant INITIAL_N => 128; my $Delimiter = chr 0x2D; my $BasicRE = qr/[\x00-\x7f]/; sub _croak { require Carp; Carp::croak(@_); } sub digit_value { my $code = shift; return ord($code) - ord("A") if $code =~ /[A-Z]/; return ord($code) - ord("a") if $code =~ /[a-z]/; return ord($code) - ord("0") + 26 if $code =~ /[0-9]/; return; } sub code_point { my $digit = shift; return $digit + ord('a') if 0 <= $digit && $digit <= 25; return $digit + ord('0') - 26 if 26 <= $digit && $digit <= 36; die 'NOT COME HERE'; } sub adapt { my($delta, $numpoints, $firsttime) = @_; $delta = $firsttime ? $delta / DAMP : $delta / 2; $delta += $delta / $numpoints; my $k = 0; while ($delta > ((BASE - TMIN) * TMAX) / 2) { $delta /= BASE - TMIN; $k += BASE; } return $k + (((BASE - TMIN + 1) * $delta) / ($delta + SKEW)); } sub decode_punycode { my $code = shift; my $n = INITIAL_N; my $i = 0; my $bias = INITIAL_BIAS; my @output; if ($code =~ s/(.*)$Delimiter//o) { push @output, map ord, split //, $1; return _croak('non-basic code point') unless $1 =~ /^$BasicRE*$/o; } while ($code) { my $oldi = $i; my $w = 1; LOOP: for (my $k = BASE; 1; $k += BASE) { my $cp = substr($code, 0, 1, ''); my $digit = digit_value($cp); defined $digit or return _croak("invalid punycode input"); $i += $digit * $w; my $t = ($k <= $bias) ? TMIN : ($k >= $bias + TMAX) ? TMAX : $k - $bias; last LOOP if $digit < $t; $w *= (BASE - $t); } $bias = adapt($i - $oldi, @output + 1, $oldi == 0); warn "bias becomes $bias" if $DEBUG; $n += $i / (@output + 1); $i = $i % (@output + 1); splice(@output, $i, 0, $n); warn join " ", map sprintf('%04x', $_), @output if $DEBUG; $i++; } return join '', map chr, @output; } sub encode_punycode { my $input = shift; my @input = split //, $input; my $n = INITIAL_N; my $delta = 0; my $bias = INITIAL_BIAS; my @output; my @basic = grep /$BasicRE/, @input; my $h = my $b = @basic; push @output, @basic; push @output, $Delimiter if $b && $h < @input; warn "basic codepoints: (@output)" if $DEBUG; while ($h < @input) { my $m = min(grep { $_ >= $n } map ord, @input); warn sprintf "next code point to insert is %04x", $m if $DEBUG; $delta += ($m - $n) * ($h + 1); $n = $m; for my $i (@input) { my $c = ord($i); $delta++ if $c < $n; if ($c == $n) { my $q = $delta; LOOP: for (my $k = BASE; 1; $k += BASE) { my $t = ($k <= $bias) ? TMIN : ($k >= $bias + TMAX) ? TMAX : $k - $bias; last LOOP if $q < $t; my $cp = code_point($t + (($q - $t) % (BASE - $t))); push @output, chr($cp); $q = ($q - $t) / (BASE - $t); } push @output, chr(code_point($q)); $bias = adapt($delta, $h + 1, $h == $b); warn "bias becomes $bias" if $DEBUG; $delta = 0; $h++; } } $delta++; $n++; } return join '', @output; } sub min { my $min = shift; for (@_) { $min = $_ if $_ <= $min } return $min; } 1; __END__ =head1 NAME URI::_punycode - encodes Unicode string in Punycode =head1 SYNOPSIS use URI::_punycode; $punycode = encode_punycode($unicode); $unicode = decode_punycode($punycode); =head1 DESCRIPTION URI::_punycode is a module to encode / decode Unicode strings into Punycode, an efficient encoding of Unicode for use with IDNA. This module requires Perl 5.6.0 or over to handle UTF8 flagged Unicode strings. =head1 FUNCTIONS This module exports following functions by default. =over 4 =item encode_punycode $punycode = encode_punycode($unicode); takes Unicode string (UTF8-flagged variable) and returns Punycode encoding for it. =item decode_punycode $unicode = decode_punycode($punycode) takes Punycode encoding and returns original Unicode string. =back These functions throw exceptions on failure. You can catch 'em via C<eval>. =head1 AUTHOR Tatsuhiko Miyagawa E<lt>miyagawa@bulknews.netE<gt> is the author of IDNA::Punycode v0.02 which was the basis for this module. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L<IDNA::Punycode>, RFC 3492 =cut
Close