Hack Forums
[.NET] Boolean Builder (Aka. How to use check boxes on builder + stub) [VB.NET] [Source] - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] Boolean Builder (Aka. How to use check boxes on builder + stub) [VB.NET] [Source] (/showthread.php?tid=167317)

Pages: Pages 1 2

Boolean Builder (Aka. How to use check boxes on builder + stub) [VB.NET] [Source] - Vorfin - Oct 19, 2009

Lots of people asking, so here you go.

[IMG]http://i35.[censored].com/2ic3za8.png[/IMG]

[IMG]http://i36.[censored].com/anhs9j.png[/IMG]

Download Project:
http://www.multiupload.com/LXKF92ZW3S

The main reason is for people wanting to put different options on their keylogger (Eg. Antis) On the stub, put them in the IF statement. If you're not sure were, it's were I wrote "Antis Here" 🤣

* - Dark Molecule - Oct 19, 2009

thanks vorfin :) im gonna go to wrk on it....if it wrks ill plus rep u :]

there we go got it working :] just had 2 put evrything in the same file lol

* - Acid87 - Oct 19, 2009

yeah thanks man...been trying to get this to work for a long time..ill test =D

* - Romeo. - Oct 19, 2009

Is using EOF ?


* - Acid87 - Oct 19, 2009

why is this not working...every time i build it, it gives me this error

Code
See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.

