privdayz.com speacial mini anti bypass shell

Linux centos-s-1vcpu-2gb-sgp1-01 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
nginx/1.26.1
167.99.78.96

ExpireFile.pm

package Memoize::ExpireFile;

=head1 NAME

Memoize::ExpireFile - test for Memoize expiration semantics

=head1 DESCRIPTION

See L<Memoize::Expire>.

=cut

$VERSION = '1.02';
use Carp;

my $Zero = pack("N", 0);

sub TIEHASH {
  my ($package, %args) = @_;
  my $cache = $args{HASH} || {};
  bless {ARGS => \%args, C => $cache} => $package;
}

sub STORE {
#  print "Expiry manager STORE handler\n";
  my ($self, $key, $data) = @_;
  my $cache = $self->{C};
  my $cur_date = pack("N", (stat($key))[9]);
  $cache->{"C$key"} = $data;
  $cache->{"T$key"} = $cur_date;
}

sub FETCH {
  my ($self, $key) = @_;
  $self->{C}{"C$key"};
}

sub EXISTS {
#  print "Expiry manager EXISTS handler\n";
  my ($self, $key) = @_;
  my $cache_date = $self->{C}{"T$key"} || $Zero;
  my $file_date = pack("N", (stat($key))[9]);#
#  if ($self->{ARGS}{CHECK_DATE} && $old_date gt $cur_date) {
#    return $self->{ARGS}{CHECK_DATE}->($key, $old_date, $cur_date);
#  } 
  my $res = $cache_date ge $file_date;
#  print $res ? "... still good\n" : "... expired\n";
  $res;
}

System Information
*ReClick For Close
File : privdayz.com /index.php

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2023-02-17 06:20:46
..	dir	-	root/root	0755	2023-02-17 06:22:14
AnyDBM_File.pm	text/plain	674 B	root/root	0644	2021-02-02 04:32:27
Expire.pm	text/plain	11.43 KB	root/root	0644	2021-02-02 04:32:27
ExpireFile.pm	text/plain	1.03 KB	root/root	0644	2021-02-02 04:32:27
ExpireTest.pm	text/plain	883 B	root/root	0644	2021-02-02 04:32:27
NDBM_File.pm	text/plain	1.45 KB	root/root	0644	2021-02-02 04:32:27
SDBM_File.pm	text/plain	1.45 KB	root/root	0644	2021-02-02 04:32:27
Storable.pm	text/plain	1.38 KB	root/root	0644	2021-02-02 04:32:27