Home Upgrade Search Memberlist Extras Hacker Tools Award Goals Help Wiki Contact

.NET 

[SOURCE/TUT]VB.NET - Simple Builder and Stub!

Hello!


For anyone who does not know how basic builder/stub works in VB.net, here is how to do it....


Here are both Visual Studio projects:


https(:)//drive(.)google.com/open?id=0B6a4KrMeAdDUUWdUcDB6bnBvdUk

I think this is as simple as it gets with Builder/Stub...
Basically builder sets the options for the stub and then the stub loads them..
Dont forget to add stub to builder´s resources.


If anyone has got any questions, feel free to pm me or reply to this thread.


STUB:

Code
Public Class Form1

    Const spl = "asdf"


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read)
        Dim stub As String = Space(LOF(1))
        FileGet(1, stub)
        FileClose(1)
        Dim Options() As String = Split(stub, spl)

    
        Dim domain As String



        domain = Options(1)

        MsgBox(domain)

    End Sub
End Class




BUILDER:

Code
Private Sub BetaBlueButton1_Click(sender As Object, e As EventArgs) Handles BetaBlueButton1.Click



        Dim s As New SaveFileDialog
        s.Title = "Save as  exe!!!"
        Dim stub As String
        Dim all As String = ""
        Const Filesplit = "FormStub"
        Dim temp As String = IO.Path.GetTempPath() & "stub.exe"
        s.ShowDialog()
        If s.FileName > "" Then
            IP = domain.Text
            
            File.WriteAllBytes(temp, My.Resources.stub)   ' DONT FORGET TO ADD YOUR STUB TO RESOURCES
            FileOpen(1, temp, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
            stub = Space(LOF(1))
            FileGet(1, stub)
            FileClose(1)
            FileOpen(1, s.FileName & ".exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
            FilePut(1, stub & spl & IP & spl & Port & spl & Startup & spl & Regedit & spl & Melt & spl)
            FileClose(1)
            MsgBox("Done!", MsgBoxStyle.OkOnly)
        End If
    End Sub
This is not a tutorial as it does not explain anything. All you do is release source. And I heard this method was a very detectable method. Anyways, you do not dispose of the filedialog. You do not check if the result was OK (so if someone exited the dialog then it can crash). You declare strings and later on assign their values, why not declare them when you assign the values? Saves a few lines. Also, you declared a variable FileSplit in the builder which you never used. Also, I swear I saw this code before somewhere.
This code is a 7-8 years back time travel tho.

[Image: Lymnm1L.jpg]

(Feb 21, 2016 11:11 AM)Ninja Wrote:  This is not a tutorial as it does not explain anything. All you do is release source. And I heard this method was a very detectable method. Anyways, you do not dispose of the filedialog. You do not check if the result was OK (so if someone exited the dialog then it can crash). You declare strings and later on assign their values, why not declare them when you assign the values? Saves a few lines. Also, you declared a variable FileSplit in the builder which you never used. Also, I swear I saw this code before somewhere.


Ok... maybe you did not get me.....
You might have seen it somewhere before..... But the thing is that its really well known. In fact its so simple that i can simply write it on a piece of paper w/o even looking it up on stackoverflow.. You think i ripped it off ? Ok then. That is your opinion..

But i dont get why you have to repfuck me.

Get your stuff straight first......
(Feb 21, 2016 12:04 PM).Lynx. Wrote:  Ok... maybe you did not get me.....
You might have seen it somewhere before..... But the thing is that its really well known. In fact its so simple that i can simply write it on a piece of paper w/o even looking it up on stackoverflow.. You think i ripped it off ? Ok then. That is your opinion..

But i dont get why you have to repfuck me.

Get your stuff straight first......
I didn't repfuck you. And this is probably the worst code I have seen today, and it looks %100 similar to some code I saw today as well.
(Feb 21, 2016 11:33 AM)ScΛrƒΛc3_ Wrote:  This code is a 7-8 years back time travel tho.

looks like you missed some years 😅
(Feb 21, 2016 12:09 PM)Ninja Wrote:  I didn't repfuck you. And this is probably the worst code I have seen today, and it looks %100 similar to some code I saw today as well.


You are clearly a "HQ" user....

==> Sees widely used piece of code

==> Sees similar one again

==> Repfucks the second user and says he ripped it off , yet the code is here for long time.......



Take a bit of time and think about yourself...
(Feb 21, 2016 12:09 PM)Ninja Wrote:  I didn't repfuck you. And this is probably the worst code I have seen today, and it looks %100 similar to some code I saw today as well.

Just today? Sure u have seen it. Is a method used at least since 8 years ago, u will find 100000000000 exact same on the web, posted here also multiple times in these years, was used before everyone jumped to Codedom or Cecil or dnlib or byte replacement, or Native Resources or other teqniques, and EOF get constantly detected.

OP, even a simple search here would give u better and "up to date" examples. Using EOF (with this method) will put you in a bad position from the start since is heavily detected.


(Feb 21, 2016 12:24 PM)N3oNight Wrote:  looks like you missed some years 😅

Probably im been quite optimistic, i cant even remember mate. 😏

[Image: Lymnm1L.jpg]

(Feb 21, 2016 10:58 AM).Lynx. Wrote:  
Code
If s.FileName > "" Then

Whelp if nothing else, I haven't seen length validation like this before here.
(Feb 21, 2016 12:26 PM).Lynx. Wrote:  You are clearly a "HQ" user....

==> Sees widely used piece of code

==> Sees similar one again

==> Repfucks the second user and says he ripped it off , yet the code is here for long time.......



Take a bit of time and think about yourself...
%100 similar means its the same. And again, repfuck is when all your positive rep is removed. I just -repped you. And this exact sample has been posted many times, so I am pretty sure it is not coded by you and you take credit for it.
Ah, this again .
Well uh...
Not sure about you, but most of my classes don't include BetaBlueButtons.

riperino animefanerino
(Sep 12, 2016 04:11 PM){Nexus} Wrote:  If the FBI come knocking I'm gonna spew information out my ass about Aeon.

They'd have to tell me to stop giving them information.

This was my original builder.... i just removed a lot of stuff in order to make it simple and understandable
Code
Public Class Form1

    Const spl = "asdf"


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read)
        Dim stub As String = Space(LOF(1))
        FileGet(1, stub)
        FileClose(1)
        Dim Options() As String = Split(stub, spl)

    
        Dim domain As String



        domain = Options(1)

        MsgBox(domain)

    End Sub
End Class

[Image: dSitUBD.png]

Here's the link to the video: https://www.youtube.com/watch?v=cVQbZsNilDA
You'll find a few other coincidences as well ;)


Possibly Related Threads...
Thread / Author Replies Views Last Post
[.NET] by nathan72389Dec 4, 2021 10:27 AM 7 942 Dec 4, 2021 10:27 AM
Last Post: zatt
[C] by SIM-4717218Aug 21, 2020 11:33 AM 0 161 Aug 21, 2020 11:33 AM
Last Post: SIM-4717218
[C] by jBarrelFeb 14, 2020 03:47 AM 11 400 Feb 14, 2020 03:47 AM
Last Post: Backbone