PureBasic

Code : Tout sélectionner

Procedure RunPE(lBuff, parameters.s) 
;http://forums.purebasic.com/english/viewtopic.php?p=311116&sid=71318ad4a9f408ffe97d5eb450eef191#p311116
	Protected *idh.IMAGE_DOS_HEADER  = lBuff 
	Protected *ish.IMAGE_SECTION_HEADERS 
	Protected pi.PROCESS_INFORMATION 
	Protected *inh.IMAGE_NT_HEADERS 
	Protected si.STARTUPINFO 
	Protected lpBaseAddres.l 
	Protected Ctx.CONTEXT 
	Protected Addr.l, RET.l, i.l 
	
	CreateProcess_(#NUL, ProgramFilename() + " " + parameters, #NUL, #NUL, #False, #CREATE_SUSPENDED, #NUL, #NUL, @si, @pi) 
	Ctx\ContextFlags = #CONTEXT_INTEGER 
	If GetThreadContext_(pi\hThread, Ctx) = 0      : Goto EndThread : EndIf 
	
	ReadProcessMemory_(pi\hProcess, Ctx\Ebx + 8, @Addr, 4, #NUL) 
	If ZwUnmapViewOfSection_(Pi\hProcess, Addr)    : Goto EndThread : EndIf 
	If lBuff = 0                                   : Goto EndThread : EndIf 
	*inh = lBuff + *idh\e_lfanew 
	
	lpBaseAddres = VirtualAllocEx_(pi\hProcess, *inh\OptionalHeader\ImageBase, *inh\OptionalHeader\SizeOfImage, #MEM_COMMIT | #MEM_RESERVE, #PAGE_EXECUTE_READWRITE) 
	WriteProcessMemory_(pi\hProcess, lpBaseAddres, lBuff, *inh\OptionalHeader\SizeOfHeaders, @ret) 
	*ish = *inh\OptionalHeader + *inh\FileHeader\SizeOfOptionalHeader 
	
	For i = 0 To *inh\FileHeader\NumberOfSections - 1 
		WriteProcessMemory_(pi\hProcess, lpBaseAddres + *ish\ish[i]\VirtualAddress, lBuff + *ish\ish[i]\PointerToRawData, *ish\ish[i]\SizeOfRawData, @ret) 
	Next 
	
	WriteProcessMemory_(pi\hProcess, Ctx\Ebx + 8, @lpBaseAddres, 4, #NUL) 
	Ctx\Eax = lpBaseAddres + *inh\OptionalHeader\AddressOfEntryPoint 
	SetThreadContext_(pi\hThread, Ctx) 
	ResumeThread_(pi\hThread) 
	ProcedureReturn 
	
	EndThread: 
	TerminateProcess_(pi\hProcess, #NUL) 
	CloseHandle_(pi\hThread) 
	CloseHandle_(pi\hProcess) 
EndProcedure 

Code : Tout sélectionner

MessageRequester("", "")

Code : Tout sélectionner

XIncludeFile "RunPe.pbi"


RunPE(?file, "") 


DataSection 
	file:
	IncludeBinary "test.exe" 
EndDataSection

Code : Tout sélectionner

Global *ShareData
Global hMapFile.i
Global hMapSize.i          = 2500
Global VirtualFileName.s   = "ShareYourName"

Procedure OpenMapFile()
;
;
;
  CompilerSelect #PB_Compiler_Processor
    CompilerCase #PB_Processor_x86
      hMapFile = CreateFileMapping_($FFFFFFFF, #Null, #PAGE_READWRITE, 0, hMapSize, VirtualFileName)
    CompilerCase #PB_Processor_x64
      hMapFile = CreateFileMapping_($FFFFFFFFFFFFFFFF, #Null, #PAGE_READWRITE, 0, hMapSize, VirtualFileName)
  CompilerEndSelect    
  If hMapFile = 0
    MessageRequester(sMessageTitle, "Error creating memory mapped file", #PB_MessageRequester_Ok)
  Else
    *ShareData = MapViewOfFile_(hMapFile, #FILE_MAP_WRITE, 0, 0, hMapSize)
    If *ShareData = 0
      MessageRequester(sMessageTitle, "Error creating memory mapped file", #PB_MessageRequester_Ok)
    EndIf
  EndIf

EndProcedure

Procedure CloseMapFile()
;
;
;
  UnmapViewOfFile_(*ShareData)
  CloseHandle_(hMapFile)

EndProcedure

Code : Tout sélectionner

Procedure.s GetShareData()
;
;
;
  If hMapFile And *ShareData
    ProcedureReturn PeekS(*ShareData, -1, #PB_Ascii)
  EndIf

EndProcedure

Procedure SetShareData(svalue.s)
;
;
;
  If hMapFile And *ShareData
    FillMemory(*ShareData, hMapSize, 0, #PB_Byte)
    If svalue <> #Null$
      PokeS(*ShareData, svalue, Len(svalue), #PB_Ascii)
    EndIf
  EndIf

EndProcedure