Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.204
Domains :
Cant Read [ /etc/named.conf ]
User : SISTEMA
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
C: /
xampp /
perl /
vendor /
lib /
IO /
All /
Delete
Unzip
Name
Size
Permission
Date
Action
Base.pm
4.65
KB
-rw-rw-rw-
2017-07-19 01:05
DBM.pm
2.56
KB
-rw-rw-rw-
2017-07-19 01:05
DBM.pod
266
B
-rw-rw-rw-
2017-07-19 01:05
Dir.pm
5.38
KB
-rw-rw-rw-
2017-07-19 01:05
Dir.pod
272
B
-rw-rw-rw-
2017-07-19 01:05
File.pm
6.27
KB
-rw-rw-rw-
2017-07-19 01:05
File.pod
268
B
-rw-rw-rw-
2017-07-19 01:05
Filesys.pm
2.67
KB
-rw-rw-rw-
2017-07-19 01:05
Filesys.pod
284
B
-rw-rw-rw-
2017-07-19 01:05
Link.pm
1.15
KB
-rw-rw-rw-
2017-07-19 01:05
Link.pod
268
B
-rw-rw-rw-
2017-07-19 01:05
MLDBM.pm
986
B
-rw-rw-rw-
2017-07-19 01:05
MLDBM.pod
270
B
-rw-rw-rw-
2017-07-19 01:05
Pipe.pm
1.18
KB
-rw-rw-rw-
2017-07-19 01:05
Pipe.pod
268
B
-rw-rw-rw-
2017-07-19 01:05
STDIO.pm
916
B
-rw-rw-rw-
2017-07-19 01:05
STDIO.pod
270
B
-rw-rw-rw-
2017-07-19 01:05
Socket.pm
3.03
KB
-rw-rw-rw-
2017-07-19 01:05
Socket.pod
272
B
-rw-rw-rw-
2017-07-19 01:05
String.pm
528
B
-rw-rw-rw-
2017-07-19 01:05
String.pod
272
B
-rw-rw-rw-
2017-07-19 01:05
Temp.pm
368
B
-rw-rw-rw-
2017-07-19 01:05
Temp.pod
278
B
-rw-rw-rw-
2017-07-19 01:05
Save
Rename
use strict; use warnings; package IO::All::MLDBM; use IO::All::DBM -base; field _serializer => 'Data::Dumper'; sub mldbm { my $self = shift; bless $self, __PACKAGE__; my ($serializer) = grep { /^(Storable|Data::Dumper|FreezeThaw)$/ } @_; $self->_serializer($serializer) if defined $serializer; my @dbm_list = grep { not /^(Storable|Data::Dumper|FreezeThaw)$/ } @_; $self->_dbm_list([@dbm_list]); return $self; } sub tie_dbm { my $self = shift; my $filename = $self->name; my $dbm_class = $self->_dbm_class; my $serializer = $self->_serializer; eval "use MLDBM qw($dbm_class $serializer)"; $self->throw("Can't open '$filename' as MLDBM:\n$@") if $@; my $hash; my $db = tie %$hash, 'MLDBM', $filename, $self->mode, $self->perms, @{$self->_dbm_extra} or $self->throw("Can't open '$filename' as MLDBM file:\n$!"); $self->add_utf8_dbm_filter($db) if $self->_has_utf8; $self->tied_file($hash); } 1;