[TuT] Make Advance Builder in Visual Basic - FULL EXAMPLE

[BlackSpider]

Make Boolean build in Visual Basic

Tutorial By: Soul Collector

Hello everyone.

This was tutorial was first for alliance .. but i lots of people asking me on msn how to use my keyloggers builder .. but they are not in alliane . So they are not able to check out this thread .. soz alliance i'll make new tut for only you and it will stay private, now lets start .. enjoy!


STEP 1:

Open Visual Basic .NET Click File > New Project > Windows Application > Name it Builder > Ok button

From the Toolbox bar drag:

CheckBox1 - Checking did we checked this, it will be showed in builded file.
TextBox1 - Some text
Button1 - Build button

On top of our code write:

Code:

Imports System.IO

Under the Public Class Form1 write:

Code:

Dim stub, text1 As String
    Dim cb As Boolean
    Const Filesplit = "@BooleanBuilder@"

Double Click Button1 and write:

Code:

text1 = TextBox1.Text
        'Open the Stub
        FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        stub = Space(LOF(1))

        'Get the file
        FileGet(1, stub)

        'Close the file
        FileClose(1)

        If CheckBox1.Checked = True Then
            cb = True
        Else : cb = False
        End If

        'If the builded file have the same name, then replace with new builded one.
        If File.Exists("Boolean.exe") Then
            My.Computer.FileSystem.DeleteFile("Boolean.exe")
        End If
        'Open the file
    FileOpen(1, Application.StartupPath & "\Boolean.exe.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)

        'Put the informations
        FilePut(1, stub & Filesplit & text1 & Filesplit & cb & Filesplit)

        'Close the file
        FileClose(1)

        MsgBox("The boolean builder did the job, I guess this will help you!", MsgBoxStyle.Information, "Boolean Builder")

Explanation:


How this works?

This is our import:

Code:

Imports System.IO

This is string for TextBox1 and Stub, which we use to tell program to add the Builder Textbox1.Text in Stub:

Code:

Dim stub, text1 As String

This is Boolean declaration for our builder:

Code:

Dim cb As Boolean

This is file split which will split our builders informations with stub:

Code:

Const Filesplit = "@BooleanBuilder@"

This open stub and then the process start's:

Code:

FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)

This get the stub:

Code:

FileGet(1, stub)

This close the stub:

Code:

FileClose(1)

This check is it our checkbox checked and add it to our stub so we can see did we checked it:

Code:

If CheckBox1.Checked = True Then
            cb = True
        Else : cb = False
        End If

This check is it file already builded and if it is then it replace with new, builded one:

Code:

If File.Exists("Boolean.exe") Then
            My.Computer.FileSystem.DeleteFile("Boolean.exe")
        End If

This build the file:

Code:

FileOpen(1, Application.StartupPath & "\Boolean.exe.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)

This put the split's in the files:

Code:

FilePut(1, stub & Filesplit & text1 & Filesplit & cb & Filesplit)

And finnaly this close the file:

Code:

FileClose(1)

This show the user that, the file is builded via messagebox:

Code:

MsgBox("The boolean builder did the job, I guess this will help you!", MsgBoxStyle.Information, "Boolean Builder")

STEP 2:

Open Visual Basic .NET Click File > New Project > Windows Application > Name it Stub Ok button

From the Toolbox bar drag:

Label1 - This is just some text with question "Did you checked me?"
Label2 - This is answer and put text for now "None" it will be changed when we build so dont worry
Textbox1 - This just added to explane you how to add text too.

Add this under Public Class Form1:

Code:

Dim options(), text1, cb As String
    Const Filesplit = "@BooleanBuilder@"

Now double click the Form1 and write code:

Code:

FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)

        text1 = Space(LOF(1))
        cb = Space(LOF(1))

        'FileGet
        FileGet(1, text1) 'options(1) - Text
        FileGet(1, cb) 'options(2) - Label

        FileClose(1)

        options = Split(text1, FileSplit)
        FileClose(1)
        TextBox1.Text = options(1)
       If options(2) = False Then
            Label2.Text = "No"
        Else : Label2.Text = "Yes"
        End If

[color=#FFD700][b]Explanation:[/b][/color]
[img]http://i50.tinypic.com/27y1wns.png[/img]

[color=#FF1493][b]How this works?[/b][/color][/size]

[color=#FF4500]This is our stirng with options and[b] text1[/b] is text from the [b]Builder[/b]:[/color]
[code]Dim options(), text1, cb As String

This one opens the file:

Code:

FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)

This one gets the informations from Builder and set options() which we use in our stub:

Code:

'FileGet
        FileGet(1, text1) 'options(1) - Text
        FileGet(1, cb) 'options(2) - Label

This close the file:

Code:

FileClose(1)

This split the Textbox1:

Code:

options = Split(text1, FileSplit)

This close the file:

Code:

FileClose(1)

This says to textbox1 that the text is from options(1) which is marked as text1 string:

Code:

TextBox1.Text = options(1)

This checks did we checked the cb from builder, this is connection of the builder and stub which must be 100% same:

Code:

If options(2) = False Then
            Label2.Text = "No"
        Else : Label2.Text = "Yes"
        End If

Download:
http://www.multiupload.com/YFDFC27B5M

Note: Like i said up there, please read the tutorial it will help you to learn more

[Julie]

All things you are posting in Visual Basic section are not from you.
Please add credits :/
But thanks for posting it here ...

[Notieboie]

All things you are posting in Visual Basic section are not from you.
Please add credits :/
But thanks for posting it here ...

Dude he is pro in visual basic , i am sure he written it 100%. as he always gives credits

[iCrackz]

All things you are posting in Visual Basic section are not from you.
Please add credits :/
But thanks for posting it here ...

He did give credits. Look at the top.
Thanks.

[Notieboie]

He did give credits. Look at the top.
Thanks.

he is itself sc

[Awesome]

Wow! Nice tutorial, i'll read everything later i don't have so much time right now but nice ^^

[GameOver*]

hmm.. niCe tutorial.. very helpful..! thanks for share!

[Sam]

Hang on, is the creating a key logger?

[Notieboie]

Hang on, is the creating a key logger?

Not exactly but this is very nice explanation that can be used in making a keylogger