__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
#!/usr/local/bin/perl -w
use strict;
use 5.007003;
use Hash::Util qw(lock_hash unlock_hash lock_keys);
use Storable qw(nfreeze);
# If this looks like a hack, it's probably because it is :-)
sub uuencode_it {
my ($data, $name) = @_;
my $frozen = nfreeze $data;
my $uu = pack 'u', $frozen;
printf "begin %3o $name\n", ord 'A';
print $uu;
print "\nend\n\n";
}
my %hash = (perl=>"rules");
lock_hash %hash;
uuencode_it (\%hash, "Locked hash");
unlock_hash %hash;
lock_keys %hash, 'perl', 'rules';
lock_hash %hash;
uuencode_it (\%hash, "Locked hash placeholder");
unlock_hash %hash;
lock_keys %hash, 'perl';
uuencode_it (\%hash, "Locked keys");
unlock_hash %hash;
lock_keys %hash, 'perl', 'rules';
uuencode_it (\%hash, "Locked keys placeholder");
unlock_hash %hash;
my $utf8 = "\x{DF}\x{100}";
chop $utf8;
uuencode_it (\$utf8, "Short 8 bit utf8 data");
my $utf8b = $utf8;
utf8::encode ($utf8b);
uuencode_it (\$utf8b, "Short 8 bit utf8 data as bytes");
$utf8 x= 256;
uuencode_it (\$utf8, "Long 8 bit utf8 data");
$utf8 = "\x{C0FFEE}";
uuencode_it (\$utf8, "Short 24 bit utf8 data");
$utf8b = $utf8;
utf8::encode ($utf8b);
uuencode_it (\$utf8b, "Short 24 bit utf8 data as bytes");
$utf8 x= 256;
uuencode_it (\$utf8, "Long 24 bit utf8 data");
# Hash which has the utf8 bit set, but no longer has any utf8 keys
my %uhash = ("\x{100}", "gone", "perl", "rules");
delete $uhash{"\x{100}"};
# use Devel::Peek; Dump \%uhash;
uuencode_it (\%uhash, "Hash with utf8 flag but no utf8 keys");
$utf8 = "Schlo\xdf" . chr 256;
chop $utf8;
my $a_circumflex = (ord ('A') == 193 ? "\x47" : "\xe5");
%uhash = (map {$_, $_} 'castle', "ch${a_circumflex}teau", $utf8, "\x{57CE}");
uuencode_it (\%uhash, "Hash with utf8 keys");
lock_hash %uhash;
uuencode_it (\%uhash, "Locked hash with utf8 keys");
my %pre58;
while (my ($key, $val) = each %uhash) {
# hash keys are always stored downgraded to bytes if possible, with a flag
# to say "promote back to utf8"
# Whereas scalars are stored as is.
utf8::encode ($key) if ord $key > 256;
$pre58{$key} = $val;
}
uuencode_it (\%pre58, "Hash with utf8 keys for 5.6");
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| CVE-2015-1592.t | File | 534 B | 0644 |
|
| HAS_ATTACH.pm | File | 121 B | 0644 |
|
| HAS_HOOK.pm | File | 82 B | 0644 |
|
| HAS_OVERLOAD.pm | File | 185 B | 0644 |
|
| attach.t | File | 1007 B | 0644 |
|
| attach_errors.t | File | 6.64 KB | 0644 |
|
| attach_singleton.t | File | 2.5 KB | 0644 |
|
| blessed.t | File | 10.52 KB | 0644 |
|
| canonical.t | File | 3.46 KB | 0644 |
|
| circular_hook.t | File | 1.98 KB | 0644 |
|
| code.t | File | 7.29 KB | 0644 |
|
| compat01.t | File | 1.15 KB | 0644 |
|
| compat06.t | File | 3.25 KB | 0644 |
|
| croak.t | File | 949 B | 0644 |
|
| dclone.t | File | 2.28 KB | 0644 |
|
| destroy.t | File | 366 B | 0644 |
|
| downgrade.t | File | 15.76 KB | 0644 |
|
| file_magic.t | File | 13.23 KB | 0644 |
|
| flags.t | File | 2.32 KB | 0644 |
|
| forgive.t | File | 1.52 KB | 0644 |
|
| freeze.t | File | 2.55 KB | 0644 |
|
| huge.t | File | 3.22 KB | 0644 |
|
| hugeids.t | File | 7.61 KB | 0644 |
|
| integer.t | File | 5.81 KB | 0644 |
|
| interwork56.t | File | 5.95 KB | 0644 |
|
| just_plain_nasty.t | File | 4.29 KB | 0644 |
|
| leaks.t | File | 845 B | 0644 |
|
| lock.t | File | 1.01 KB | 0644 |
|
| make_56_interwork.pl | File | 1.45 KB | 0644 |
|
| make_downgrade.pl | File | 2.09 KB | 0644 |
|
| make_overload.pl | File | 177 B | 0644 |
|
| malice.t | File | 10.33 KB | 0644 |
|
| overload.t | File | 2.08 KB | 0644 |
|
| recurse.t | File | 7.92 KB | 0644 |
|
| regexp.t | File | 3.66 KB | 0644 |
|
| restrict.t | File | 3.49 KB | 0644 |
|
| retrieve.t | File | 3.02 KB | 0644 |
|
| robust.t | File | 309 B | 0644 |
|
| sig_die.t | File | 734 B | 0644 |
|
| st-dump.pl | File | 3.35 KB | 0644 |
|
| store.t | File | 3.25 KB | 0644 |
|
| testlib.pl | File | 863 B | 0644 |
|
| threads.t | File | 1.93 KB | 0644 |
|
| tied.t | File | 4.15 KB | 0644 |
|
| tied_hook.t | File | 4.63 KB | 0644 |
|
| tied_items.t | File | 1.11 KB | 0644 |
|
| tied_reify.t | File | 621 B | 0644 |
|
| tied_store.t | File | 924 B | 0644 |
|
| utf8.t | File | 1.17 KB | 0644 |
|
| utf8hash.t | File | 5.31 KB | 0644 |
|
| weak.t | File | 3.72 KB | 0644 |
|