6

exeファイルがUPXで圧縮されているかどうかを判断する方法はありますか？

コードに問題があったことを除けば、exeファイルが圧縮されているかどうかを判断する機能は優れています。関数IsUPXCompressedが呼び出された場合、upxを実行しようとすると、upxは変更したファイルを保存できません。関数内で権利を正しく共有していないものがあります。私はこれを数時間テストしました。メソッドを呼び出さない場合、UPXは問題なくファイルを書き込むことができます。それを呼び出してからUPXを実行しようとすると、ファイルは保存されません。UPXは、ファイルを書き込もうとしたときにIOExceptionPermissiondeniedエラーを報告します。

誰かがこの問題を引き起こすコードの何か間違ったことを見つけることができますか？

ありがとうございました

コードに問題があったことを除けば、exeファイルが圧縮されているかどうかを判断する機能は優れています。関数IsUPXCompressedが呼び出された場合、upxを実行しようとすると、upxは変更したファイルを保存できません。関数内で権利を正しく共有していないものがあります。私はこれを数時間テストしました。メソッドを呼び出さない場合、UPXは問題なくファイルを書き込むことができます。それを呼び出してからUPXを実行しようとすると、ファイルは保存されません。UPXは、ファイルを書き込もうとしたときにIOExceptionPermissiondeniedエラーを報告します。

誰かがこの問題を引き起こすコードの何か間違ったことを見つけることができますか？

ありがとうございました

4

5 に答える 5

11

別の方法として、UPX ツールで exe を圧縮すると、PE ヘッダーのセクションUPX0にUPX1、 などのセクションが含まれます。これらのセクションを読み、名前と文字列を比較するとUPX、UPX パッカーを使用して exe が圧縮されたかどうかを判断できます。 .

ここに画像の説明を入力

この機能をチェック

uses 
Windows;

function IsUPXCompressed(const Filename:TFileName): Boolean;
var
  i             : integer;
  pBaseAddress  : PByte;
  pDosHeader    : PImageDosHeader;
  pNtHeaders    : PImageNtHeaders;
  hFile         : Cardinal;
  hFileMap      : Cardinal;
  pSectionHeader: PImageSectionHeader;
  dwOffset      : Cardinal;
  SectName      : AnsiString;
begin
  Result:=False;

  hFile := CreateFile(PChar(Filename), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if (hFile = INVALID_HANDLE_VALUE) then Exit;

  hFileMap := CreateFileMapping(hFile, nil, PAGE_READONLY or SEC_IMAGE,  0, 0, nil);
  if (hFileMap = 0) then
  begin
    CloseHandle(hFile);
    Exit;
  end;

  pBaseAddress := MapViewOfFile(hFileMap, FILE_MAP_READ, 0, 0, 0);
  if (pBaseAddress = nil) then
  begin
    CloseHandle(hFileMap);
    CloseHandle(hFile);
    Exit;
  end;

  try
      dwOffset   := Cardinal(pBaseAddress);
      pDosHeader := PImageDosHeader(pBaseAddress);
      pNtHeaders := PImageNtHeaders(dwOffset + Cardinal(pDosHeader._lfanew));
      pSectionHeader := pImageSectionHeader(Cardinal(pNtHeaders) + SizeOf(TImageNtHeaders));
      for i := 0 to pNtHeaders.FileHeader.NumberOfSections-1 do
      begin
        SetString(SectName, PAnsiChar(@pSectionHeader.Name), SizeOf(pSectionHeader.Name));
        Result:=Pos('UPX',SectName)>0;
        If Result then break;
        Inc(pSectionHeader);
      end;

  finally
    UnmapViewOfFile(pBaseAddress);
    CloseHandle(hFileMap);
    CloseHandle(hFile);
  end;

end;
于 2011-02-25T17:30:35.780 に答える
4

UPX 自体は次のようにします。

if (memcmp(isection[0].name,"UPX",3) == 0)
    throwAlreadyPackedByUPX();

これは 32 ビット PE の実装です。64 ビット PE には異なるオフセットが必要であり、他の実行可能形式は個別に処理する必要があります。

#include <stdio.h>

typedef unsigned int uint;

uint peek_d( FILE* f, uint offs ) {
  fseek( f, offs, SEEK_SET );
  uint a = 0;
  fread( &a, 1,sizeof(a), f );
  return a;
}

int main( int argc, char** argv ) {

  FILE* f = fopen( argv[1], "rb" ); if( f==0 ) return 1;

  uint p,n,x,y;

  p = peek_d( f, 0x3C ); // PE header offset
  n = peek_d( f, p+0x74 ); // pointer table size
  x = p + 0x78 + n*8;
  y = peek_d( f, x+0*0x28+0 ); // 1st section name

  if( (y&0xFFFFFF) == ('U'+('P'<<8)+('X'<<16)) ) {
    printf( "UPX detected!\n" );
  } else {
    printf( "No UPX!\n" );
  }

  return 0;
}
于 2011-02-25T17:09:27.977 に答える
2

upxで解凍してみては？

于 2011-02-25T16:49:43.530 に答える
1

セクション名には、UPXワードが常に含まれているわけではありません。ユーザーが変更した別の名前が含まれている可能性があります。確かに。Ypuは、ファイル全体でUPXcopmpressor署名を検索する必要があります。

于 2013-02-25T07:27:23.963 に答える
1

// IsUPXCompressed を返します - Delphi 2010 用に変更

function IsUPXCompressed( const Filename: TFileName ): Boolean;
var
  i: integer;
  pBaseAddress: PByte;
  pDosHeader: PImageDosHeader;
  pNtHeaders: PImageNtHeaders;
  hFile: Cardinal;
  hFileMap: Cardinal;
  pSectionHeader: PImageSectionHeader;
  dwOffset: Cardinal;
  SectName: AnsiString;
begin
  Result := False;
  hFile := CreateFile( PChar( Filename ), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0 );
  if ( hFile = INVALID_HANDLE_VALUE ) then
    Exit;
  hFileMap := CreateFileMapping( hFile, nil, PAGE_READONLY or SEC_IMAGE, 0, 0, nil );
  if ( hFileMap = 0 ) then
  begin
    CloseHandle( hFile );
    Exit;
  end;
  pBaseAddress := MapViewOfFile( hFileMap, FILE_MAP_READ, 0, 0, 0 );
  if ( pBaseAddress = nil ) then
  begin
    CloseHandle( hFileMap );
    CloseHandle( hFile );
    Exit;
  end;
  dwOffset := Cardinal( pBaseAddress );
  pDosHeader := PImageDosHeader( pBaseAddress );
  pNtHeaders := PImageNtHeaders( dwOffset + Cardinal( pDosHeader._lfanew ) );
  pSectionHeader := pImageSectionHeader( Cardinal( pNtHeaders ) + SizeOf( TImageNtHeaders ) );
  for i := 0 to pNtHeaders.FileHeader.NumberOfSections - 1 do
  begin
    SetString( SectName, PAnsiChar( @pSectionHeader.name ), SizeOf( pSectionHeader.name ) );
    if Pos( 'UPX', SectName ) > 0 then
    begin
      Result := True;
      exit;
    end;
    Inc( pSectionHeader );
  end;
end;

指摘してくれたロブに感謝します。

于 2011-02-25T22:03:13.867 に答える