nasconde file compresso rar in un immagine jpeg

#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <staticconstants.au3>
#include <windowsconstants.au3>
#include <process.au3>

$Form = GUICreate("Nascondi file .RAR dentro immagine .JPG", 578, 247, 262, 198)
$Input1 = GUICtrlCreateInput("Immagine", 13, 32, 465, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetTip(-1, "inserire immagine .jpg nella quale aggiungere il file segreto .rar")
$Input2 = GUICtrlCreateInput("Archivio", 13, 96, 465, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetTip(-1, "inserire archivio segreto .rar da nascondere nell'immagine")
$Input3 = GUICtrlCreateInput("Destinazione", 13, 160, 465, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetTip(-1, "nome dell'immagine .jpg risultato della somma dei file .jpg+.rar")
$Button1 = GUICtrlCreateButton("Sfoglia", 488, 32, 75, 25, $WS_GROUP)
GUICtrlSetTip(-1, "inserire immagine .jpg nella quale aggiungere il file segreto .rar")
$Button2 = GUICtrlCreateButton("Sfoglia", 488, 96, 75, 25, $WS_GROUP)
GUICtrlSetTip(-1, "inserire archivio segreto .rar da nascondere nell'immagine")
$Button3 = GUICtrlCreateButton("Sfoglia", 488, 160, 75, 25, $WS_GROUP)
GUICtrlSetTip(-1, "nome dell'immagine .jpg risultato della somma dei file .jpg+.rar")
$Button4 = GUICtrlCreateButton("ESEGUI", 8, 200, 555, 33, $WS_GROUP)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetTip(-1, "esegue la somma dei 2 file sopra citati"&@LF&"successivamente per visualizzare il contenuto .rar nell'immagine"&@LF&" rinominare il file .jpg risultante in .rar"&@LF&"quindi aprirlo con winrar" )
$Label1 = GUICtrlCreateLabel("Seleziona immagine .JPG", 184, 8, 146, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Seleziona archivio .RAR contenente il file da nascondere", 109, 72, 329, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Seleziona cartella e scrivi il nome del file .jpg risultante ", 101, 136, 338, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
$Immagine= FileOpenDialog ( "Scegli immagine (.jpg)", "", "Immagine (*.jpg)")
GUICtrlSetData($Input1, $Immagine)

Case $Button2
$Archivio= FileOpenDialog ( "Scegli archivio (.rar)", "", "Archivio (*.rar)")
GUICtrlSetData($Input2, $Archivio)

Case $Button3
$Destinazione= FileSaveDialog( "Scegli cartella di destinazione", @MyDocumentsDir, "(*.JPG)", 2)
$Destinazione=$Destinazione&".jpg"
GUICtrlSetData($Input3, $Destinazione)


Case $Button4

FileCopy ( $Immagine, @HomeDrive&"\tmp.jpg" ,1 )
FileCopy ( $Archivio, @HomeDrive&"\tmp.rar" ,1 )

_RunDOS ("copy /b "&@HomeDrive&"\tmp.jpg + "&@HomeDrive&"\tmp.rar "&@HomeDrive&"\sum.jpg")

FileCopy ( @HomeDrive&"\sum.jpg",$Destinazione,1 )

FileDelete ( @HomeDrive&"\tmp.jpg" )
FileDelete ( @HomeDrive&"\tmp.rar" )
FileDelete ( @HomeDrive&"\sum.jpg" )


EndSwitch
WEnd

#include <progressconstants.au3>
#include <windowsconstants.au3>
#include <guiconstantsex.au3>

$x= MsgBox(4,"Attenzione!","Installare Nascondi file rar su immagine jpg??")
$Form1 = GUICreate("Install ...", 326, 51, @DesktopWidth/2-150, @DesktopHeight/2-80)
$Progressbar1 = GUICtrlCreateProgress(0, 0, 321, 49)
GUICtrlSetColor(-1, 32250)
if $x=6 Then
GUISetState(@SW_SHOW,$Form1)
DirCreate ( @ProgramFilesDir&"\Nascondi file" )
$a= FileInstall ("D:\forbidden\autoIT\Nascondi file dentro JPG\nascondi file rar su immagine jpg.exe", @ProgramFilesDir&"\Nascondi file\Nascondi file rar su immagine jpg.exe",1)
FileCreateShortcut ( @ProgramFilesDir&"\Nascondi file\Nascondi file rar su immagine jpg.exe", @DesktopDir&"\Nascondi file rar su immagine jpg")
DirCreate ( @ProgramsCommonDir&"\Nascondi file" )
FileCreateShortcut ( @ProgramFilesDir&"\Nascondi file\Nascondi file rar su immagine jpg.exe", @ProgramsCommonDir&"\Nascondi file\Nascondi file rar su immagine jpg.exe")
For $b=0 to 100 Step 1
GUICtrlSetData($progressbar1, $b)
Sleep(30)
Next
GUISetState(@SW_HIDE,$Form1)
Sleep(500)

if $a=1 Then MsgBox(0,"Attenzione!"," Programma installato correttamente !"&@LF&@LF&"Buonagiornata! :-)")
Else
MsgBox(0,"Errore!","Impossibile completare l'installazione!")
Exit
EndIf