Added pestrip

build.sh

@@ -26,7 +26,8 @@ if [ ! -e "$IMG" ]; then
 fi
 
 fasm vbox.asm
-kpack /nologo /driver $DRV
+EXENAME=$DRV fasm pestrip.asm $DRV
+kpack $DRV
 mcopy -D o -i $IMG $DRV ::drivers/$DRV
 
 echo -e "Done.\r"

pestrip.asm

@@ -0,0 +1,128 @@
+; If you know macro language of FASM, there is almost nothing to comment here.
+; If you don't know macro language of FASM, comments would not help you.
+
+filename equ '%EXENAME%'
+
+SPE_DIR_ORDER fix IMPORT EXPORT BASERELOC EXCEPTION TLS BOUND_IMPORT RESOURCE
+count = 0
+irps dir,SPE_DIR_ORDER
+{
+SPE_DIRECTORY_#dir = count
+count = count + 1
+}
+
+IMAGE_DIRECTORY_ENTRY_EXPORT = 0
+IMAGE_DIRECTORY_ENTRY_IMPORT = 1
+IMAGE_DIRECTORY_ENTRY_RESOURCE = 2
+IMAGE_DIRECTORY_ENTRY_EXCEPTION = 3
+IMAGE_DIRECTORY_ENTRY_BASERELOC = 5
+IMAGE_DIRECTORY_ENTRY_TLS = 9
+IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT = 11
+
+virtual at 0
+file filename:3Ch,4
+load pehea dword from 0
+end virtual
+
+virtual at 0
+file filename:pehea,0F8h
+load NumberOfSections           word  from 6
+load TimeDateStamp              dword from 8
+load SizeOfOptionalHeader       word  from 14h
+if SizeOfOptionalHeader<>0E0h
+error Nonstandard PE header
+end if
+load Characteristics            word  from 16h
+load AddressOfEntryPoint        dword from 28h
+load ImageBase                  dword from 34h
+load SectionAlignment           dword from 38h
+load FileAlignment              dword from 3Ch
+load MajorOperatingSystemVersion word from 40h
+load MinorOperatingSystemVersion word from 42h
+load MajorSubsystemVersion      word  from 48h
+load MinorSubsystemVersion      word  from 4Ah
+load SizeOfImage                dword from 50h
+load SizeOfHeaders              dword from 54h
+load Subsystem                  word  from 5Ch
+load SizeOfStackReserve         dword from 60h
+load SizeOfHeapReserve          dword from 68h
+load SrcNumberOfRvaAndSizes     dword from 74h
+
+DstNumberOfRvaAndSizes = 0
+irps dir,SPE_DIR_ORDER
+{
+if IMAGE_DIRECTORY_ENTRY_#dir < SrcNumberOfRvaAndSizes
+load DirRVA_#dir dword from 78h + 8*IMAGE_DIRECTORY_ENTRY_#dir
+load DirSize_#dir dword from 7Ch + 8*IMAGE_DIRECTORY_ENTRY_#dir
+else
+DirRVA_#dir = 0
+DirSize_#dir = 0
+end if
+if DirRVA_#dir > 0 & DirSize_#dir > 0
+DstNumberOfRvaAndSizes = SPE_DIRECTORY_#dir + 1
+end if
+}
+
+end virtual
+
+SectionAlignmentLog = 0
+while SectionAlignment <> 1 shl SectionAlignmentLog
+SectionAlignmentLog = SectionAlignmentLog + 1
+end while
+FileAlignmentLog = 0
+while FileAlignment <> 1 shl FileAlignmentLog
+FileAlignmentLog = FileAlignmentLog + 1
+end while
+
+; header
+        dw      'PE' xor 'S'    ; Signature
+        dw      Characteristics or 0x100        ; IMAGE_FILE_32BIT_MACHINE
+        dd      AddressOfEntryPoint
+        dd      ImageBase
+        db      SectionAlignmentLog
+        db      FileAlignmentLog
+        db      MajorSubsystemVersion
+        db      MinorSubsystemVersion
+        dd      SizeOfImage
+        dd      SizeOfStackReserve
+        dd      SizeOfHeapReserve
+SizeOfHeadersField:
+        dd      0
+        db      Subsystem
+        db      DstNumberOfRvaAndSizes
+        dw      NumberOfSections
+; directories
+irps dir,SPE_DIR_ORDER
+{
+if SPE_DIRECTORY_#dir < DstNumberOfRvaAndSizes
+        dd      DirRVA_#dir, DirSize_#dir
+end if
+}
+
+NumBytesDeleted = pehea + 0F8h - $ + NumberOfSections*0Ch
+DeltaDeleted = NumBytesDeleted and not (FileAlignment - 1)
+; Use store instead of declaring SizeOfHeaders - DeltaDeleted directly in dd
+; to avoid the second compilation pass.
+store dword SizeOfHeaders - DeltaDeleted at SizeOfHeadersField
+TimeStampInExportTable = 0
+; sections
+repeat NumberOfSections
+file filename:pehea+0F8h+(%-1)*28h,18h
+load VirtualSize dword from $-10h
+load VirtualAddress dword from $-0Ch
+load SizeOfRawData dword from $-8
+load PointerToRawData dword from $-4
+PointerToRawData = PointerToRawData - DeltaDeleted
+store dword PointerToRawData at $-4
+if DirRVA_EXPORT <> 0 & DirRVA_EXPORT+4 >= VirtualAddress & DirRVA_EXPORT+8 <= VirtualAddress + VirtualSize & DirRVA_EXPORT+8 <= VirtualAddress + SizeOfRawData
+TimeStampInExportTable = DirRVA_EXPORT+4 - VirtualAddress + PointerToRawData
+end if
+file filename:pehea+0F8h+(%-1)*28h+24h,4
+end repeat
+; padding to keep FileAlignment
+times NumBytesDeleted - DeltaDeleted db 0
+; data
+file filename:pehea+0F8h+NumberOfSections*28h
+if TimeDateStamp <> 0 & TimeStampInExportTable <> 0
+store dword TimeDateStamp at TimeStampInExportTable
+end if