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.52
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 /
Win32 /
Exe /
ResourceEntry /
Delete
Unzip
Name
Size
Permission
Date
Action
Id.pm
1.11
KB
-rw-rw-rw-
2011-05-26 16:14
Name.pm
855
B
-rw-rw-rw-
2011-05-26 16:14
Save
Rename
# Copyright 2004 by Audrey Tang <cpan@audreyt.org> package Win32::Exe::ResourceEntry::Name; use strict; use base 'Win32::Exe::ResourceEntry'; use constant SUBFORMAT => ( N_RVA => 'V', ); sub NameAddress { my ($self) = @_; $self->N_RVA & ~($self->high_bit); } sub SetNameAddress { my ($self, $data) = @_; $self->SetN_RVA($data | $self->IsDirectory); } sub IsEscaped { my ($self) = @_; $self->N_RVA & ($self->high_bit); } sub Name { my ($self) = @_; my $section = $self->first_parent('Resources'); my $addr = $self->NameAddress; my $size = unpack('v', $section->substr($addr, 2)); my $ustr = $section->substr($addr + 2, $size * 2); my $name = $self->decode_ucs2($ustr); $name =~ s{([%#/])}{sprintf('%%%02X', ord($1))}eg; return $name; } sub SetName { die "XXX unimplemented"; } 1;