Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date	Action
PE32.pm	1.64 KB	-rw-rw-rw-	2011-05-26 16:14
PE32Plus.pm	1.85 KB	-rw-rw-rw-	2011-05-26 16:14

Rename

#--------------------------------------------------------------------
# 64 bit PE+ header as per 'Microsoft PE and COFF Specification' from
# http://www.microsoft.com/whdc/system/platform/firmware/PECOFF.mspx
#--------------------------------------------------------------------

package Win32::Exe::PE::Header::PE32Plus;
use strict;
use base 'Win32::Exe::PE::Header';

use constant SUBFORMAT => (
    ImageBase       => 'a8',
    SectionAlign    => 'V',
    FileAlign       => 'V',
    OSMajor     => 'v',
    OSMinor     => 'v',
    UserMajor       => 'v',
    UserMinor       => 'v',
    SubsysMajor     => 'v',
    SubsysMinor     => 'v',
    _           => 'a4',
    ImageSize       => 'V',
    HeaderSize      => 'V',
    FileChecksum    => 'V',
    SubsystemTypeId => 'v',
    DLLFlags        => 'v',
    StackReserve    => 'a8',
    StackCommit     => 'a8',
    HeapReserve     => 'a8',
    HeapCommit      => 'a8',
    LoaderFlags     => 'V',
    NumDataDirs     => 'V',
    'DataDirectory' => [
    'a8', '{$NumDataDirs}', 1
    ],
    'Section'       => [
    'a40', '{$NumSections}', 1
    ],
    Data        => 'a*',
);
use constant SUBSYSTEM_TYPES => [qw(
    _       native  windows     console _
    _       _       posix       _       windowsce
)];
use constant ST_TO_ID => {
    map { (SUBSYSTEM_TYPES->[$_] => $_) } (0 .. $#{+SUBSYSTEM_TYPES})
};
use constant ID_TO_ST => { reverse %{+ST_TO_ID} };

sub st_to_id {
    my ($self, $name) = @_;
    return $name unless $name =~ /\D/;
    return(+ST_TO_ID->{lc($name)} || die "No such type: $name");
}

sub id_to_st {
    my ($self, $id) = @_;
    return(+ID_TO_ST->{$id} || $id);
}

sub Subsystem {
    my ($self) = @_;
    return $self->id_to_st($self->SubsystemTypeId);
}

sub SetSubsystem {
    my ($self, $type) = @_;
    $self->SetSubsystemTypeId($self->st_to_id($type));
}

sub ExpectedOptHeaderSize { 240 };