Gecko [ www.vortexaion.com ]

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.140
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
Manifest	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
PE	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Resource	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
ResourceEntry	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Section	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Base.pm	708 B	-rw-rw-rw-	2011-05-26 16:14
DataDirectory.pm	210 B	-rw-rw-rw-	2011-05-26 16:14
DebugDirectory.pm	359 B	-rw-rw-rw-	2011-05-26 16:14
DebugTable.pm	201 B	-rw-rw-rw-	2011-05-26 16:14
IconFile.pm	1.24 KB	-rw-rw-rw-	2011-05-26 16:14
InsertResourceSection.pm	3.89 KB	-rw-rw-rw-	2011-07-19 20:08
Manifest.pm	39.67 KB	-rw-rw-rw-	2011-05-26 16:14
PE.pm	475 B	-rw-rw-rw-	2011-05-26 16:14
Resource.pm	545 B	-rw-rw-rw-	2011-05-26 16:14
ResourceData.pm	1.11 KB	-rw-rw-rw-	2011-05-26 16:14
ResourceEntry.pm	1.25 KB	-rw-rw-rw-	2011-05-26 16:14
ResourceTable.pm	682 B	-rw-rw-rw-	2011-05-26 16:14
Section.pm	4.3 KB	-rw-rw-rw-	2011-05-26 16:14

Rename

package Win32::Exe::IconFile;

use strict;
use base 'Win32::Exe::Base';
use constant FORMAT => (
    Magic		=> 'a2',
    Type		=> 'v',
    Count		=> 'v',
    'Resource::Icon'	=> [ 'a16', '{$Count}', 1 ],
    Data		=> 'a*',
);
use constant DEFAULT_ARGS => (
    Magic   => "\0\0",
    Type    => 1,
    Count   => 0,
    Data    => '',
);
use constant DISPATCH_FIELD => 'Magic';
use constant DISPATCH_TABLE => (
    "\0\0"  => '',
    "MZ"    => '__BASE__',
    '*'	    => sub { die "Invalid icon file header: $_[1]" },
);

sub icons {
    my $self = shift;
    $self->members(@_);
}

sub set_icons {
    my ($self, $icons) = @_;
    $self->SetCount(scalar @$icons);
    $self->set_members('Resource::Icon' => $icons);
    $self->refresh;

foreach my $idx (0 .. $#{$icons}) {
	$self->icons->[$idx]->SetImageOffset(length($self->dump));
	$self->SetData( $self->Data . $icons->[$idx]->Data );
    }

$self->refresh;
}

sub dump_iconfile {
    my $self = shift;
    my @icons = $self->icons;
    my $obj = $self->require_class('IconFile')->new;
    $obj->set_icons(\@icons);
    return $obj->dump;
}

sub write_iconfile {
    my ($self, $filename) = @_;
    $self->write_file($filename, $self->dump_iconfile);
}