Agli inizi
- Group:
- Member
- Posts:
- 15
- Reputazione:
- +1
- Status:
| |
| ho trovato come nascondere un file compresso in rar in un immagine jpg il "cuore" dell operazione è in DOS con il seguente comando: c: copy /b immagine.jpg + filecompresso.rar fileuscita.jpg ho quindi automatizzato il tutto #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 ho dovuto lavorare direttamente in C: poichè nn sono riuscito a lavorare direttamante sui file in questione... ho quindi scritto anche l'installer... #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 ps Okkio ai percorsi dei file che saranno sicuramente diversi dai vostri!!! ciao AutoITfans
|