Now im asking YOU! how could I improve this, i know there is many things there could be done in a more easy way, but im n00bie and still learning.Įxpand collapse popup By NoCow (a few bits by mu) #include #Include $file = $filesize = $file = FileOpenDialog ( "Pick an exe to inject files into" ,- 1, "Executable files(*.exe)", 1 ) $filesize = FileGetSize ( $file ) fileread ( $file, $filesize - 7 ) $Thedata = fileRead ( $file, 7 ) FileClose ( $file ) if stringleft ( $Thedata, 1 ) = chr ( 190 ) then $Thedata = Number ( stringright ( $Thedata, 6 ) ) $file = $file = FileOpen ( $file, 0 ) Fileread ( $file, $thedata ) $folder = FileSelectFolder ( "Save All Files To What Folder?", ) $TheData = FileRead ( $file, $filesize - $thedata - 7 ) while stringlen ( $TheData ) > 1 $len = _StringFindUntil ( $TheData, "|" ) $temp = FileOpen ( $folder & "/" & StringLeft ( $TheData, $len ), 1 ) $TheData = StringTrimLeft ( $TheData, $len + 1 ) $lentowrite = stringleft ( $TheData, _StringFindUntil ( $TheData, "|" ) ) $TheData = StringTrimLeft ( $TheData, StringLen ( $lentowrite ) + 1 ) FileWrite ( $temp, stringleft ( $TheData, number ( $lentowrite ) ) ) $TheData = StringTrimLeft ( $TheData, number ( $lentowrite ) ) FileClose ( $temp ) wend else $Form1 = GUICreate ( "Application Injector", 297, 180, 199, 117 ) $Compile = GUICtrlCreateButton ( "Compile Application", 16, 136, 265, 33 ) $TheFileList = GUICtrlCreateList ( "", 16, 8, 265, 97 ) $Add = GUICtrlCreateButton ( "Add files", 152, 112, 129, 17 ) $Remove = GUICtrlCreateButton ( "Remove Selected", 16, 112, 129, 17 ) GUISetState ( ) while 1 $msg = GuiGetMsg ( ) select case $msg = $Add $temp = FileOpenDialog ( "Add file" ,- 1, "All files(*.*)", 1 ) GUICtrlSetData ( $TheFileList, $temp ) case $msg = $GUI_EVENT_CLOSE exitloop case $msg = $Compile $newfile = FileSaveDialog ( "Where to save EXE file?" ,- 1, "exe files (*.exe)", 16, "injected.exe" ) FileDelete ( $newfile ) FileCopy ( $file, $newfile ) $file = FileOpen ( $newfile, 1 ) for $i = 0 to _GUICtrlListCount ( $TheFileList ) - 1 $temp = _GUICtrlListGetText ( $TheFileList, $i ) $temp1 = FileOpen ( $temp, 0 ) $Thedata = FileRead ( $temp1, FileGetSize ( $temp ) ) FileClose ( $temp1 ) $temp2 = StringSplit ( $Temp, "\" ) FileWrite ( $file, $temp2 & "|" & Stringlen ( $thedata ) & "|" & $thedata ) next FileWrite ( $file, chr ( 190 ) & $filesize ) Fileclose ( $file ) msgbox ( 0, 0, "Finish" ) case $msg = $remove remove an item from a single selection list.
#EXE BINDER FUDBALSKE INSTALL#
I know many of ya guys will say this is some shit to make becuase it can use to a exe infecter, but it can also be used as a good thing, i wanted to make a Install shell, i know it wont be very good when its a high lvl language but it will still be fun. The simply thing it does is to find the last 7 chars in the, then check the first one if its ascii(190) and if its so then it take the last 6, that is the zero for the file when it got made the normaly end of the file and the program go find that, then it start see that there is a hello.txt and there is 15bytes to write to it and they are "text from hello" next it find foo.txt etc etc etc
Hello.txt|15|text from hellofoo.txt|13|text from foo¥""""here some numbers""""
#EXE BINDER FUDBALSKE CODE#
Take diffence files(plain text aswells as binary) and save the information in the end of the file.įX, take 'hello.txt' and 'foo.txt' intro the exectute will make at the end this code Hi this is my first post of source that i made, i hope you like it, but remember its a beta and i haven't got the time for error finding.Ī.