************** Exception Text **************
System.InvalidCastException: Conversion from string "test2.exe" to type 'Boolean' is not valid. ---> System.FormatException: Input string was not in a correct format.
   at Microsoft.VisualBasic.CompilerServices.Conversions.ParseDouble(String Value, NumberFormatInfo NumberFormat)
   at Microsoft.VisualBasic.CompilerServices.Conversions.ToBoolean(String Value)
   --- End of inner exception stack trace ---
   at Microsoft.VisualBasic.CompilerServices.Conversions.ToBoolean(String Value)
   at Stub.Form1.Form1_Load(Object sender, EventArgs e)
   at System.EventHandler.Invoke(Object sender, EventArgs e)
   at System.Windows.Forms.Form.OnLoad(EventArgs e)
   at System.Windows.Forms.Form.OnCreateControl()
   at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
   at System.Windows.Forms.Control.CreateControl()
   at System.Windows.Forms.Control.WmShowWindow(Message& m)
   at System.Windows.Forms.Control.WndProc(Message& m)
   at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
   at System.Windows.Forms.ContainerControl.WndProc(Message& m)
   at System.Windows.Forms.Form.WmShowWindow(Message& m)
   at System.Windows.Forms.Form.WndProc(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


************** Loaded Assemblies **************
mscorlib
    Assembly Version: 2.0.0.0
    Win32 Version: 2.0.50727.4927 (NetFXspW7.050727-4900)
    CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
----------------------------------------
Stub
    Assembly Version: 1.0.0.0
    Win32 Version: 1.0.0.0
    CodeBase: file:///C:/Users/(my username)/Desktop/test2.exe
----------------------------------------
Microsoft.VisualBasic
    Assembly Version: 8.0.0.0
    Win32 Version: 8.0.50727.4918 (NetFXspW7.050727-4900)
    CodeBase: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
    Assembly Version: 2.0.0.0
    Win32 Version: 2.0.50727.4918 (NetFXspW7.050727-4900)
    CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Windows.Forms
    Assembly Version: 2.0.0.0
    Win32 Version: 2.0.50727.4918 (NetFXspW7.050727-4900)
    CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
    Assembly Version: 2.0.0.0
    Win32 Version: 2.0.50727.4918 (NetFXspW7.050727-4900)
    CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Runtime.Remoting
    Assembly Version: 2.0.0.0
    Win32 Version: 2.0.50727.4918 (NetFXspW7.050727-4900)
    CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Runtime.Remoting/2.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
System.Configuration
    Assembly Version: 2.0.0.0
    Win32 Version: 2.0.50727.4918 (NetFXspW7.050727-4900)
    CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Configuration/2.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------

************** JIT Debugging **************
To enable just-in-time (JIT) debugging, the .config file for this
application or computer (machine.config) must have the
jitDebugging value set in the system.windows.forms section.
The application must also be compiled with debugging
enabled.

For example:

<configuration>
    <system.windows.forms jitDebugging="true" />
</configuration>

When JIT debugging is enabled, any unhandled exception
will be sent to the JIT debugger registered on the computer
rather than be handled by this dialog box.

and heres my code for builder

Code
Public Class Form1
    Dim stub, text1, text2, text3, text4 As String
    Dim cb1 As Boolean
    Const FileSplit = "@blablabla@"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            text1 = TextBox1.Text
            text2 = TextBox2.Text
            text3 = TextBox3.Text
            text4 = TextBox4.Text
            If CheckBox1.Checked = True Then
                cb1 = True
            Else : cb1 = False
            End If
            FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
            stub = Space(LOF(1))
            FileGet(1, stub)
            FileClose(1)
            If File.Exists(TextBox4.Text) Then
                My.Computer.FileSystem.DeleteFile(TextBox4.Text)
            End If
            FileOpen(1, Application.StartupPath & "\" & TextBox4.Text, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
            FilePut(1, stub & FileSplit & text1 & FileSplit & text2 & FileSplit & text3 & FileSplit & text4 & FileSplit & cb1)
            FileClose(1)
        End If

and my stub...

Code
Public Class Form1
    Dim options(), text1, text2, text3, text4, cb1 As String
    Const FileSplit = "@blablabla@"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim appname As String = IO.Path.GetFileName(Application.ExecutablePath)
        FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
        text1 = Space(LOF(1))
        text2 = Space(LOF(1))
        text3 = Space(LOF(1))
        text4 = Space(LOF(1))
        cb1 = Space(LOF(1))
        FileGet(1, text1)
        FileGet(1, text2)
        FileGet(1, text3)
        FileGet(1, cb1)
        FileClose(1)
        options = Split(text1, FileSplit)
        TextBox2.Text = options(1)
        TextBox3.Text = options(2)
        TextBox4.Text = options(3)
        cb1 = options(4)
        If options(4) = False Then
            Label1.Text = "No"
        Else : Label1.Text = "Yes" 'Antis Here
        End If
    End Sub


* - Dark Molecule - Oct 19, 2009

i know acid i was thinking the samething how to incorporate the 2 together o.o

* - Acid87 - Oct 19, 2009

yeah, cause for some reason, it just keeps giving me this error.

* - Dark Molecule - Oct 19, 2009

no1 wants to offer any advice on how to blend this with vorfins keylogger source ??

i get the basic idea of the entire code i just dont get how to blend/merge them o_0

* - SgtPunishment - Oct 19, 2009

Vorfin, with this, do you dim all checkboxes seperately? or all together? eg
Code
Dim CBRegEdit, CBTaskMgr as boolean
or
Code
Dim CBRegEdit as boolean
Dim CBTaskMgr as boolean


* - Vorfin - Oct 19, 2009

(Oct 19, 2009 02:29 PM)SgtPunishment Wrote:  Vorfin, with this, do you dim all checkboxes seperately? or all together? eg
Code
Dim CBRegEdit, CBTaskMgr as boolean
or
Code
Dim CBRegEdit as boolean
Dim CBTaskMgr as boolean

The top one, but both should work.

As for the errors you are getting, look at Farhan's source, it shows you CheckBoxes, TextBoxes, and NumberValues all together.

https://hackforums.net/showthread.php?tid=112270&highlight=builder

* - Acid87 - Oct 19, 2009

i dont know, my code is exactly the same, but still won't work

EDIT:

Found Problem and Fixed!

Code
FilePut(1, stub & FileSplit & text1 & FileSplit & text2 & FileSplit & text3 & FileSplit & text4 & FileSplit & cb1)

needed to be

Code
FilePut(1, stub & FileSplit & text1 & FileSplit & text2 & FileSplit & text3 & FileSplit & cb1)

becuase text4 was only being used on the builder

Thanks for all the help guys!

* - nickjonnes - Dec 29, 2010

thanks vorfin..yet again.
i still think you should be staff or at least get free ub3r! arghh well.
so far i have about 3 different codes im learning from and trying to change to make one unique one.
i was struggling with the first two but this one helped
thanks again
nick


* - ident - Dec 29, 2010

I wonder why you all have the same superflousing code

Code
If CheckBox1.Checked = True Then
    cb1 = True
  Else : cb1 = False
  End If

Should be

Code
cb1 = CheckBox1.Checked


* - goranpilkic - Dec 29, 2010

dont old threads
message

* - System113 - Dec 29, 2010

Thank you yeaa i really need this :D