04-06-2010, 03:42 AM
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.IOUnder 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:
![[Image: mhu69i.png]](http://i49.tinypic.com/mhu69i.png)
How this works?
This is our import:
Code:
Imports System.IOThis 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 StringThis is Boolean declaration for our builder:
Code:
Dim cb As BooleanThis 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 IfThis 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 IfThis 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 StringThis 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) - LabelThis 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 IfDownload:
http://www.multiupload.com/YFDFC27B5M
Note: Like i said up there, please read the tutorial it will help you to learn more
